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

customdrawn: dsCommon checkbox background fix

Browse Source 
git-svn-id: trunk@33322 -
This commit is contained in:
sekelsenmat 2011-11-05 07:57:56 +00:00
parent 22cb611d2a
commit 9874a2fe96
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/customdrawn/customdrawn_common.pas
View File

@ -459,7 +459,13 @@ begin
lSquareHalf := GetMeasures(TCDCHECKBOX_SQUARE_HALF_HEIGHT);
lSquareHeight := GetMeasures(TCDCHECKBOX_SQUARE_HEIGHT);
// the square itself
// the square background
ADest.Pen.Style := psClear;
ADest.Brush.Style := bsSolid;
ADest.Brush.Color := Palette.Window;
ADest.Rectangle(Bounds(1, lHalf - lSquareHalf, lSquareHeight, lSquareHeight));
// the square frame
DrawSunkenFrame(ADest, Point(1, lHalf - lSquareHalf),
Size(lSquareHeight, lSquareHeight));