TvPlanIt: Deletion of a resource deletes also the associated events, contacts and tasks. Tested with all database datastores. Update datastore sample projects.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8947 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/datastores/bufdataset/unit1.lfm

@@ -6,8 +6,8 @@ object Form1: TForm1
   Caption = 'Form1'
   ClientHeight = 686
   ClientWidth = 980
+  LCLVersion = '3.99.0.0'
   OnCreate = FormCreate
-  LCLVersion = '2.3.0.0'
   object Panel1: TPanel
     Left = 0
     Height = 34
@@ -47,8 +47,8 @@ object Form1: TForm1
       BorderSpacing.Top = 4
       BorderSpacing.Bottom = 4
       Caption = 'New resource'
-      OnClick = BtnNewResClick
       TabOrder = 1
+      OnClick = BtnNewResClick
     end
     object BtnEditRes: TButton
       AnchorSideLeft.Control = BtnNewRes
@@ -64,8 +64,25 @@ object Form1: TForm1
       BorderSpacing.Top = 4
       BorderSpacing.Bottom = 4
       Caption = 'Edit resource'
-      OnClick = BtnEditResClick
       TabOrder = 2
+      OnClick = BtnEditResClick
+    end
+    object BtnDeleteRes: TButton
+      AnchorSideLeft.Control = BtnEditRes
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
+      AnchorSideTop.Side = asrCenter
+      Left = 416
+      Height = 25
+      Top = 5
+      Width = 107
+      AutoSize = True
+      BorderSpacing.Left = 4
+      BorderSpacing.Top = 4
+      BorderSpacing.Bottom = 4
+      Caption = 'Delete resource'
+      TabOrder = 3
+      OnClick = BtnDeleteResClick
     end
   end
   object PageControl1: TPageControl
@@ -86,18 +103,13 @@ object Form1: TForm1
         Height = 624
         Top = 0
         Width = 301
+        PopupMenu = VpDayView1.default
         DataStore = VpBufDSDataStore1
         ControlLink = VpControlLink1
-        Color = clWindow
         Font.Height = -12
         ParentFont = False
         Align = alLeft
-        ReadOnly = False
-        TabStop = True
         TabOrder = 0
-        AllDayEventAttributes.BackgroundColor = clBtnShadow
-        AllDayEventAttributes.EventBorderColor = cl3DDkShadow
-        AllDayEventAttributes.EventBackgroundColor = clBtnFace
         AllDayEventAttributes.Font.Height = -12
         AllowDragAndDrop = True
         ShowEventTimes = False
@@ -109,17 +121,10 @@ object Form1: TForm1
         TimeSlotColors.ActiveRange.RangeBegin = h_00
         TimeSlotColors.ActiveRange.RangeEnd = h_00
         HeadAttributes.Font.Height = -13
-        HeadAttributes.Color = clBtnFace
         RowHeadAttributes.HourFont.Height = -24
         RowHeadAttributes.MinuteFont.Height = -12
-        RowHeadAttributes.Color = clBtnFace
-        ShowResourceName = True
         LineColor = clGray
-        GutterWidth = 7
         DateLabelFormat = 'dddd, mmmm dd, yyyy'
-        Granularity = gr30Min
-        DefaultTopHour = h_07
-        TimeFormat = tf12Hour
       end
       object Panel2: TPanel
         Left = 306
@@ -137,31 +142,24 @@ object Form1: TForm1
           Height = 378
           Top = 0
           Width = 386
+          PopupMenu = VpWeekView1.default
           DataStore = VpBufDSDataStore1
           ControlLink = VpControlLink1
-          Color = clWindow
           Font.Height = -12
           ParentFont = False
           AllDayEventAttributes.BackgroundColor = clWindow
           AllDayEventAttributes.EventBorderColor = clGray
-          AllDayEventAttributes.EventBackgroundColor = clBtnFace
           AllDayEventAttributes.Font.Height = -12
           DateLabelFormat = 'dddd, mmmm dd, yyyy'
-          DayHeadAttributes.Color = clBtnFace
           DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
           DayHeadAttributes.Font.Height = -13
           DayHeadAttributes.Font.Name = 'Tahoma'
-          DayHeadAttributes.Bordered = True
           DrawingStyle = dsFlat
           EventFont.Height = -12
           HeadAttributes.Font.Height = -12
-          HeadAttributes.Color = clBtnFace
           LineColor = clGray
-          TimeFormat = tf12Hour
-          ShowEventTime = True
           WeekStartsOn = dtMonday
           Align = alClient
-          TabStop = True
           TabOrder = 0
         end
         object VpMonthView1: TVpMonthView
@@ -169,34 +167,22 @@ object Form1: TForm1
           Height = 241
           Top = 383
           Width = 386
+          PopupMenu = VpMonthView1.default
           DataStore = VpBufDSDataStore1
           ControlLink = VpControlLink1
-          Color = clWindow
           Font.Height = -12
           ParentFont = False
           Align = alBottom
-          TabStop = True
           TabOrder = 1
-          DateLabelFormat = 'mmmm yyyy'
           DayHeadAttributes.Font.Height = -13
           DayHeadAttributes.Font.Name = 'Tahoma'
-          DayHeadAttributes.Color = clBtnFace
-          DayNameStyle = dsShort
           DayNumberFont.Height = -12
           DrawingStyle = dsFlat
-          EventDayStyle = []
           EventFont.Height = -12
-          HeadAttributes.Color = clBtnFace
-          KBNavigation = True
           OffDayColor = clSilver
-          SelectedDayColor = clRed
-          ShowEvents = True
-          ShowEventTime = False
-          TimeFormat = tf12Hour
           TodayAttributes.Color = clSilver
           TodayAttributes.BorderPen.Color = clRed
           TodayAttributes.BorderPen.Width = 3
-          WeekStartsOn = dtSunday
         end
         object Splitter2: TSplitter
           Cursor = crVSplit
@@ -213,31 +199,18 @@ object Form1: TForm1
         Height = 624
         Top = 0
         Width = 275
+        PopupMenu = VpTaskList1.default
         DataStore = VpBufDSDataStore1
         ControlLink = VpControlLink1
-        Color = clWindow
         Font.Height = -12
         ParentFont = False
         Align = alClient
-        TabStop = True
         TabOrder = 2
-        ReadOnly = False
-        DisplayOptions.CheckBGColor = clWindow
-        DisplayOptions.CheckColor = cl3DDkShadow
-        DisplayOptions.CheckStyle = csCheck
-        DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
-        DisplayOptions.ShowCompletedTasks = False
-        DisplayOptions.ShowAll = False
-        DisplayOptions.ShowDueDate = True
-        DisplayOptions.OverdueColor = clRed
         DisplayOptions.NormalColor = clBlack
-        DisplayOptions.CompletedColor = clGray
+        DrawingStyle = dsFlat
         LineColor = clGray
-        MaxVisibleTasks = 250
         TaskHeadAttributes.Color = clSilver
         TaskHeadAttributes.Font.Height = -12
-        DrawingStyle = dsFlat
-        ShowResourceName = True
       end
       object Splitter1: TSplitter
         Left = 692
@@ -270,18 +243,12 @@ object Form1: TForm1
         Height = 624
         Top = 0
         Width = 932
+        PopupMenu = VpContactGrid1.default
         DataStore = VpBufDSDataStore1
         ControlLink = VpControlLink1
-        Color = clWindow
         Align = alClient
-        TabStop = True
         TabOrder = 1
-        AllowInPlaceEditing = True
-        BarWidth = 3
-        BarColor = clSilver
         ColumnWidth = 200
-        ContactHeadAttributes.Color = clSilver
-        ContactHeadAttributes.Bordered = True
         DrawingStyle = dsFlat
       end
     end
@@ -297,7 +264,7 @@ object Form1: TForm1
     Top = 264
   end
   object VpResourceEditDialog1: TVpResourceEditDialog
-    Version = 'v1.12'
+    Version = 'v1.8.0'
     DataStore = VpBufDSDataStore1
     Options = []
     Placement.Position = mpCenter
@@ -309,33 +276,19 @@ object Form1: TForm1
     Top = 335
   end
   object VpBufDSDataStore1: TVpBufDSDataStore
-    CategoryColorMap.Category0.Color = clNavy
     CategoryColorMap.Category0.Description = 'Category 0'
-    CategoryColorMap.Category1.Color = clRed
     CategoryColorMap.Category1.Description = 'Category 1'
-    CategoryColorMap.Category2.Color = clYellow
     CategoryColorMap.Category2.Description = 'Category 2'
-    CategoryColorMap.Category3.Color = clLime
     CategoryColorMap.Category3.Description = 'Category 3'
-    CategoryColorMap.Category4.Color = clPurple
     CategoryColorMap.Category4.Description = 'Category 4'
-    CategoryColorMap.Category5.Color = clTeal
     CategoryColorMap.Category5.Description = 'Category 5'
-    CategoryColorMap.Category6.Color = clFuchsia
     CategoryColorMap.Category6.Description = 'Category 6'
-    CategoryColorMap.Category7.Color = clOlive
     CategoryColorMap.Category7.Description = 'Category 7'
-    CategoryColorMap.Category8.Color = clAqua
     CategoryColorMap.Category8.Description = 'Category 8'
-    CategoryColorMap.Category9.Color = clMaroon
     CategoryColorMap.Category9.Description = 'Category 9'
     HiddenCategories.BackgroundColor = clSilver
     HiddenCategories.Color = clGray
-    EnableEventTimer = True
-    PlayEventSounds = True
     AutoConnect = True
-    AutoCreate = True
-    DayBuffer = 31
     UseAutoIncFields = False
     Left = 136
     Top = 192

components/tvplanit/examples/datastores/bufdataset/unit1.pas

@@ -14,6 +14,7 @@ type
   { TForm1 }
 
   TForm1 = class(TForm)
+    BtnDeleteRes: TButton;
     BtnNewRes: TButton;
     BtnEditRes: TButton;
     PageControl1: TPageControl;
@@ -34,6 +35,7 @@ type
     VpResourceEditDialog1: TVpResourceEditDialog;
     VpTaskList1: TVpTaskList;
     VpWeekView1: TVpWeekView;
+    procedure BtnDeleteResClick(Sender: TObject);
     procedure BtnNewResClick(Sender: TObject);
     procedure BtnEditResClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -70,6 +72,22 @@ begin
   VpResourceEditDialog1.Execute;
 end;
 
+// Deletes the selected resource and associated events, contacts and tasks
+procedure TForm1.BtnDeleteResClick(Sender: TObject);
+var
+  res: TVpResource;
+begin
+  res := VpControlLink1.Datastore.Resource;
+  if res = nil then
+    exit;
+
+  if MessageDlg(Format('Do you really want to delete resource "%s"? This will also delete its events, tasks and contacts.',
+    [res.Description]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
+  begin
+    VpControlLink1.Datastore.DeleteResource(res);
+  end;
+end;
+
 // Load the last resource.
 procedure TForm1.FormCreate(Sender: TObject);
 var