paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:19:18 +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; procedure(Sender: TObject; const CheckedState: TCheckboxState;
var ABitmap: TBitmap) of object; var ABitmap: TBitmap) of object;
TDbGridCheckboxStateEvent =
procedure(Sender: TObject; Column: TColumn;
var AState: TCheckboxState) of object;
type type
{ TBMStringList } { TBMStringList }
@ -285,6 +288,7 @@ type
FOnTitleClick: TDBGridClickEvent; FOnTitleClick: TDBGridClickEvent;
FOnSelectEditor: TDbGridSelEditorEvent; FOnSelectEditor: TDbGridSelEditorEvent;
FOnCheckboxBitmap: TDbGridCheckBoxBitmapEvent; FOnCheckboxBitmap: TDbGridCheckBoxBitmapEvent;
FOnCheckboxState: TDbGridCheckboxStateEvent;
FOptions: TDBGridOptions; FOptions: TDBGridOptions;
FReadOnly: Boolean; FReadOnly: Boolean;
FColEnterPending: Boolean; FColEnterPending: Boolean;
@ -462,6 +466,7 @@ type
property OnSelectEditor: TDbGridSelEditorEvent read FOnSelectEditor write FOnSelectEditor; property OnSelectEditor: TDbGridSelEditorEvent read FOnSelectEditor write FOnSelectEditor;
property OnTitleClick: TDBGridClickEvent read FOnTitleClick write FOnTitleClick; property OnTitleClick: TDBGridClickEvent read FOnTitleClick write FOnTitleClick;
property OnUserCheckboxBitmap: TDbGridCheckboxBitmapEvent read FOnCheckboxBitmap write FOnCheckboxBitmap; property OnUserCheckboxBitmap: TDbGridCheckboxBitmapEvent read FOnCheckboxBitmap write FOnCheckboxBitmap;
property OnUserCheckboxState: TDbGridCheckboxStateEvent read FOnCheckboxState write FOnCheckboxState;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure AutoSizeColumns; procedure AutoSizeColumns;
@ -569,6 +574,7 @@ type
property OnStartDrag; property OnStartDrag;
property OnTitleClick; property OnTitleClick;
property OnUserCheckboxBitmap; property OnUserCheckboxBitmap;
property OnUserCheckboxState;
property OnUTF8KeyPress; property OnUTF8KeyPress;
end; end;
@ -2708,6 +2714,9 @@ begin
else else
AState := cbGrayed; AState := cbGrayed;
if assigned(OnUserCheckboxState) then
OnUserCheckboxState(Self, TColumn(ColumnFromGridColumn(aCol)), AState);
DrawGridCheckboxBitmaps(aCol, Row{dummy}, ARect, AState); DrawGridCheckboxBitmaps(aCol, Row{dummy}, ARect, AState);
end; end;