본문 바로가기

전체 글804

[WP7] 윈도우폰 설정 된 테마 색상 가져오기 - Background : Dark(Black), Light(White) 1) Color themeColor = (Color)Application.Current.Resources["PhoneBackgroundColor"]; if (themeColor.ToString() == "#FF000000") ; // "Dark"; else if (themeColor.ToString() == "#FFFFFFFF") ; // "Light"; 2) // 글자 색상이 흰색이라면 현재 테마는 Dark, 검은색이라면 Light Color themeColor = (Color)Application.Current.Resources[" PhoneForegroundColor "]; if (themeColor.ToString() == .. 2012. 4. 4.
[WP7] 문자와 문자 사이의 문자 가져오기 public static string GetMiddleString(string str, string begin, string end) { if (string.IsNullOrEmpty(str)) { return null; } string result = null; // 해당 글자부터 끝까지 찾는거면 if (end == "") { str = str.Substring(str.IndexOf(begin) + begin.Length); if (str.Length > -1) result = str.Substring(0, str.Length); else result = str; return result; } if (str.IndexOf(begin) > -1) { str = str.Substring(str.IndexOf.. 2012. 4. 4.
[WP7] Visual Studio 2010 자주쓰는 단축키 Ctrl + K + C : 주석처리 Ctrl + K + U : 주석해제 Ctrl + K + D : 자동정렬 Ctrl + M + M : 코드블록 접기, 열기 Ctrl + K + K : 북마크 기능, 해제 Ctrl + K + N : 다음 북마크로 이동 Ctrl + HOME : 문서 처음 Ctrl + END : 문서 끝 Ctrl + ] : 괄호의 짝 찾기 Ctrl + L : 한 라인 잘라내기 Ctrl + F3 : 현재 커서의 문자열 찾기 (forward) Ctrl + Shift + F3 : 현재 커서의 문자열 찾기 (backward) F9 : 현재 라인 Breakpoint 지정/해제 F12 : 선언부로 가기 Alt + 마우스드래그 : 세로 영역 선택 2012. 4. 4.
[Delphi] StringGrid - Mouse move Cell hint procedure TFm_Test.AdvStringGridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var ACol, ARow: Integer; begin AdvStringGrid.ShowHint := False; AdvStringGrid.MouseToCell(X, Y, ACol, ARow); if (ACol < 2) or (ARow < 1) then Exit; // fix and checkbox AdvStringGrid.ShowHint := True; AdvStringGrid.Hint := AdvStringGrid.Cells[ACol, ARow]; end; 2012. 1. 11.
[Delphi] 문자열의 너비 구하기 uses Graphics; Canvas.TextWidth(str); ex) if Canvas.TextWidth(Cells[5, J]) > 220 then RowHeights[J] := 16 * ((Canvas.TextWidth(Cells[5, J]) div 220) + 1); 2012. 1. 11.
[Delphi] Socket Error 10004 The operation is canceled. 10013 The requested address is a broadcast address, but flag is not set. 10014 Invalid argument. 10022 Socket not bound, invalid address or listen is not invoked prior to accept. 10024 No more file descriptors are available, accept queue is empty. 10035 Socket is non-blocking and the specified operation will block. 10036 A blocking Winsock operation is in progres.. 2011. 8. 31.
[Delphi] 델파이 예외 처리 클래스 EAbort 메시지 상자를 출력하지 않고 현재의 코드 블록을 취소할때 발생 EOutOfMemory 애플리케이션을 실행하기 위한 메모리 부족시 발생 EAccessViolation 메모리가 할당되지 않은 상황에서 연산을 하거나 메모리 할당 후 해제하지 않고 다시 할당할때 발생 EstackOverflow 현재의 스레드 수행이 더이상 메모리에 할당될 수 없을 경우 ElnOutError 파일 입출력시에 에러가 나는 경우 ElntError 정수 연산시 발생하는 에러 EDeivByZero 정수를 0으로 나누었을 때 발생 ERangeError 정수형의 범위를 벗어나는 값이 할당 됐을 경우 ElnvalidPointer 부적절한 포인터 연산이 수행됐을 경우 ElnvalidCast as연산자를 이용하여 부적절한 형변환이 발.. 2011. 8. 3.
[Delphi] 파일 확장자 알아내기 function GetExt(FileName: string): string; var TempArray: TStringList; begin Result := ''; TempArray := TStringList.Create; ExtractStrings(['.'], [' '], PChar(FileName), TempArray); if Pos('.', FileName) 0 then Result := TempArray.Strings[TempArray.Count - 1]; TempArray.Clear; TempArray.Free; end; 2011. 7. 22.
[Delphi] ListBox 내용을 클립보드에 복사하기 uses절에 Clipbrd; 추가하고 ClipBoard.SetTextBuf( PChar(복사 할 내용) ); ex) ClipBoard.SetTextBuf( PChar( Listbox.Items.Strings[Listbox.ItemIndex] ) ); ClipBoard.SetTextBuf( PChar( Listbox.Items.Text ) ); 2011. 7. 15.
[Delphi] 델파이에서 파일쓰기 var F: TextFile; FileName: string;begin FileName := '파일명'; try try AssignFile(F, FileName); // 파일이 없으면 파일을 생성 if FileExists(FileName) then Append(F) // 기존 내용에 추가하기 else Rewrite(F); // 기존 내용을 덮어쓰기 Writeln(F, '작성 할 내용'); except on E: Exception do ; end; finally CloseFile(F); end; end; 2011. 6. 15.