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

lcl: fix TButtonPanel buttons height (it must be the same for all buttons)

Browse Source 
git-svn-id: trunk@19576 -
This commit is contained in:
paul 2009-04-23 00:42:41 +00:00
parent 9dc24780ac
commit fb5ae56005
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/buttonpanel.pas
View File

@ -250,25 +250,20 @@ end;
procedure TCustomButtonPanel.UpdateSizes;
var
btn: TPanelButton;
BtnWidth, BtnHeight: Integer;
begin
FButtonsHeight := 0;
if csDestroying in ComponentState then
Exit;
FButtonsHeight := DefMinHeight;
FButtonsWidth := DefMinWidth;
for btn := Low(btn) to High(btn) do
begin
if FButtons[btn] = nil then Continue;
if FButtonsHeight > FButtons[btn].Height then Continue;
FButtonsHeight := FButtons[btn].Height;
end;
if Align in [alLeft, alRight]
then begin
// give the same width in this case too
FButtonsWidth := 0;
for btn := Low(btn) to High(btn) do
begin
if FButtons[btn] = nil then Continue;
if FButtonsWidth > FButtons[btn].Width then Continue;
FButtonsWidth := FButtons[btn].Width;
end;
FButtons[btn].CalculatePreferredSize(BtnWidth, BtnHeight, True);
if BtnWidth > FButtonsWidth then
FButtonsWidth := BtnWidth;
if BtnHeight > FButtonsHeight then
FButtonsHeight := BtnHeight;
end;
end;
@ -291,6 +286,7 @@ begin
if ShowBevel then
inc(PreferredWidth, Spacing + FBevel.Width);
end;
ReAlign;
end;
end;
@ -409,8 +405,8 @@ begin
Caption := '';
ControlStyle := ControlStyle - [csSetCaption];
AutoSize := True;
FSpacing := 6;
ShowBevel := True;
FSpacing := 6;
ShowBevel := True;
FDefaultButton := pbOK;
@ -452,7 +448,6 @@ begin
Name := NAMES[AButton];
Parent := Self;
Kind := KINDS[AButton];
AutoSize := True;
Constraints.MinWidth := DefMinWidth;
Constraints.MinHeight := DefMinHeight;
Caption := GetCaption(AButton);