* 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.

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;