지병철의 주저리 주저리

FMemo.TextSettings.BeginUpdate;FMemo.StyledSettings := Item.FMemo.StyledSettings - [TStyledSetting.Size];FMemo.TextSettings.Font.Size := 14;FMemo.TextSettings.EndUpdate;

FMouseDown: Boolean; // Mouse 가 눌렸는지 확인 FMouseDown_Y: Single; // Mouse Down 되었을 때의 Y 의 값 procedure TfrmMain.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin FMouseDown := True; FMouseDown_Y := Y; end; procedure TfrmMain.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if FMouseDow..

사용해야 할 use 절은 System.JSON, Sytem.JSON.Types, System.JSON.Writers, System.JSON.Builders; 1. JSON Writer 아래와 같은 JSON을 만들 때{"colors" : [{"name": "red","hex": "#f00"}]} 1) Old frameworkJSONColor := TJSONObject.Create;JSONColor.AddPair('name', 'red');JSONColor.AddPair('hex', '#f00');JSONArray := JSONArray.Create;JSONObject := TJSONObject.Create; JSONObject.AddPair('colors', JSONArray); 2) New framewo..

//일자를 추출한다. function DateOf(const AValue: TDateTime): TDateTime; //시간을 추출한다. function TimeOf(const AValue: TDateTime): TDateTime; //평년,윤년을 구분하다. function IsInLeapYear(const AValue: TDateTime): Boolean; //오전,오후를 구분한다. function IsPM(const AValue: TDateTime): Boolean; //Word형의 년,월,일 파라메타의 유효..

델파이(Delphi)로 작성한 날짜(Date) 관련 함수들입니다.// 요일 이름 구하기function dateDayOfWeekStr(D: TDateTime): String;const DayNames: array[1..7] of string = ('월', '화', '수', '목', '금', '토', '일');begin result := DayNames[System.DateUtils.DayOfTheWeek(D)];end;// 긴 요일 이름 구하기function dateDayOfWeekStrLong(D: TDateTime): String;begin Result := dateDayOfWeekStr(D)+'요일';end;// 주어진 일자가 포함된 분기의 시작일function dateBeginOfQuarter..

URL = https://www.thoughtco.com/creating-a-splash-screen-1058017 The most basic splash screen is just an image, or more precisely, a form with an image, that appears in the center of the screen when the application is loading. Splash screens are hidden when the application is ready to be used. Below is more information on the different types of splash screens you may see, and why they're useful,..

1. Right click the edit control (let's say Edit1) and click 'Edit Custom Style'.2. Expand 'edit1style1'.3. Click background:TActiveStyleObject.4. Clear the SourceLookup property. Link -> https://stackoverflow.com/questions/22301536/how-to-make-an-edit-control-in-fmx-transparent-and-hide-its-border

var Form1: TForm1; NumX, NumY: Integer; implementation procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); var Num1, Num2: Integer; Point1, Point2: TPoint; begin Point1.X:=NumX; Point1.Y:=NumY; Point2.X:=X; Point2.Y:=Y; with Source as TListBox do begin Num2:=ListBox1.ItemAtPos(Point1,True); Num1:=ListBox1.ItemAtPos(Point2,True); ListBox1.Items.Move(Num2,..

var s: TSizeF;begin s.Create(32, 32); //Image size myImage.Bitmap := myImageList.Bitmap(s,imageIndex);end;

입력 ComboBox.AddItem('item_string', 'TObject(PChar('value_string')); 출력 item_string := ComboBox.Items[0]; item_value := PChar(ComboBox.Items.Object[0]);