Changeset 130 for trunk/Packages/VCard/UVCard.pas

Timestamp:

Apr 9, 2022, 12:03:02 PM (2 years ago)

Author:

chronos

Message:

• Modified: VCard component moved into own package VCard.

Location:

trunk/Packages/VCard

Files:

• . (added)
• UVCard.pas (moved) (moved from trunk/UVCard.pas ) (4 diffs)

trunk/Packages/VCard/UVCard.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics, UListViewSort,
+  Classes, SysUtils, Dialogs, LazUTF8, Base64, Graphics,
   Generics.Collections, Generics.Defaults;
 
@@ -139 +139 @@
     property Encoding: TPropertyEncoding read GetEncoding write SetEncoding;
   end;
+
+  TObjects = TObjectList<TObject>;
 
   { TContactProperties }
@@ -253 +255 @@
   VCardEncoding = 'ENCODING';
   VCardCharset = 'CHARSET';
+
+procedure Register;
 
 
@@ -354 +358 @@
   SMySpace = 'MySpace';
 
+procedure Register;
+begin
+  RegisterComponents('Common', [TVCard]);
+end;
+
 function GetNext(var Text: string; Separator: string): string;
 begin