paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:59:14 +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; end;
begin begin
PreActive := LinkDataset.Active; LinkDataset.DisableControls;
LinkDataSet.Active := False; try
fModified := False; PreActive := LinkDataset.Active;
for i := 0 to ListBox1.Items.Count - 1 do begin try
if ListBox1.Selected[i] And (LinkDataset.FindField(ListBox1.Items[i]) = Nil) then LinkDataSet.Active := False;
begin fModified := False;
NewField := TFieldDef(ListBox1.Items.Objects[i]).CreateField(LinkDataset.Owner); for i := 0 to ListBox1.Items.Count - 1 do
NewField.Name := CreateFieldName(LinkDataset.Owner, LinkDataset.Name + NewField.FieldName); begin
FDesigner.PropertyEditorHook.PersistentAdded(NewField, True); if ListBox1.Selected[i] And (LinkDataset.FindField(ListBox1.Items[i]) = Nil) then
fModified := True; begin
end; NewField := TFieldDef(ListBox1.Items.Objects[i]).CreateField(LinkDataset.Owner);
end; NewField.Name := CreateFieldName(LinkDataset.Owner, LinkDataset.Name + NewField.FieldName);
if fModified then FDesigner.Modified; FDesigner.PropertyEditorHook.PersistentAdded(NewField, True);
if PreActive then fModified := True;
LinkDataset.Active:=True; end;
end;
if fModified then FDesigner.Modified;
Finally
if PreActive then
LinkDataset.Active:=True;
end;
Finally
LinkDataset.EnableControls;
end;
end; end;
procedure TFieldsListFrm.RefreshFieldsList; procedure TFieldsListFrm.RefreshFieldsList;
@ -138,10 +147,13 @@ begin
LinkDataset.FieldDefs.Update; LinkDataset.FieldDefs.Update;
PreActive:=LinkDataset.Active; PreActive:=LinkDataset.Active;
LinkDataset.Active := False; LinkDataset.Active := False;
i := FillList; Try
BitBtnOk.Enabled := i > 0; i := FillList;
if PreActive then BitBtnOk.Enabled := i > 0;
LinkDataset.Active:=True; Finally
if PreActive then
LinkDataset.Active:=True;
end;
end; end;
constructor TFieldsListFrm.Create(AOwner: TComponent; ADataset: TDataset; constructor TFieldsListFrm.Create(AOwner: TComponent; ADataset: TDataset;