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

IDEIntf: fields editor: added Disable/EnableControls from Michael VC

Browse Source 
git-svn-id: trunk@16026 -
This commit is contained in:
mattias 2008-08-12 06:37:50 +00:00
parent a5d219e10b
commit 64ee105a75
1 changed files with 31 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
ideintf/fieldslist.pas
View File

@ -85,21 +85,30 @@ begin
end;
begin
PreActive := LinkDataset.Active;
LinkDataSet.Active := False;
fModified := False;
for i := 0 to ListBox1.Items.Count - 1 do begin
if ListBox1.Selected[i] And (LinkDataset.FindField(ListBox1.Items[i]) = Nil) then
begin
NewField := TFieldDef(ListBox1.Items.Objects[i]).CreateField(LinkDataset.Owner);
NewField.Name := CreateFieldName(LinkDataset.Owner, LinkDataset.Name + NewField.FieldName);
FDesigner.PropertyEditorHook.PersistentAdded(NewField, True);
fModified := True;
end;
end;
if fModified then FDesigner.Modified;
if PreActive then
LinkDataset.Active:=True;
LinkDataset.DisableControls;
try
PreActive := LinkDataset.Active;
try
LinkDataSet.Active := False;
fModified := False;
for i := 0 to ListBox1.Items.Count - 1 do
begin
if ListBox1.Selected[i] And (LinkDataset.FindField(ListBox1.Items[i]) = Nil) then
begin
NewField := TFieldDef(ListBox1.Items.Objects[i]).CreateField(LinkDataset.Owner);
NewField.Name := CreateFieldName(LinkDataset.Owner, LinkDataset.Name + NewField.FieldName);
FDesigner.PropertyEditorHook.PersistentAdded(NewField, True);
fModified := True;
end;
end;
if fModified then FDesigner.Modified;
Finally
if PreActive then
LinkDataset.Active:=True;
end;
Finally
LinkDataset.EnableControls;
end;
end;
procedure TFieldsListFrm.RefreshFieldsList;
@ -138,10 +147,13 @@ begin
LinkDataset.FieldDefs.Update;
PreActive:=LinkDataset.Active;
LinkDataset.Active := False;
i := FillList;
BitBtnOk.Enabled := i > 0;
if PreActive then
LinkDataset.Active:=True;
Try
i := FillList;
BitBtnOk.Enabled := i > 0;
Finally
if PreActive then
LinkDataset.Active:=True;
end;
end;
constructor TFieldsListFrm.Create(AOwner: TComponent; ADataset: TDataset;