From f1171ce62f9bae455ff94732a7c32b9317a3fa42 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Fri, 13 May 2011 21:49:18 +0000
Subject: [PATCH] IDE: fixed Options dialog crash after r30719 #49ca3709de, bug
 #19353

git-svn-id: trunk@30724 -
---
 ide/frames/editor_mouseaction_options_advanced.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/frames/editor_mouseaction_options_advanced.pas b/ide/frames/editor_mouseaction_options_advanced.pas
index d079882bda..68aacd42b6 100644
--- a/ide/frames/editor_mouseaction_options_advanced.pas
+++ b/ide/frames/editor_mouseaction_options_advanced.pas
@@ -54,7 +54,7 @@ type
     ContextTree: TTreeView;
     procedure ActionGridHeaderClick(Sender: TObject; IsColumn: Boolean; Index: Integer);
     procedure ActionGridCompareCells(Sender: TObject; ACol, ARow, BCol, BRow: Integer;
-      var Result: integer);
+      ASortOrder: TSortOrder; var Result: integer);
     procedure ActionGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
       X, Y: Integer);
     procedure ActionGridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@@ -145,7 +145,7 @@ begin
 end;
 
 procedure TEditorMouseOptionsAdvFrame.ActionGridCompareCells(Sender: TObject; ACol, ARow, BCol,
-  BRow: Integer; var Result: integer);
+  BRow: Integer; ASortOrder: TSortOrder; var Result: integer);
   function CompareCol(i : Integer) : Integer;
   var
     j: Integer;