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
2023-10-10 22:24:46 +00:00
parent f54a1641df
commit f0d8344fee
19 changed files with 611 additions and 692 deletions
--- a/components/tvplanit/examples/datastores/fb/unit1.lfm
+++ b/components/tvplanit/examples/datastores/fb/unit1.lfm
@@ -6,9 +6,9 @@ object Form1: TForm1
  Caption = 'Form1'
  ClientHeight = 686
  ClientWidth = 895
+  LCLVersion = '3.99.0.0'
  OnCreate = FormCreate
  OnDestroy = FormDestroy
-  LCLVersion = '2.3.0.0'
  object Panel1: TPanel
    Left = 0
    Height = 33
@@ -22,9 +22,10 @@ object Form1: TForm1
    TabOrder = 0
    object VpResourceCombo1: TVpResourceCombo
      AnchorSideLeft.Control = Panel1
+      AnchorSideTop.Control = Panel1
      Left = 4
      Height = 23
-      Top = 5
+      Top = 4
      Width = 208
      DataStore = VpFirebirdDatastore1
      Style = csDropDownList
@@ -35,6 +36,7 @@ object Form1: TForm1
    object BtnNewRes: TButton
      AnchorSideLeft.Control = VpResourceCombo1
      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
      Left = 216
      Height = 25
      Top = 4
@@ -44,12 +46,13 @@ 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
      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel1
      Left = 318
      Height = 25
      Top = 4
@@ -59,8 +62,24 @@ 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
+      Left = 416
+      Height = 25
+      Top = 4
+      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
@@ -81,16 +100,11 @@ object Form1: TForm1
        Height = 625
        Top = 0
        Width = 283
+        PopupMenu = VpDayView1.default
        DataStore = VpFirebirdDatastore1
        ControlLink = VpControlLink1
-        Color = clWindow
        Align = alLeft
-        ReadOnly = False
-        TabStop = True
        TabOrder = 0
-        AllDayEventAttributes.BackgroundColor = clBtnShadow
-        AllDayEventAttributes.EventBorderColor = cl3DDkShadow
-        AllDayEventAttributes.EventBackgroundColor = clBtnFace
        AllowDragAndDrop = True
        ShowEventTimes = False
        DrawingStyle = dsFlat
@@ -101,17 +115,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 = 288
@@ -129,26 +136,19 @@ object Form1: TForm1
          Height = 379
          Top = 0
          Width = 339
+          PopupMenu = VpWeekView1.default
          DataStore = VpFirebirdDatastore1
          ControlLink = VpControlLink1
-          Color = clWindow
          AllDayEventAttributes.BackgroundColor = clWindow
          AllDayEventAttributes.EventBorderColor = clGray
-          AllDayEventAttributes.EventBackgroundColor = clBtnFace
          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
-          HeadAttributes.Color = clBtnFace
          LineColor = clGray
-          TimeFormat = tf12Hour
-          ShowEventTime = True
          WeekStartsOn = dtMonday
          Align = alClient
-          TabStop = True
          TabOrder = 0
        end
        object VpMonthView1: TVpMonthView
@@ -156,30 +156,18 @@ object Form1: TForm1
          Height = 241
          Top = 384
          Width = 339
+          PopupMenu = VpMonthView1.default
          DataStore = VpFirebirdDatastore1
          ControlLink = VpControlLink1
-          Color = clWindow
          Align = alBottom
-          TabStop = True
          TabOrder = 1
-          DateLabelFormat = 'mmmm yyyy'
          DayHeadAttributes.Font.Height = -13
          DayHeadAttributes.Font.Name = 'Tahoma'
-          DayHeadAttributes.Color = clBtnFace
-          DayNameStyle = dsShort
          DrawingStyle = dsFlat
-          EventDayStyle = []
-          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
@@ -196,28 +184,15 @@ object Form1: TForm1
        Height = 625
        Top = 0
        Width = 255
+        PopupMenu = VpTaskList1.default
        DataStore = VpFirebirdDatastore1
        ControlLink = VpControlLink1
-        Color = clWindow
        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
-        LineColor = clGray
-        MaxVisibleTasks = 250
-        TaskHeadAttributes.Color = clSilver
        DrawingStyle = dsFlat
-        ShowResourceName = True
+        LineColor = clGray
+        TaskHeadAttributes.Color = clSilver
      end
      object Splitter1: TSplitter
        Left = 627
@@ -250,18 +225,12 @@ object Form1: TForm1
        Height = 625
        Top = 0
        Width = 847
+        PopupMenu = VpContactGrid1.default
        DataStore = VpFirebirdDatastore1
        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
@@ -277,7 +246,7 @@ object Form1: TForm1
    Top = 264
  end
  object VpResourceEditDialog1: TVpResourceEditDialog
-    Version = 'v1.12'
+    Version = 'v1.8.0'
    DataStore = VpFirebirdDatastore1
    Options = []
    Placement.Position = mpCenter
@@ -296,34 +265,20 @@ object Form1: TForm1
    Top = 120
  end
  object VpFirebirdDatastore1: TVpFirebirdDatastore
-    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
    Connection = IBConnection1
-    AutoConnect = False
    AutoCreate = False
-    DayBuffer = 31
    Left = 136
    Top = 200
  end
--- a/components/tvplanit/examples/datastores/fb/unit1.pas
+++ b/components/tvplanit/examples/datastores/fb/unit1.pas
@@ -17,6 +17,7 @@ type
  TForm1 = class(TForm)
    BtnNewRes: TButton;
    BtnEditRes: TButton;
+    BtnDeleteRes: TButton;
    IBConnection1: TIBConnection;
    PageControl1: TPageControl;
    Panel1: TPanel;
@@ -38,6 +39,7 @@ type
    VpResourceEditDialog1: TVpResourceEditDialog;
    VpTaskList1: TVpTaskList;
    VpWeekView1: TVpWeekView;
+    procedure BtnDeleteResClick(Sender: TObject);
    procedure BtnNewResClick(Sender: TObject);
    procedure BtnEditResClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
@@ -69,6 +71,21 @@ begin
  VpResourceEditDialog1.AddNewResource;
 end;

+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;
+
 // Edits the currently selected resource
 procedure TForm1.BtnEditResClick(Sender: TObject);
 begin