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