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

LCL: TBitBtn: invalidate preferred size when changing layout so autosized buttons can resize correctly

Browse Source 
git-svn-id: trunk@34507 -
This commit is contained in:
zeljko 2011-12-29 19:01:08 +00:00
parent 48b2cd29e5
commit 90d21bf0ea
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/bitbtn.inc
View File

@ -143,8 +143,11 @@ procedure TCustomBitBtn.SetLayout(AValue: TButtonLayout);
begin
if FLayout = AValue then Exit;
FLayout := AValue;
if HandleAllocated
then TWSBitBtnClass(WidgetSetClass).SetLayout(Self, FLayout);
if HandleAllocated then
begin
TWSBitBtnClass(WidgetSetClass).SetLayout(Self, FLayout);
InvalidatePreferredSize;
end;
AdjustSize;
end;