paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 05:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed Options dialog crash after r30719 #49ca3709de, bug #19353

Browse Source 
git-svn-id: trunk@30724 -
This commit is contained in:
maxim 2011-05-13 21:49:18 +00:00
parent dc1a10aa77
commit f1171ce62f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/editor_mouseaction_options_advanced.pas
View File

@ -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;