From 49ca3709de9874b6d36d77f9552af354fc0db8b7 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 13 May 2011 09:42:51 +0000
Subject: [PATCH] LCL: Add SortOrder parameter to OnCompareCells event for
 custom sorting Grids.

git-svn-id: trunk@30719 -
---
 lcl/grids.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 0fd3eb76c4..34a9fd0938 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -291,7 +291,7 @@ type
 
   TOnCompareCells =
     procedure (Sender: TObject; ACol, ARow, BCol,BRow: Integer;
-               var Result: integer) of object;
+               ASortOrder: TSortOrder; var Result: integer) of object;
 
   TSelectEditorEvent =
     procedure(Sender: TObject; aCol, aRow: Integer;
@@ -6040,7 +6040,7 @@ function TCustomGrid.DoCompareCells(Acol, ARow, Bcol, BRow: Integer): Integer;
 begin
   result := 0;
   if Assigned(OnCompareCells) then
-    OnCompareCells(Self, ACol, ARow, BCol, BRow, Result);
+    OnCompareCells(Self, ACol, ARow, BCol, BRow, FSortOrder, Result);
 end;
 
 procedure TCustomGrid.DoCopyToClipboard;