paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 06:19:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, publish OnGetCheckboxState and OnSetCheckboxState for drawgrid

Browse Source 
git-svn-id: trunk@39142 -
This commit is contained in:
jesus 2012-10-20 00:03:37 +00:00
parent e10b54f335
commit 20b874b8f0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -1444,6 +1444,7 @@ type
property OnEndDrag;
property OnEnter;
property OnExit;
property OnGetCheckboxState;
property OnGetEditMask;
property OnGetEditText;
property OnHeaderClick;
@ -1464,6 +1465,7 @@ type
property OnSelectEditor;
property OnSelection;
property OnSelectCell;
property OnSetCheckboxState;
property OnSetEditText;
property OnStartDock;
property OnStartDrag;
@ -9579,8 +9581,11 @@ end;
procedure TCustomDrawGrid.SetCheckboxState(const aCol, aRow: Integer;
const aState: TCheckboxState);
begin
if assigned(FOnSetCheckboxState) then
if assigned(FOnSetCheckboxState) then begin
OnSetCheckboxState(self, aCol, aRow, aState);
if DefaultDrawing then
InvalidateCell(aCol, aRow);
end;
end;
function TCustomDrawGrid.CreateVirtualGrid: TVirtualGrid;