paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 17:09:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed TCDDrawerMac.DrawMacSquareButton y

Browse Source 
git-svn-id: trunk@49646 -
This commit is contained in:
mattias 2015-08-11 12:28:07 +00:00
parent 348bc7ef4c
commit f6e1445ede
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/customdrawn_mac.pas
View File

@ -161,7 +161,7 @@ begin
ADest.Font.FPColor := colWhite;
Str := AStateEx.Caption;
lPosX := ADestPos.X + (ASize.cx - lDest.TextWidth(Str)) div 2;
lPosX := ADestPos.Y + (ASize.cy - lDest.TextHeight(Str)) div 2;
lPosY := ADestPos.Y + (ASize.cy - lDest.TextHeight(Str)) div 2;
lDest.TextOut(lPosX, lPosY, Str);
end;