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

translation, docs

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@934 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-08-17 17:50:27 +00:00
parent 522d4d9dc1
commit 140121f8ac
27 changed files with 2262 additions and 591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/rx/rxsortmemds.pas
View File

@ -38,9 +38,13 @@ uses
Classes, SysUtils, DB, RxDBGrid;
type
{ TRxMemoryDataSortEngine }
TRxMemoryDataSortEngine = class(TExDBGridSortEngine)
public
procedure Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);override;
procedure SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);override;
end;
implementation
@ -49,7 +53,14 @@ uses rxmemds;
procedure TRxMemoryDataSortEngine.Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);
begin
if Assigned(ADataSet) then
(ADataSet as TRxMemoryData).SortOnFields(Field.FieldName, true, Asc);
(ADataSet as TRxMemoryData).SortOnFields(Field.FieldName, true, not Asc);
end;
procedure TRxMemoryDataSortEngine.SortList(ListField: string;
ADataSet: TDataSet; Asc: boolean);
begin
if Assigned(ADataSet) then
(ADataSet as TRxMemoryData).SortOnFields(ListField, true, not Asc);
end;
initialization