1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var
nWidth1, nWidth2, nWidth3, nHeight1, nHeight2, nHeight3 : integer;
Bmp : TBitmap;
sMess : String;
begin
Bmp := TBitMap.Create;
Label1.AutoSize := False;
Bmp.Canvas.Font.Assign(Label1.Font);
nWidth1 := Bmp.Canvas.TextWidth(Label1.Caption);
nHeight1 := Bmp.Canvas.TextHeight(Label1.Caption);
sMess := '('+IntToStr(nWidth1)+'x'+IntToStr(nHeight1)+')';
Label1.Height := 50;
Bmp.Canvas.Font.Assign(Label1.Font);
nWidth2 := Bmp.Canvas.TextWidth(Label1.Caption);
nHeight2 := Bmp.Canvas.TextHeight(Label1.Caption);
sMess := sMess + ' ,('+IntToStr(nWidth2)+'x'+IntToStr(nHeight2)+')';
Label1.Font.Size := 24;
Bmp.Canvas.Font.Assign(Label1.Font);
nWidth3 := Bmp.Canvas.TextWidth(Label1.Caption);
nHeight3 := Bmp.Canvas.TextHeight(Label1.Caption);
sMess := sMess + ' ,('+IntToStr(nWidth3)+'x'+IntToStr(nHeight3)+')';
Bmp.Free;
Showmessage(sMess);
end; |
Partager