pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix compilation for zeos sort engine for rxdbgrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1430 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2011-01-08 12:26:10 +00:00
parent 21900be3c0
commit 7196a34234
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/rx/exsortzeos.pas
View File

@ -8,15 +8,18 @@ uses
Classes, SysUtils, DB, RxDBGrid, ZConnection, ZDataset, ZAbstractRODataset;
type
TFBDataSetSortEngine = class(TExDBGridSortEngine)
{ TZeosDataSetSortEngine }
TZeosDataSetSortEngine = class(TRxDBGridSortEngine)
public
procedure Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);override;
procedure Sort(Field:TField; ADataSet:TDataSet; Asc:boolean; SortOptions:TRxSortEngineOptions);override;
procedure SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);override;
end;
implementation
procedure TFBDataSetSortEngine.Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);
procedure TZeosDataSetSortEngine.Sort(Field:TField; ADataSet:TDataSet; Asc:boolean; SortOptions:TRxSortEngineOptions);
begin
if Assigned(ADataSet) then
if ADataSet.ClassName='TZReadOnlyQuery' then
@ -47,7 +50,7 @@ begin
end;
end;
procedure TFBDataSetSortEngine.SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);
procedure TZeosDataSetSortEngine.SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);
begin
if Assigned(ADataSet) then
if ADataSet.ClassName='TZReadOnlyQuery' then
@ -80,8 +83,8 @@ end;
initialization
RegisterExDBGridSortEngine(TFBDataSetSortEngine, TZReadOnlyQuery);
RegisterExDBGridSortEngine(TFBDataSetSortEngine, TZQuery);
RegisterExDBGridSortEngine(TFBDataSetSortEngine, TZTable);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZReadOnlyQuery);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZQuery);
RegisterRxDBGridSortEngine(TZeosDataSetSortEngine, TZTable);
end.