파란크리스마스

출처 : 델마당 - 라즈베리 파이(Raspberry Pi) 보드 크로스 컴파일 환경 구축 성공(Win7 => 라즈베리) Cross-Build for RasberryPi TOPIC: How to build app for Raspberry Pi from Windows 7 Setup Cross Compile For ARM Lazarus Lazarus라는 RAD툴 입니다. 아직 설치 방법은 작성중이고, 우선 개발된 소스와 실행 파일을 올립니다. 기본언어는 Pascal 이고, 상용툴로 Delphi와 비슷합니다. Raspberry PI용 화면개발을 하실 일이 있다면 편하게 작성하실수 있습니다. 설치방법과 GPIO관련 내용은 따로 작성해서 올리겠습니다. GPIO 컴포넌트 rpi-hal 링크 CodeTyphon 다운로..

출처 : Delphi Firemonkey 개발자 모임 Codeunit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); procedure Image1MouseMove(Sender: TObj..

Delphi - Http POST call procedure TForm1.Button1Click(Sender: TObject); var sl : TStringList; ResponseStream: TMemoryStream; resultBytes: TBytes; begin sl := TStringList.Create; ResponseStream := TStringStream.Create; try IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; sl.Add('id=' + Edit2.Text); IdHTTP1.Post(Edit1.Text, sl, ResponseStream); ResponseStream.Position := 0; SetL..

출처 http://rainflys.tistory.com/84 http://www.borlandforum.com/impboard/impboard.dll?action=read&db=del_qna&no=3570 http://bloodguy.tistory.com/entry/Delphi-바탕화면-시작메뉴프로그램-등-특수-디렉토리-가져오기 현재 실행 폴더 구하기runpath:=ExtractFilePath(Application.ExeName); Memo 스크롤 마지막으로 이동procedure TForm1.Memo1Change(Sender: TObject); begin Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count); end; Format format('%0.10d',[10]..

TClientDataset 데이터를 XML로 가지고 왔지만, 일본어에 표현에 문제가 발견 되었다. 모든 문자열 데이터의 경우 fieldtype="string"로 사용했는데, 유니코드의 경우 fieldtype="string.uni" 라고 표현해야 TWideStringField로 인식하여 올바르게 데이터가 표현되지만, 영문만 있는경우 또 다시 문제가 발견되었다. 영문만 존재하는 경우 데이터를 모두 확인하여 fieldtype="string"로 했지만, 이것도 임시 방편일뿐 완벽한 처리는 되는 않는다. TClientDataset 자체의 버그라고 생각되지만, 우선은 이렇게 처리 해두었다. ----------------------------------------------------------------------..

행추가 ws.InsertRows(row+1, 1); 행삭제 ws.DeleteRows(row, row+4); 셀병합 ws.MergeCells(1, p_row, 1, row-1); 테두리 ws.Range.ItemsRef['A'+inttostr(2)+':'+'A'+inttostr(row)].BorderOutlineStyle := cbsThin; // cbsHair; 가운데 설정 ws.Cell[9, row].HorizAlignment := chaCenter; 몇 가지 설정 ws.Cell[i, row].NumberFormat := '_-* #,##0_-;-* #,##0_-;_-* ""-""_-;_-@_-'; ws.Cell[9, row].NumberFormat := '0%'; 셀높이 설정 ws.Rows[(i*28)..

출처 : http://www.delphitricks.com/source-code/systeminfo/get_windows_system_temporary_directory.html { Getting the Temporary Directory } function GetTempDir: string; var Buffer: array[0..MAX_PATH] of Char; begin GetTempPath(SizeOf(Buffer) - 1, Buffer); Result := StrPas(Buffer); end; function GetTempPath: string; var TmpDir: PChar; begin TmpDir := StrAlloc(MAX_PATH); GetTempPath(TmpDir, MAX_PATH);..

- CustomDataSource 사용시 동적인 Count 사용 OptionsData.SmartLoad := True; - 트리노드의 초기 + 표시 OptionsData.CheckHasChildren := false;