GON

출처는 여기

Function GetWidthText(const Text:String; Font:TFont) : Integer;
var
  LBmp: TBitmap;
begin
  LBmp := TBitmap.Create;
  try
   LBmp.Canvas.Font := Font;
   Result := LBmp.Canvas.TextWidth(Text);
  finally
   LBmp.Free;
  end;
end;

Function GetWidthText(const Text:String; Font:TFont) : Integer;

var

LBmp: TBitmap;

begin

LBmp := TBitmap.Create;

try

LBmp.Canvas.Font := Font;

Result := LBmp.Canvas.TextWidth(Text);

finally

LBmp.Free;

end;

FFMPEG으로 동영상 섬네일을 타일형태로 추출하기

Delphi FindAnyComponent

FireMonkey에서 TEdit 높이 변경하기

댓글 남기기 댓글 취소