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

anchordocking: add space for close button only on gtk2 and carbon, bug #24807

Browse Source 
git-svn-id: trunk@42427 -
This commit is contained in:
mattias 2013-08-19 17:33:17 +00:00
parent 4daf47a75d
commit b7ebebacca
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/anchordocking/anchordocking.pas
View File

@ -5193,8 +5193,12 @@ procedure TAnchorDockCloseButton.CalculatePreferredSize(var PreferredWidth,
begin begin
with ThemeServices.GetDetailSize(ThemeServices.GetElementDetails(twSmallCloseButtonNormal)) do with ThemeServices.GetDetailSize(ThemeServices.GetElementDetails(twSmallCloseButtonNormal)) do
begin begin
PreferredWidth:=cx+2; PreferredWidth:=cx;
PreferredHeight:=cy+2; PreferredHeight:=cy;
{$IF defined(LCLGtk2) or defined(Carbon)}
inc(PreferredWidth,2);
inc(PreferredHeight,2);
{$ENDIF}
end; end;
end; end;