[Lazarus] Fit TFrom's width so that it's caption isn't cut off?
Bart
bartjunk64 at gmail.com
Sun Nov 17 18:04:46 CET 2013
On 11/17/13, Avishai <avishai.gore at gmail.com> wrote:
> function GetTextHeight(ACtrl: TControl): Integer;
> var
> C: TBitMap;
> begin
> Result:= -1;
> C := TBitmap.Create;
> try
> C.Canvas.Font.Assign(ACtrl.Font);
> Result:= C.Canvas.TextHeight('TextHeight');
> finally
> C.Free;
> end;
> end;
>
Is the canvas of the area where the caption is drawn the same as
TForm's canvas, and is the font the same? I have no idea.
And it does not take the bordericons into account.
Bart
More information about the Lazarus
mailing list