Implements a ReadOnly property for TfpgCheckBox.

1 files changed, 22 insertions, 3 deletions

diff --git a/src/gui/fpg_checkbox.pas b/src/gui/fpg_checkbox.pas
index a68ecfa0..886f69ca 100644
--- a/src/gui/fpg_checkbox.pas
+++ b/src/gui/fpg_checkbox.pas
@@ -34,6 +34,7 @@ type
   private
     FChecked: boolean;
     FOnChange: TNotifyEvent;
+    FReadOnly: Boolean;
     FText: string;
     FFont: TfpgFont;
     FBoxLayout: TBoxLayout;
@@ -45,6 +46,7 @@ type
     procedure   SetBoxLayout(const AValue: TBoxLayout);
     procedure   SetChecked(const AValue: boolean);
     procedure   SetFontDesc(const AValue: string);
+    procedure   SetReadOnly(const AValue: Boolean);
     procedure   SetText(const AValue: string);
     procedure   DoOnChange;
   protected
@@ -55,6 +57,7 @@ type
     property    Checked: boolean read FChecked write SetChecked default False;
     property    FontDesc: string read GetFontDesc write SetFontDesc;
     property    BoxLayout: TBoxLayout read GetBoxLayout write SetBoxLayout default tbLeftBox;
+    property    ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
     property    Text: string read FText write SetText;
     property    OnChange: TNotifyEvent read FOnChange write FOnChange;
   public
@@ -80,6 +83,7 @@ type
     property    MinHeight;
     property    MinWidth;
     property    ParentShowHint;
+    property    ReadOnly;
     property    ShowHint;
     property    TabOrder;
     property    Text;
@@ -112,6 +116,8 @@ end;
 
 procedure TfpgBaseCheckBox.SetChecked(const AValue: boolean);
 begin
+  if ReadOnly then
+    Exit; //==>
   if FChecked = AValue then
     Exit; //==>
   FChecked := AValue;
@@ -146,6 +152,13 @@ begin
   RePaint;
 end;
 
+procedure TfpgBaseCheckBox.SetReadOnly(const AValue: Boolean);
+begin
+  if FReadOnly=AValue then exit;
+  FReadOnly:=AValue;
+  RePaint;
+end;
+
 procedure TfpgBaseCheckBox.SetText(const AValue: string);
 begin
   if FText = AValue then
@@ -184,9 +197,14 @@ begin
   // calculate which image to paint.
   if Enabled then
   begin
-    ix := Ord(FChecked);
-    if FIsPressed then
-      Inc(ix, 2);
+    if ReadOnly then
+      ix := (2 + (Ord(FChecked) * 2)) - Ord(FChecked)
+    else
+    begin
+      ix := Ord(FChecked);
+      if FIsPressed then
+        Inc(ix, 2);
+    end;
   end
   else
     ix := (2 + (Ord(FChecked) * 2)) - Ord(FChecked);
@@ -279,6 +297,7 @@ begin
   FIsPressed  := False;
   FOnChange   := nil;
   FBoxLayout  := tbLeftBox;
+  FReadOnly   := False;
 end;
 
 destructor TfpgBaseCheckBox.Destroy;