diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-26 12:50:13 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-26 12:50:13 +0000 |
commit | 1c2e942655c6280bc46b7a0eedefb827a7aca0ca (patch) | |
tree | 44adef1076af8a61663e329b78a7e20013aefa1f /src/gui/gui_radiobutton.pas | |
parent | 544f3d4974a01a1f4cd6621c112dcde84e541bbb (diff) | |
download | fpGUI-1c2e942655c6280bc46b7a0eedefb827a7aca0ca.tar.xz |
* Added a DrawString() method to TfpgStyle
* Changed TfpgCheckBox, TfpgRadioButton, TfpgLabel and TfpbButton to
use fpgStyle.DrawString instead.
* Updated the prototype test app to demo these features.
* TfpgCheckBox now handle image painting correctly based on the
widget state and mouse state (up, down).
* Minor improvement to the look of the X in the CheckBox image.
Diffstat (limited to 'src/gui/gui_radiobutton.pas')
-rw-r--r-- | src/gui/gui_radiobutton.pas | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/gui/gui_radiobutton.pas b/src/gui/gui_radiobutton.pas index db3a8e16..097dbe16 100644 --- a/src/gui/gui_radiobutton.pas +++ b/src/gui/gui_radiobutton.pas @@ -163,11 +163,8 @@ begin ty := (Height div 2) - (Font.Height div 2); if ty < 0 then ty := 0; - if Enabled then - Canvas.SetTextColor(clText1) - else - Canvas.SetTextColor(clShadow1); - Canvas.DrawString(tx, ty, FText); + Canvas.SetTextColor(clText1); + fpgStyle.DrawString(Canvas, tx, ty, FText, Enabled); Canvas.EndDraw; end; |