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/vpvcard.pas
View File

@ -53,7 +53,7 @@ type
FCategories: TStrings;
FPickedCategory: Integer;
FSkip: Boolean;
FChecked: Boolean;
function GetCategory(AIndex: Integer): String;
function GetCategoryCount: Integer;
@ -107,7 +107,7 @@ type
property PickedCategory: Integer read FPickedCategory write FPickedCategory;
property Version: String read FVersion;
property Skip: Boolean read FSkip write FSkip; // Flag to skip import
property Checked: Boolean read FChecked write FChecked default true; // Flag to skip import
end;
TVpVCards = class
@ -218,6 +218,7 @@ end;
constructor TVpVCard.Create;
begin
inherited Create(TVpVCardItem);
FChecked := true;
FCategories := TStringList.Create;
FCategories.Delimiter := ','; // VCard categories are separated by comma in vcf file.
FCategories.StrictDelimiter := true;