paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 22:16:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

customdrawn_mac: minor look fix

Browse Source 
git-svn-id: trunk@49565 -
This commit is contained in:
sekelsenmat 2015-07-25 10:18:50 +00:00
parent 9a491976ca
commit bcc7a87ba4
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/customdrawn_mac.pas
View File

@ -129,7 +129,7 @@ begin
lGradientTop := MAC_SQUARE_BUTTON_FOCUS_GRADIENT_TOP;
lGradientBottom := MAC_SQUARE_BUTTON_FOCUS_GRADIENT_BOTTOM;
end;
lRect := Bounds(1, 1, ASize.cx-2, ASize.cy-2);
lRect := Bounds(0, 0, ASize.cx, ASize.cy);
lDest.GradientFill(lRect, lGradientTop, lGradientBottom, gdVertical);
// outter rectangle
@ -140,14 +140,15 @@ begin
else
lDest.Pen.Color := MAC_SQUARE_BUTTON_FRAME;
ADest.Rectangle(0, 0, ASize.cx, ASize.cy);
ADest.Rectangle(1, 1, ASize.cx-1, ASize.cy-1);
//ADest.Rectangle(1, 1, ASize.cx-1, ASize.cy-1);
// inner rectangle (only for focused)
if (csfHasFocus in AState) and not (csfSunken in AState) then
begin
lDest.Pen.Color := MAC_SQUARE_BUTTON_FOCUS_FRAME_INNER;
ADest.Rectangle(2, 2, ASize.cx-2, ASize.cy-2);
ADest.Rectangle(3, 3, ASize.cx-3, ASize.cy-3);
ADest.Rectangle(1, 1, ASize.cx-1, ASize.cy-1);
//ADest.Rectangle(2, 2, ASize.cx-2, ASize.cy-2);
//ADest.Rectangle(3, 3, ASize.cx-3, ASize.cy-3);
end;
// Button text