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

4
components/tvplanit/source/vpimportpreview_icalevent.pas
View File

@ -66,7 +66,7 @@ begin
exit;
item := TVpICalEntry(FItems[ARow - Grid.FixedRows]);
if item <> nil then
item.Skip := not AChecked;
item.Checked := AChecked;
end;
function TVpImportPreviewICalEventForm.GetCellText(ACol, ARow: Integer): String;
@ -208,7 +208,7 @@ begin
exit;
item := TVpICalEntry(FItems[ARow - Grid.FixedRows]);
if (item <> nil) then
Result := not item.Skip;
Result := item.Checked;
end;
procedure TVpImportPreviewICalEventForm.PrepareItems;