diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2014-03-29 16:06:29 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2014-03-29 16:06:29 +0000 |
| commit | 423a4a21d1bcd973222f9980a9229b5a4f8f3b53 (patch) | |
| tree | 78dc346a9d788f161043f06e5c1afbc837a2d82f /src | |
| parent | 026c9d369c3cd7834649486a261987ecdba04006 (diff) | |
| download | fpGUI-423a4a21d1bcd973222f9980a9229b5a4f8f3b53.tar.xz | |
checkbox now uses new fpgStyle methods for the painting of the checkbox image
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_checkbox.pas | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/gui/fpg_checkbox.pas b/src/gui/fpg_checkbox.pas index 886f69ca..2b4b11d8 100644 --- a/src/gui/fpg_checkbox.pas +++ b/src/gui/fpg_checkbox.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2011 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -210,8 +210,7 @@ begin ix := (2 + (Ord(FChecked) * 2)) - Ord(FChecked); // paint the check (in this case a X) - img := fpgImages.GetImage('sys.checkboxes'); // Do NOT localize - Canvas.DrawImagePart(r.Left, r.Top, img, ix*FBoxSize, 0, FBoxSize, FBoxSize); + fpgStyle.DrawCheckbox(Canvas, r.Left, r.Top, ix*FBoxSize, 0); r := GetClientRect; { max focus rectangle and text boundry } @@ -291,7 +290,7 @@ begin FTextColor := Parent.TextColor; FBackgroundColor := Parent.BackgroundColor; FFocusable := True; - FBoxSize := 13; + FBoxSize := fpgStyle.GetCheckBoxSize; FImgTextSpacing := 6; FChecked := False; FIsPressed := False; |