Changeset 32 for trunk/UContact.pas

Timestamp:

Nov 25, 2021, 11:32:55 AM (3 years ago)

Author:

chronos

Message:

• Added: Bottom column filter bar in contacts list.
• Added: Allow to sort columns in contacts list.

File:

• trunk/UContact.pas (modified) (4 diffs)

trunk/UContact.pas

@@ -87 +87 @@
   TContacts = class(TFPGObjectList<TContact>)
     ContactsFile: TContactsFile;
+    procedure AssignToList(List: TFPGObjectList<TObject>);
     function AddNew: TContact;
     function Search(FullName: string): TContact;
@@ -185 +186 @@
 procedure TContactProperty.EvaluateAttributes;
 begin
+  if Attributes.IndexOf('BASE64') <> -1 then
+    Encoding := 'BASE64'
+  else
   if Attributes.IndexOfName('ENCODING') <> -1 then
     Encoding := Attributes.Values['ENCODING']
     else Encoding := '';
+
   if Attributes.IndexOfName('CHARSET') <> -1 then
     Charset := Attributes.Values['CHARSET']
@@ -245 +250 @@
 
 { TContacts }
+
+procedure TContacts.AssignToList(List: TFPGObjectList<TObject>);
+var
+  I: Integer;
+begin
+  List.Clear;
+  for I := 0 to Count - 1 do
+    List.Add(Items[I]);
+end;
 
 function TContacts.AddNew: TContact;
@@ -419 +433 @@
     AddNew('TITLE', [], 'Title', cfTitle, dtString);
     AddNew('CATEGORIES', [], 'Categories', cfCategories, dtString);
-    AddNew('ORG', [], 'Organization', cfOrganization, dtString);
+    AddNew('ORG', [], 'Organization', cfOrganization, dtString, 0);
+    AddNew('ORG', [], 'Division', cfOrganization, dtString, 1);
     AddNew('ADR', ['HOME'], 'Home Address', cfAdrHome, dtString);
     AddNew('ADR', ['HOME'], 'Home Address Street', cfHomeAddressStreet, dtString, 1);