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

LCL: Add SortOrder parameter to OnCompareCells event for custom sorting Grids.

Browse Source 
git-svn-id: trunk@30719 -
This commit is contained in:
juha 2011-05-13 09:42:51 +00:00
parent 53aafb3215
commit 49ca3709de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -291,7 +291,7 @@ type
TOnCompareCells = TOnCompareCells =
procedure (Sender: TObject; ACol, ARow, BCol,BRow: Integer; procedure (Sender: TObject; ACol, ARow, BCol,BRow: Integer;
var Result: integer) of object; ASortOrder: TSortOrder; var Result: integer) of object;
TSelectEditorEvent = TSelectEditorEvent =
procedure(Sender: TObject; aCol, aRow: Integer; procedure(Sender: TObject; aCol, aRow: Integer;
@ -6040,7 +6040,7 @@ function TCustomGrid.DoCompareCells(Acol, ARow, Bcol, BRow: Integer): Integer;
begin begin
result := 0; result := 0;
if Assigned(OnCompareCells) then if Assigned(OnCompareCells) then
OnCompareCells(Self, ACol, ARow, BCol, BRow, Result); OnCompareCells(Self, ACol, ARow, BCol, BRow, FSortOrder, Result);
end; end;
procedure TCustomGrid.DoCopyToClipboard; procedure TCustomGrid.DoCopyToClipboard;