pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix missing change notification of TaskEditDialog. Fix hang of ZeosDatastore in SetConnected.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4763 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-17 21:29:44 +00:00
parent 44863b6274
commit e122be6b59
3 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/tvplanit/source/vpbaseds.pas
View File

@ -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

1
components/tvplanit/source/vpreseditdlg.pas
View File

@ -162,6 +162,7 @@ begin
EditForm.ShowModal;
if EditForm.ReturnCode = rtCommit then begin
EditForm.DePopulateSelf;
DataStore.NotifyDependents;
result := true;
end;
finally

2
components/tvplanit/source/vpzeosds.pas
View File

@ -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