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

TvPlanIt: Add "Items" as default properties for TVpResources, TVpSchedule, TVpTasks, and TVpContacts

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8891 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-07-22 10:35:11 +00:00
parent 72c05e3403
commit 6a736b0135
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/source/vpdata.pas
View File

@ -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

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

@ -1077,7 +1077,6 @@ var
if IncDrawPos then
inc(DrawPos, w + FScaledIconMargin);
end;
end;