Changeset 76 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Forms/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -17 +17 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
     MenuItem3: TMenuItem;
-    MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     MenuItemToolbar: TMenuItem;
     MenuItemView: TMenuItem;
@@ -90 +93 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  FormContacts := TFormContacts.Create(nil);
 end;
 
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
-  FormContacts.Free;
+  FreeAndNil(FormContacts);
 end;
 
@@ -111 +115 @@
   CoolBar1.AutosizeBands;
 
-  FormContacts := TFormContacts.Create(nil);
   FormContacts.Contacts := TContactsFile(Core.DataFile).Contacts;
   FormContacts.ManualDock(Self, nil, alClient);