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

tvplant: Fix duplicate storage of events in sqlite3 datastore

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4770 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-18 19:45:43 +00:00
parent aafafb3e26
commit a089da3b74
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -733,7 +733,7 @@ begin
result := (DlgEventEdit.ReturnCode = rtCommit); result := (DlgEventEdit.ReturnCode = rtCommit);
if Result then begin if Result then begin
DlgEventEdit.DePopulateDialog; DlgEventEdit.DePopulateDialog;
DataStore.PostEvents; // DataStore.PostEvents;
end; end;
finally finally
DlgEventEdit.Release; DlgEventEdit.Release;

4
components/tvplanit/source/vptaskeditdlg.pas
View File

@ -212,8 +212,8 @@ begin
Task.Changed := Result; Task.Changed := Result;
if Result then begin if Result then begin
TaskEditForm.DePopulateSelf; TaskEditForm.DePopulateSelf;
DataStore.PostTasks; // DataStore.PostTasks;
DataStore.NotifyDependents; // DataStore.NotifyDependents;
end; end;
finally finally
TaskEditForm.Release; TaskEditForm.Release;

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

@ -1464,6 +1464,7 @@ begin
end; end;
if AllowIt then begin if AllowIt then begin
DataStore.PostTasks(); DataStore.PostTasks();
DataStore.NotifyDependents;
Invalidate; Invalidate;
end else begin end else begin
if NewTask then begin if NewTask then begin