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

LCL, grids, implemented notification for checkbox toggle

Browse Source 
git-svn-id: trunk@23510 -
This commit is contained in:
jesus 2010-01-20 20:53:22 +00:00
parent 4f92e05edc
commit dd8a42560f
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/grids.pas
View File

@ -305,6 +305,9 @@ type
procedure(sender: TObject; aCol, aRow: Integer; procedure(sender: TObject; aCol, aRow: Integer;
const OldValue: string; var NewValue: String) of object; const OldValue: string; var NewValue: String) of object;
TToggledCheckboxEvent = procedure(sender: TObject;
aState: TCheckboxState) of object;
{ TVirtualGrid } { TVirtualGrid }
TVirtualGrid=class TVirtualGrid=class
@ -619,6 +622,7 @@ type
FCol,FRow, FFixedCols, FFixedRows: Integer; FCol,FRow, FFixedCols, FFixedRows: Integer;
FOnEditButtonClick: TNotifyEvent; FOnEditButtonClick: TNotifyEvent;
FOnPickListSelect: TNotifyEvent; FOnPickListSelect: TNotifyEvent;
FOnCheckboxToggled: TToggledCheckboxEvent;
FOnPrepareCanvas: TOnPrepareCanvasEvent; FOnPrepareCanvas: TOnPrepareCanvasEvent;
FOnSelectEditor: TSelectEditorEvent; FOnSelectEditor: TSelectEditorEvent;
FOnValidateEntry: TValidateEntryEvent; FOnValidateEntry: TValidateEntryEvent;
@ -1013,6 +1017,7 @@ type
property VisibleRowCount: Integer read GetVisibleRowCount stored false; property VisibleRowCount: Integer read GetVisibleRowCount stored false;
property OnBeforeSelection: TOnSelectEvent read FOnBeforeSelection write FOnBeforeSelection; property OnBeforeSelection: TOnSelectEvent read FOnBeforeSelection write FOnBeforeSelection;
property OnCheckboxToggled: TToggledcheckboxEvent read FOnCheckboxToggled write FOnCheckboxToggled;
property OnCompareCells: TOnCompareCells read FOnCompareCells write FOnCompareCells; property OnCompareCells: TOnCompareCells read FOnCompareCells write FOnCompareCells;
property OnPrepareCanvas: TOnPrepareCanvasEvent read FOnPrepareCanvas write FOnPrepareCanvas; property OnPrepareCanvas: TOnPrepareCanvasEvent read FOnPrepareCanvas write FOnPrepareCanvas;
property OnDrawCell: TOnDrawCell read FOnDrawCell write FOnDrawCell; property OnDrawCell: TOnDrawCell read FOnDrawCell write FOnDrawCell;
@ -1302,6 +1307,7 @@ type
property VisibleRowCount; property VisibleRowCount;
property OnBeforeSelection; property OnBeforeSelection;
property OnCheckboxToggled;
property OnClick; property OnClick;
property OnColRowDeleted; property OnColRowDeleted;
property OnColRowExchanged; property OnColRowExchanged;
@ -1495,6 +1501,7 @@ type
property OnBeforeSelection; property OnBeforeSelection;
property OnChangeBounds; property OnChangeBounds;
property OnCheckboxToggled;
property OnClick; property OnClick;
property OnColRowDeleted; property OnColRowDeleted;
property OnColRowExchanged; property OnColRowExchanged;
@ -8394,6 +8401,9 @@ begin
AState := cbChecked; AState := cbChecked;
SetCheckboxState(Col, Row, AState); SetCheckboxState(Col, Row, AState);
if Assigned(OnCheckboxToggled) then
OnCheckboxToggled(self, AState);
end; end;
end; end;