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

11
components/rx/exsortfb.pas
View File

@@ -44,9 +44,13 @@ uses
;
type
{ TFBDataSetSortEngine }
TFBDataSetSortEngine = class(TExDBGridSortEngine)
public
procedure Sort(Field:TField; ADataSet:TDataSet; Asc:boolean);override;
procedure SortList(ListField:string; ADataSet:TDataSet; Asc:boolean);override;
end;
implementation
@@ -58,6 +62,13 @@ begin
(ADataSet as TFBDataSet).SortOnField(Field.FieldName, Asc);
end;
procedure TFBDataSetSortEngine.SortList(ListField: string; ADataSet: TDataSet;
Asc: boolean);
begin
if Assigned(ADataSet) then
(ADataSet as TFBDataSet).SortOnFields(ListField, Asc);
end;
initialization
RegisterExDBGridSortEngine(TFBDataSetSortEngine, TFBDataSet);
end.