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 RemoveResourceGroup(AGroup: TVpResourceGroup);
procedure Sort; procedure Sort;
property Count: Integer read GetCount; 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 Owner: TObject read FOwner;
property ResourceGroupCount: Integer read GetResourceGroupCount; property ResourceGroupCount: Integer read GetResourceGroupCount;
property ResourceGroups[Index: Integer]: TVpResourceGroup read GetResourceGroup; property ResourceGroups[Index: Integer]: TVpResourceGroup read GetResourceGroup;
@ -251,6 +251,7 @@ type
procedure Sort; procedure Sort;
property Owner: TVpResource read FOwner; property Owner: TVpResource read FOwner;
property EventCount: Integer read GetCount; property EventCount: Integer read GetCount;
property Items[AIndex: Integer]: TVpEvent read GetEvent; default;
end; end;
{ TVpEvent } { TVpEvent }
@ -399,6 +400,7 @@ type
procedure Sort; procedure Sort;
function GetTask(Index: Integer): TVpTask; function GetTask(Index: Integer): TVpTask;
property Owner: TVpResource read FOwner; property Owner: TVpResource read FOwner;
property Items[AIndex: Integer]: TVpTask read GetTask; default;
end; end;
TVpTask = class TVpTask = class
@ -508,11 +510,10 @@ type
procedure ExportVCardFile(const AFileName: String; const AContacts: TVpContactArr); procedure ExportVCardFile(const AFileName: String; const AContacts: TVpContactArr);
procedure Sort; procedure Sort;
property ContactsList: TList property ContactsList: TList read FContactsList;
read FContactsList; property ContactSort: TVpContactSort read FContactSort write SetContactSort default csLastFirst;
property ContactSort: TVpContactSort
read FContactSort write SetContactSort default csLastFirst;
property Owner: TVpResource read FOwner; property Owner: TVpResource read FOwner;
property Items[AIndex: Integer]: TVpContact read GetContact; default;
end; end;
TVpContact = class TVpContact = class

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

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