From 6a736b013566d4a9a1ec5db7a12cc38f64ef5c6f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 22 Jul 2023 10:35:11 +0000
Subject: [PATCH] TvPlanIt: Add "Items" as default properties for TVpResources,
 TVpSchedule, TVpTasks, and TVpContacts

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8891 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpdata.pas           | 11 ++++++-----
 components/tvplanit/source/vpdayviewpainter.pas |  1 -
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas
index 70664076a..62422987e 100644
--- a/components/tvplanit/source/vpdata.pas
+++ b/components/tvplanit/source/vpdata.pas
@@ -106,7 +106,7 @@ type
     procedure RemoveResourceGroup(AGroup: TVpResourceGroup);
     procedure Sort;
     property Count: Integer read GetCount;
-    property Items[Index: Integer]: TVpResource read GetItem;
+    property Items[Index: Integer]: TVpResource read GetItem; default;
     property Owner: TObject read FOwner;
     property ResourceGroupCount: Integer read GetResourceGroupCount;
     property ResourceGroups[Index: Integer]: TVpResourceGroup read GetResourceGroup;
@@ -251,6 +251,7 @@ type
     procedure Sort;
     property Owner: TVpResource read FOwner;
     property EventCount: Integer read GetCount;
+    property Items[AIndex: Integer]: TVpEvent read GetEvent; default;
   end;
 
   { TVpEvent }
@@ -399,6 +400,7 @@ type
     procedure Sort;
     function GetTask(Index: Integer): TVpTask;
     property Owner: TVpResource read FOwner;
+    property Items[AIndex: Integer]: TVpTask read GetTask; default;
   end;
 
   TVpTask = class
@@ -508,11 +510,10 @@ type
     procedure ExportVCardFile(const AFileName: String; const AContacts: TVpContactArr);
     procedure Sort;
 
-    property ContactsList: TList
-      read FContactsList;
-    property ContactSort: TVpContactSort
-      read FContactSort write SetContactSort default csLastFirst;
+    property ContactsList: TList read FContactsList;
+    property ContactSort: TVpContactSort read FContactSort write SetContactSort default csLastFirst;
     property Owner: TVpResource read FOwner;
+    property Items[AIndex: Integer]: TVpContact read GetContact; default;
   end;
 
   TVpContact = class
diff --git a/components/tvplanit/source/vpdayviewpainter.pas b/components/tvplanit/source/vpdayviewpainter.pas
index ca71f371f..fd5e738c0 100644
--- a/components/tvplanit/source/vpdayviewpainter.pas
+++ b/components/tvplanit/source/vpdayviewpainter.pas
@@ -1077,7 +1077,6 @@ var
 
       if IncDrawPos then
         inc(DrawPos, w + FScaledIconMargin);
-
     end;
   end;