LCL, changing AllowGrayed at runtime has no effect (windows), fixed

git-svn-id: trunk@19892 -

lcl/include/customcheckbox.inc

@@ -38,6 +38,15 @@ begin
   end;
 end;
 
+procedure TCustomCheckBox.SetAllowGrayed(const AValue: Boolean);
+begin
+  if AValue<>FAllowGrayed then begin
+    FAllowGrayed := AValue;
+    if HandleAllocated then
+      TWSCustomCheckBoxClass(WidgetSetClass).AllowGrayedChanged(Self);
+  end;
+end;
+
 {------------------------------------------------------------------------------
   Method: TCustomCheckBox.GetState
   Params:  none

lcl/interfaces/win32/win32wsstdctrls.pp

@@ -257,6 +257,7 @@ type
     class procedure SetBiDiMode(const AWinControl: TWinControl; UseRightToLeftAlign,
       UseRightToLeftReading, UseRightToLeftScrollBar : Boolean); override;
     class procedure SetState(const ACustomCheckBox: TCustomCheckBox; const NewState: TCheckBoxState); override;
+    class procedure AllowGrayedChanged(const ACustomCheckbox: TCustomCheckbox); override;
   end;
 
   { TWin32WSCheckBox }
@@ -1537,6 +1538,12 @@ begin
   Windows.SendMessage(ACustomCheckBox.Handle, BM_SETCHECK, Flags, 0);
 end;
 
+class procedure TWin32WSCustomCheckBox.AllowGrayedChanged(
+  const ACustomCheckbox: TCustomCheckbox);
+begin
+  RecreateWnd(ACustomCheckbox);
+end;
+
 { TWin32WSToggleBox }
 
 class function TWin32WSToggleBox.CreateHandle(const AWinControl: TWinControl;

lcl/stdctrls.pp

@@ -1165,6 +1165,7 @@ type
     FAllowGrayed: Boolean;
     FState: TCheckBoxState;
     FShortCut: TShortcut;
+    procedure SetAllowGrayed(const AValue: Boolean);
     procedure SetState(Value: TCheckBoxState);
     function GetState: TCheckBoxState;
     procedure DoChange(var Msg); message LM_CHANGED;
@@ -1187,7 +1188,7 @@ type
     constructor Create(TheOwner: TComponent); override;
   public
     property AutoSize default true;
-    property AllowGrayed: Boolean read FAllowGrayed write FAllowGrayed default false;
+    property AllowGrayed: Boolean read FAllowGrayed write SetAllowGrayed default false;
     property State: TCheckBoxState read GetState write SetState default cbUnchecked;
     property TabStop default true;
     property OnChange;

lcl/widgetset/wsstdctrls.pp

@@ -222,6 +222,7 @@ type
     class procedure SetShortCut(const ACustomCheckBox: TCustomCheckBox;
       const OldShortCut, NewShortCut: TShortCut); virtual;
     class procedure SetState(const ACustomCheckBox: TCustomCheckBox; const NewState: TCheckBoxState); virtual;
+    class procedure AllowGrayedChanged(const ACustomCheckbox: TCustomCheckbox); virtual;
   end;
   TWSCustomCheckBoxClass = class of TWSCustomCheckBox;
 
@@ -578,6 +579,11 @@ class procedure TWSCustomCheckBox.SetState(const ACustomCheckBox: TCustomCheckBo
 begin
 end;
 
+class procedure TWSCustomCheckBox.AllowGrayedChanged(
+  const ACustomCheckbox: TCustomCheckbox);
+begin
+end;
+
 { WidgetSetRegistration }
 
 procedure RegisterCustomScrollBar;