paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

update label size on font change if autosize is set to true (0010846)

Browse Source 
git-svn-id: trunk@14217 -
This commit is contained in:
paul 2008-02-21 04:32:08 +00:00
parent 754b2e921d
commit 12392bd167
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customlabel.inc
View File

@ -62,6 +62,9 @@ end;
procedure TCustomLabel.FontChanged(Sender: TObject);
begin
inherited FontChanged(Sender);
InvalidatePreferredSize;
if (Parent<>nil) and Parent.AutoSize then
Parent.AdjustSize;
AdjustSize;
end;
@ -141,7 +144,7 @@ begin
FFocusControl.SetFocus;
end;
Function TCustomLabel.GetAlignment : TAlignment;
function TCustomLabel.GetAlignment : TAlignment;
begin
Result := FAlignment;
end;
@ -151,9 +154,9 @@ begin
Result := Caption;
end;
Procedure TCustomLabel.SetShowAccelChar(Value : Boolean);
procedure TCustomLabel.SetShowAccelChar(Value : Boolean);
begin
If FShowAccelChar <> Value then
if FShowAccelChar <> Value then
begin
FShowAccelChar := Value;
Invalidate;
@ -176,7 +179,7 @@ begin
AdjustFontForOptimalFill;
end;
Function TCustomLabel.GetShowAccelChar : Boolean;
function TCustomLabel.GetShowAccelChar : Boolean;
begin
Result := FShowAccelChar;
end;