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

lcl: adjust TButtonPanel buttons width/height on text change

Browse Source 
git-svn-id: trunk@19588 -
This commit is contained in:
paul 2009-04-23 09:28:45 +00:00
parent 43a719696b
commit 4757739e38
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/buttonpanel.pas
View File

@ -263,6 +263,10 @@ begin
begin begin
if FButtons[btn] = nil then Continue; if FButtons[btn] = nil then Continue;
FButtons[btn].CalculatePreferredSize(BtnWidth, BtnHeight, True); FButtons[btn].CalculatePreferredSize(BtnWidth, BtnHeight, True);
if Align in [alTop, alBottom] then
FButtons[btn].Width := BtnWidth;
if Align in [alLeft, alRight] then
FButtons[btn].Height := BtnHeight;
if BtnWidth > FButtonsWidth then if BtnWidth > FButtonsWidth then
FButtonsWidth := BtnWidth; FButtonsWidth := BtnWidth;
if BtnHeight > FButtonsHeight then if BtnHeight > FButtonsHeight then