paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 13:00:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: ListDataSourceFields

Browse Source 
git-svn-id: trunk@44308 -
This commit is contained in:
mattias 2014-03-01 16:19:24 +00:00
parent ea1e624deb
commit 8497743a6a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/ideintf/dbpropedits.pas
View File

@ -51,10 +51,11 @@ type
end;
function GetFieldDefsLookupRoot(APersistent: TPersistent): TPersistent;
procedure ListDataSourceFields(DataSource: TDataSource; List: TStrings);
implementation
procedure LoadDataSourceFields(DataSource: TDataSource; List: TStrings);
procedure ListDataSourceFields(DataSource: TDataSource; List: TStrings);
var
DataSet: TDataSet;
i: Integer;
@ -114,7 +115,7 @@ var
DataSource: TDataSource;
begin
DataSource := GetObjectProp(GetComponent(0), 'DataSource') as TDataSource;
LoadDataSourceFields(DataSource, Values);
ListDataSourceFields(DataSource, Values);
end;
{ TDBGridFieldProperty }
@ -128,7 +129,7 @@ begin
if not (Column is TColumn) then exit;
Grid:=TdbGrid(Column.Grid);
if not (Grid is TdbGrid) then exit;
LoadDataSourceFields(Grid.DataSource, Values);
ListDataSourceFields(Grid.DataSource, Values);
end;
{ TDBGridComponentEditor }
@ -161,7 +162,7 @@ var
DataSource: TDataSource;
begin
DataSource := GetObjectProp(GetComponent(0), 'ListSource') as TDataSource;
LoadDataSourceFields(DataSource, Values);
ListDataSourceFields(DataSource, Values);
end;
initialization