본문 바로가기

Developist

Delphi/꿀팁 Sizeable한 Caption(Title bar) 없는 Form 만들기 - 2 TForm1 = class(TForm)private { Private declarations } .. procedure CreateParams(var Params : TCreateParams); override; procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;end;procedure TForm1.CreateParams(var Params: TCreateParams);begin inherited CreateParams(Params); //폼의 BorderStyle을 None으로 하고 크기조절이 가능하도록 변경합니다. Params.Style := WS_THICKFRAME or WS_POPUP or WS_BORDER;end;pro..
Delphi/간단하게 간단하게 Record 초기화 하기 TSampleRecord = Record nNumber : Integer; sText : string; ..end;var SampleRecord : TSampleRecord;begin SampleRecord := Default(TSampleRecord);end;
넓이에 맞춰 FontSize 자동계산 하기 - 2
Delphi/꿀팁 넓이에 맞춰 FontSize 자동계산 하기 - 2 2019/02/14 - [ - Delphi] - 크기에 맞춰 FontSize 자동계산 하기 - 1 간단하게 예제로 Label의 넓이에 맞춰 FontSize를 조절해 보겠습니다.function CalcFontSize(obj : TLabel; nWidth, nHeight : Integer; sText : string): Integer;Const MAX_FONT_SIZE = 32; MIN_FONT_SIZE = 2; var ARect : TRect; I : Integer;begin ARect := Default(TRect); ARect.Right := nWidth; ARect.Bottom := nHeight; for I := MIN_FONT_SIZE to MAX_FONT_SIZE do begin (obj as ..

티스토리툴바