paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 15:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TButtonPanel: reduce overhead while button creation

Browse Source 
git-svn-id: trunk@27597 -
This commit is contained in:
mattias 2010-10-07 07:58:59 +00:00
parent 94827d66c8
commit 3268c9ce5e
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/buttonpanel.pas
View File

@ -328,7 +328,6 @@ begin
if FButtons[TabOrders[FButtonOrder, i]] = nil then Continue; if FButtons[TabOrders[FButtonOrder, i]] = nil then Continue;
FButtons[TabOrders[FButtonOrder, i]].TabOrder := High(TabOrders[FButtonOrder]) - i; FButtons[TabOrders[FButtonOrder, i]].TabOrder := High(TabOrders[FButtonOrder]) - i;
end; end;
Realign;
end; end;
procedure TCustomButtonPanel.SetAlign(Value: TAlign); procedure TCustomButtonPanel.SetAlign(Value: TAlign);
@ -338,7 +337,6 @@ begin
inherited SetAlign(Value); inherited SetAlign(Value);
UpdateBevel; UpdateBevel;
UpdateSizes; UpdateSizes;
Realign;
finally finally
EnableAutoSizing; EnableAutoSizing;
end; end;
@ -478,7 +476,6 @@ begin
with FButtons[AButton] do with FButtons[AButton] do
begin begin
Name := NAMES[AButton]; Name := NAMES[AButton];
Parent := Self;
Kind := KINDS[AButton]; Kind := KINDS[AButton];
Constraints.MinWidth := DefButtonSize.cx; Constraints.MinWidth := DefButtonSize.cx;
Constraints.MinHeight := DefButtonSize.cy; Constraints.MinHeight := DefButtonSize.cy;
@ -496,8 +493,9 @@ begin
then Glyph.Assign(FGlyphs[AButton]) then Glyph.Assign(FGlyphs[AButton])
else Glyph.Assign(nil); else Glyph.Assign(nil);
// set default // set default
if AButton = FDefaultButton Default := AButton = FDefaultButton;
then Default := True;
Parent := Self;
end; end;
end; end;