paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 07:56:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf, DBGridColumnsPropertyEditorForm: Simplify actAddFieldsExecute a lot, new method GetDataSet. Issue #32903, patch from FTurtle.

Browse Source 
git-svn-id: trunk@57061 -
This commit is contained in:
juha 2018-01-12 16:39:18 +00:00
parent 8e09be3eed
commit 61e0c2a1ff
1 changed files with 31 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
components/ideintf/dbgridcolumnspropeditform.pas
View File

@ -52,6 +52,7 @@ type
FOwnerPersistent: TPersistent;
FPropertyName: String;
procedure FillCollectionListBox;
function GetDataSet: TDataSet;
procedure SelectInObjectInspector;
procedure UnSelectInObjectInspector;
procedure UpdDesignHook(aSelection: TPersistentSelectionList);
@ -135,54 +136,33 @@ end;
procedure TDBGridColumnsPropertyEditorForm.actAddFieldsExecute(Sender: TObject);
var
It : TCollectionItem;
flChanged : Boolean;
flEmpty : Boolean;
i : Integer;
DataSet: TDataSet;
Item: TColumn;
i: Integer;
begin
if Collection = nil then Exit;
if not ( Collection is TDBGridColumns ) then Exit;
if Collection=nil then Exit;
if not (Collection is TDBGridColumns) then Exit;
DataSet:=GetDataSet;
if DataSet=nil then Exit;
flChanged := False;
flEmpty := False;
if Collection.Count > 0 then
It := Collection.Items[ 0 ]
else begin
It := Collection.Add;
flEmpty:=True;
end;
if Collection.Count>0 then
if (MessageDlg(dceColumnEditor, dceOkToDelete, mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then
Exit;
if flEmpty or (MessageDlg(dceColumnEditor, dceOkToDelete, mtConfirmation,
[mbYes, mbNo], 0) = mrYes) then
try
if (It is TColumn) and ( Assigned( TDBGrid( TColumn( It ).Grid).DataSource ) )
and Assigned ( TDBGrid( TColumn( It ).Grid).DataSource.DataSet ) then
begin
flChanged:=True;
Collection.Clear;
It := Collection.Add;
if TDBGrid( TColumn( It ).Grid).DataSource.DataSet.Fields.Count > 0 then
begin
for i := 0 to TDBGrid( TColumn( It ).Grid).DataSource.DataSet.Fields.Count - 1 do
begin
if i > 0 then
It := Collection.Add;
TColumn( It ).Field:=TDBGrid( TColumn( It ).Grid).DataSource.DataSet.Fields[ i ];
TColumn( It ).Title.Caption:=TDBGrid( TColumn( It ).Grid).DataSource.DataSet.Fields[ i ].DisplayLabel;
end;
end;
end;
finally
if flChanged or flEmpty then
begin
if not flChanged then
Collection.Clear;
RefreshPropertyValues;
UpdateButtons;
UpdateCaption;
Modified;
end;
try
Collection.Clear;
for i:=0 to DataSet.Fields.Count-1 do
begin
Item:=Collection.Add as TColumn;
Item.Field:=DataSet.Fields[i];
Item.Title.Caption:=DataSet.Fields[i].DisplayLabel;
end;
finally
RefreshPropertyValues;
UpdateButtons;
UpdateCaption;
Modified;
end;
end;
procedure TDBGridColumnsPropertyEditorForm.actDeleteAllExecute(Sender: TObject);
@ -242,8 +222,7 @@ var
Field: TField;
i: Integer;
begin
if (FOwnerPersistent as TDBGrid).DataSource=nil then Exit;
DataSet:=TDBGrid(FOwnerPersistent).DataSource.DataSet;
DataSet:=GetDataSet;
if DataSet=nil then Exit;
if MessageDlg(dceColumnEditor, dceWillReplaceContinue, mtConfirmation,
@ -397,6 +376,12 @@ begin
end;
end;
function TDBGridColumnsPropertyEditorForm.GetDataSet: TDataSet;
begin
if (FOwnerPersistent as TDBGrid).DataSource=nil then Exit(nil);
Result:=TDBGrid(FOwnerPersistent).DataSource.DataSet;
end;
procedure TDBGridColumnsPropertyEditorForm.SelectInObjectInspector;
var
I: Integer;