Changeset 76 for trunk/UContact.pas

Timestamp:

Dec 15, 2021, 8:56:06 PM (2 years ago)

Author:

chronos

Message:

• Added: Find dialog to search text value by given contact field or by any field.

File:

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

trunk/UContact.pas

@@ -15 +15 @@
   TDataType = (dtNone, dtString, dtInteger, dtDate, dtDateTime, dtImage, dtStringList);
 
-  TContactFieldIndex = (cfFirstName, cfMiddleName, cfLastName, cfTitleBefore,
+  TContactFieldIndex = (cfNone, cfFirstName, cfMiddleName, cfLastName, cfTitleBefore,
     cfTitleAfter, cfFullName,
     cfTel, cfTelCell, cfTelFax, cfTelPager, cfTelHome2, cfTelVoip, cfTelMain,
@@ -33 +33 @@
     cfTwitter, cfFacebook, cfInstagram, cfSnapchat, cfMatrix, cfYoutube,
     cfPeerTube, cfLinkedIn, cfMastodon, cfMySpace, cfReddit);
+
+  TContactFieldIndexes = TFPGList<TContactFieldIndex>;
+
+  TContactFilterItem = class
+    FieldIndex: TContactFieldIndex;
+    Value: string;
+  end;
+
+  { TContactFilterItems }
+
+  TContactFilterItems = class(TFPGObjectList<TContactFilterItem>)
+    function AddNew(FieldIndex: TContactFieldIndex; Value: string): TContactFilterItem;
+  end;
 
   TContactFields = class;
@@ -348 +361 @@
   end;
   SetLength(Result, O - 1);
+end;
+
+{ TContactFilterItems }
+
+function TContactFilterItems.AddNew(FieldIndex: TContactFieldIndex;
+  Value: string): TContactFilterItem;
+begin
+  Result := TContactFilterItem.Create;
+  Result.FieldIndex := FieldIndex;
+  Result.Value := Value;
+  Add(Result);
 end;