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

TvPlanIt: Fix leaving orphan events, tasks and contacts in a json datastore when a resource is deleted.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8951 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-12 14:13:03 +00:00
parent 85f217b38e
commit ad75d24647
4 changed files with 83 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/examples/datastores/xml/unit1.pas
View File

@ -38,8 +38,8 @@ type
VpWeekView1: TVpWeekView;
VpXmlDatastore1: TVpXmlDatastore;
procedure BtnDeleteResClick(Sender: TObject);
procedure BtnNewResClick(Sender: TObject);
procedure BtnEditResClick(Sender: TObject);
procedure BtnNewResClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
@ -67,6 +67,7 @@ begin
VpResourceEditDialog1.AddNewResource;
end;
// Deletes the currently selected resource
procedure TForm1.BtnDeleteResClick(Sender: TObject);
var
res: TVpResource;