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: add minimal constraints for buttons in the buttonpanel

Browse Source 
git-svn-id: trunk@19198 -
This commit is contained in:
paul 2009-04-02 03:50:04 +00:00
parent b0a039e313
commit 84ee8bd167
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/buttonpanel.pas
View File

@ -145,6 +145,8 @@ const
DEFAULT_BUTTONPANEL_BORDERSPACING: TControlBorderSpacingDefault = (
Left:0; Top:0; Right:0; Bottom:0; Around:6;
);
DefMinWidth = 75;
DefMinHeight = 25;
procedure Register;
begin
@ -256,7 +258,7 @@ begin
if Align in [alLeft, alRight]
then begin
// give the sime width in this case too
// give the same width in this case too
FButtonsWidth := 0;
for btn := Low(btn) to High(btn) do
begin
@ -407,11 +409,12 @@ const
function GetCaption(Btn: TPanelButton): string;
begin
case Btn of
pbOK: Result:=rsMbOK;
pbCancel: Result:=rsMbCancel;
pbClose: Result:=rsMbClose;
pbHelp: Result:=rsMbHelp;
else Result:='?';
pbOK: Result:=rsMbOK;
pbCancel: Result:=rsMbCancel;
pbClose: Result:=rsMbClose;
pbHelp: Result:=rsMbHelp;
else
Result:='?';
end;
end;
@ -425,6 +428,8 @@ begin
Parent := Self;
Kind := KINDS[AButton];
AutoSize := True;
Constraints.MinWidth := DefMinWidth;
Constraints.MinHeight := DefMinHeight;
Caption := GetCaption(AButton);
TabOrder := Ord(AButton); //initial order
Align := alCustom;
@ -497,7 +502,6 @@ begin
Exit;
end;
// make all buttons the same height
ANewHeight := FButtonsHeight;
if Align in [alLeft, alRight]