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

tvplanit: Add option to select category to ical task import form. Update translations (de, en).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8385 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-12 13:47:03 +00:00
parent 6c53ea5417
commit b3d76d7f60
19 changed files with 309 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
components/tvplanit/source/vpimportpreview_vcard.pas
View File

@ -79,39 +79,19 @@ begin
s := ACard.GetWorkAddress;
if s <> '' then
Result := Result + LineEnding + 'Work address: ' + s;
Result := Result + LineEnding + RSWorkAddress + ' ' + s;
s := ACard.GetHomeAddress;
if s <> '' then
Result := Result + LineEnding + 'Home address: ' + s;
Result := Result + LineEnding + RSHomeAddress + ' ' + s;
s := ACard.GetPhone;
if s <> '' then
Result := Result + LineEnding + 'Phone: ' + s;
Result := Result + LineEnding + RSPhone + ' ' + s;
s := ACard.GetEMail;
if s <> '' then
Result := Result + LineEnding + 'E-Mail: ' + s;
(*
Result := RSDescriptionLbl + ' ' + AToDo.Summary + LineEnding +
RSDueDateLabel + ' ' + FormatDateTime(FTimeFormat, AToDo.DueTime[false]) + LineEnding +
RSCreatedOn + ' ' + FormatDateTime(FTimeFormat, AToDo.StartTime[false]);
case TVpTask.GetTaskPriority(AToDo.Priority) of
tpLow: s := RSLow;
tpNormal: s := RSNormal;
tpHigh: s := RSHigh;
end;
Result := Result + LineEnding + RSPriorityLabel + ' ' + s + LineEnding + RSCategoryLabel + ' ';
if Assigned(FDatastore) then
begin
cat := FDatastore.FindBestTaskCategory(AToDo.Categories);
if cat = '' then cat := FDefaultCategory;
Result := Result + cat;
end;
*)
Result := Result + LineEnding + RSEMail + ': ' + s;
end;
function TVpImportPreviewVCardForm.IsChecked(ARow: Integer): Boolean;
@ -134,7 +114,10 @@ begin
if FVCards <> nil then
for i := 0 to FVCards.Count-1 do
FItems.Add(FVCards.Card[i]);
inherited;
Grid.Columns[1].Title.Caption := RSContactItems;
end;
procedure TVpImportPreviewVCardForm.SetVCards(const AValue: TVpVCards);