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

Reverted r30719 (adding SortOrder parameter to OnCompareCells event) and all subsequent commits (r30724, r30727 #7cdf1cffde) which were intended to fix breakage it caused

Browse Source 
git-svn-id: trunk@30729 -
This commit is contained in:
maxim 2011-05-13 22:54:51 +00:00
parent 2f96fc8b27
commit 29d00b67cf
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/gridexamples/grid_semaphor/semaphorgrids.pas
View File

@ -556,7 +556,7 @@ begin
if result>0 then result:=-1; if result>0 then result:=-1;
end; end;
if assigned(OnCompareCells) then if assigned(OnCompareCells) then
OnCompareCells(Self, ACol,ARow,BCol,BRow, soAscending, Result); OnCompareCells(Self, ACol,ARow,BCol,BRow, Result);
end; end;
procedure TSemaphorGrid.DeleteColumn(j:integer); procedure TSemaphorGrid.DeleteColumn(j:integer);

4
ide/frames/editor_mouseaction_options_advanced.pas
View File

@ -54,7 +54,7 @@ type
ContextTree: TTreeView; ContextTree: TTreeView;
procedure ActionGridHeaderClick(Sender: TObject; IsColumn: Boolean; Index: Integer); procedure ActionGridHeaderClick(Sender: TObject; IsColumn: Boolean; Index: Integer);
procedure ActionGridCompareCells(Sender: TObject; ACol, ARow, BCol, BRow: Integer; procedure ActionGridCompareCells(Sender: TObject; ACol, ARow, BCol, BRow: Integer;
ASortOrder: TSortOrder; var Result: integer); var Result: integer);
procedure ActionGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; procedure ActionGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); X, Y: Integer);
procedure ActionGridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure ActionGridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@ -145,7 +145,7 @@ begin
end; end;
procedure TEditorMouseOptionsAdvFrame.ActionGridCompareCells(Sender: TObject; ACol, ARow, BCol, procedure TEditorMouseOptionsAdvFrame.ActionGridCompareCells(Sender: TObject; ACol, ARow, BCol,
BRow: Integer; ASortOrder: TSortOrder; var Result: integer); BRow: Integer; var Result: integer);
function CompareCol(i : Integer) : Integer; function CompareCol(i : Integer) : Integer;
var var
j: Integer; j: Integer;

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;
ASortOrder: TSortOrder; var Result: integer) of object; 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, FSortOrder, Result); OnCompareCells(Self, ACol, ARow, BCol, BRow, Result);
end; end;
procedure TCustomGrid.DoCopyToClipboard; procedure TCustomGrid.DoCopyToClipboard;