paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 00:11:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, added OnUserCheckboxState event to dbgrid

Browse Source 
git-svn-id: trunk@31148 -
This commit is contained in:
jesus 2011-06-09 20:48:37 +00:00
parent 016031a066
commit 8582b06c3d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/dbgrids.pas
View File

@ -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;