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

tvplanit: Refactor ical/vcard import (property Skip --> Checked)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8398 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-19 14:06:54 +00:00
parent 259d689c42
commit a430be7bcf
6 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpical.pas
View File

@@ -18,11 +18,11 @@ type
TVpICalEntry = class(TVpFileBlock)
private
FCalendar: TVpICalendar;
FSkip: Boolean;
FChecked: Boolean;
public
constructor Create(ACalendar: TVpICalendar); virtual;
function FindItem(AKey: String): TVpICalItem;
property Skip: Boolean read FSkip write FSkip default false;
property Checked: Boolean read FChecked write FChecked default true;
end;
TVpICalTimeZoneInfo = class(TVpICalEntry)
@@ -283,6 +283,7 @@ end;
constructor TVpICalEntry.Create(ACalendar: TVpICalendar);
begin
inherited Create(TVpICalItem);
FChecked := true;
FCalendar := ACalendar;
end;