Changeset 152 for trunk/Packages

Timestamp:

Jun 6, 2023, 5:05:18 PM (18 months ago)

Author:

chronos

Message:

• Added: VCardProcessor class for processing contacts available from VCard package.
• Added: Normalize menu action for normalization of contact property values.

Location:

trunk/Packages/VCard

Files:

• VCard.lpk (modified) (1 diff)
• VCard.pas (modified) (4 diffs)
• VCardPackage.pas (modified) (1 diff)
• VCardProcessor.pas (added)

trunk/Packages/VCard/VCard.lpk

@@ -57 +57 @@
         <UnitName Value="VCardPackage"/>
       </Item>
+      <Item>
+        <Filename Value="VCardProcessor.pas"/>
+        <UnitName Value="VCardProcessor"/>
+      </Item>
     </Files>
     <i18n>

trunk/Packages/VCard/VCard.pas

@@ -1298 +1298 @@
 var
   I: Integer;
+  ContactProperty: TContactProperty;
 begin
   inherited Sort(TComparer<TContact>.Construct(CompareContactFullName));
-  for I := 0 to Count - 1 do
+  for I := 0 to Count - 1 do begin
     Items[I].Properties.Sort(TComparer<TContactProperty>.Construct(ComparePropertyName));
+
+    // Make sure VERSION is first property
+    ContactProperty := Items[I].Properties.GetByName('VERSION');
+    if Assigned(ContactProperty) then begin
+      Items[I].Properties.Move(Items[I].Properties.IndexOf(ContactProperty), 0);
+    end;
+  end;
 end;
 
@@ -1791 +1799 @@
   LinePrefix: string;
   CutLength: Integer;
+  Cut: Boolean;
 begin
   with Output do begin
@@ -1814 +1823 @@
         LineIndex := 0;
         LinePrefix := '';
+        Cut := False;
         while True do begin
           if UTF8Length(OutText) > ParentVCard.MaxLineLength then begin
+            Cut := True;
             CutLength := ParentVCard.MaxLineLength;
             if Encoding = veQuotedPrintable then begin
@@ -1837 +1848 @@
           end else begin
             Add(LinePrefix + OutText);
+            if Cut then Add('');
             Break;
           end;

trunk/Packages/VCard/VCardPackage.pas

@@ -9 +9 @@
 
 uses
-  VCard, QuotedPrintable, ContactImage, LazarusPackageIntf;
+  VCard, QuotedPrintable, ContactImage, VCardProcessor, LazarusPackageIntf;
 
 implementation