diff --git a/components/tvplanit/source/vpbaseds.pas b/components/tvplanit/source/vpbaseds.pas index 7f09c1c77..95577fba3 100644 --- a/components/tvplanit/source/vpbaseds.pas +++ b/components/tvplanit/source/vpbaseds.pas @@ -653,8 +653,7 @@ var begin for i := 0 to FNotifiers.Count - 1 do if Assigned (FNotifiers[i]) then - PostMessage (PVpWatcher (FNotifiers[i]).Handle, - Vp_DataStoreChanged, 0, 0); + PostMessage (PVpWatcher (FNotifiers[i]).Handle, Vp_DataStoreChanged, 0, 0); end; {=====} @@ -976,9 +975,8 @@ begin Res := DataStore.Resources.Items[I]; if Res = nil then Continue; - if Res.Description <> '' then begin + if Res.Description <> '' then Items.Add(Res.Description); - end; end; if DataStore.Resource = nil then diff --git a/components/tvplanit/source/vpreseditdlg.pas b/components/tvplanit/source/vpreseditdlg.pas index b4c964efd..9b8d2d2c4 100644 --- a/components/tvplanit/source/vpreseditdlg.pas +++ b/components/tvplanit/source/vpreseditdlg.pas @@ -162,6 +162,7 @@ begin EditForm.ShowModal; if EditForm.ReturnCode = rtCommit then begin EditForm.DePopulateSelf; + DataStore.NotifyDependents; result := true; end; finally diff --git a/components/tvplanit/source/vpzeosds.pas b/components/tvplanit/source/vpzeosds.pas index 6f79f3c39..e8d275788 100644 --- a/components/tvplanit/source/vpzeosds.pas +++ b/components/tvplanit/source/vpzeosds.pas @@ -292,7 +292,7 @@ end; procedure TVpZeosDatastore.SetConnected(const AValue: Boolean); begin - if {(AValue = Connected) or }(FConnection = nil) then + if (AValue = Connected) or (FConnection = nil) then exit; if AValue and AutoCreate then