From 8582b06c3d26300d25d5c91e8d9f1464559a4a3a Mon Sep 17 00:00:00 2001
From: jesus <jesus@lazarus-ide.org>
Date: Thu, 9 Jun 2011 20:48:37 +0000
Subject: [PATCH] LCL, added OnUserCheckboxState event to dbgrid

git-svn-id: trunk@31148 -
---
 lcl/dbgrids.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas
index f007ce01b8..5e5d1c890d 100644
--- a/lcl/dbgrids.pas
+++ b/lcl/dbgrids.pas
@@ -110,6 +110,9 @@ type
     procedure(Sender: TObject; const CheckedState: TCheckboxState;
               var ABitmap: TBitmap) of object;
 
+  TDbGridCheckboxStateEvent =
+    procedure(Sender: TObject; Column: TColumn;
+              var AState: TCheckboxState) of object;
 type
 
   { TBMStringList }
@@ -285,6 +288,7 @@ type
     FOnTitleClick: TDBGridClickEvent;
     FOnSelectEditor: TDbGridSelEditorEvent;
     FOnCheckboxBitmap: TDbGridCheckBoxBitmapEvent;
+    FOnCheckboxState: TDbGridCheckboxStateEvent;
     FOptions: TDBGridOptions;
     FReadOnly: Boolean;
     FColEnterPending: Boolean;
@@ -462,6 +466,7 @@ type
     property OnSelectEditor: TDbGridSelEditorEvent read FOnSelectEditor write FOnSelectEditor;
     property OnTitleClick: TDBGridClickEvent read FOnTitleClick write FOnTitleClick;
     property OnUserCheckboxBitmap: TDbGridCheckboxBitmapEvent read FOnCheckboxBitmap write FOnCheckboxBitmap;
+    property OnUserCheckboxState: TDbGridCheckboxStateEvent read FOnCheckboxState write FOnCheckboxState;
   public
     constructor Create(AOwner: TComponent); override;
     procedure AutoSizeColumns;
@@ -569,6 +574,7 @@ type
     property OnStartDrag;
     property OnTitleClick;
     property OnUserCheckboxBitmap;
+    property OnUserCheckboxState;
     property OnUTF8KeyPress;
   end;
 
@@ -2708,6 +2714,9 @@ begin
   else
     AState := cbGrayed;
 
+  if assigned(OnUserCheckboxState) then
+    OnUserCheckboxState(Self, TColumn(ColumnFromGridColumn(aCol)), AState);
+
   DrawGridCheckboxBitmaps(aCol, Row{dummy}, ARect, AState);
 end;