Changeset 17 for trunk/UCore.pas

Timestamp:

Feb 28, 2018, 12:56:11 PM (6 years ago)

Author:

chronos

Message:

• Added: New Generate contacts Tools menu action to generate multiple random contacts.

File:

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

trunk/UCore.pas

@@ -26 +26 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AGenerate: TAction;
     AFindDuplicate: TAction;
     AFileMerge: TAction;
@@ -57 +58 @@
     procedure AFileCloseExecute(Sender: TObject);
     procedure AFindDuplicateExecute(Sender: TObject);
+    procedure AGenerateExecute(Sender: TObject);
     procedure AHomePageExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
@@ -93 +95 @@
 
 uses
-  UFormMain, UFormAbout, UFormSettings, UContact, UFormContacts, UFormFindDuplicity;
+  UFormMain, UFormAbout, UFormSettings, UContact, UFormContacts, UFormFindDuplicity,
+  UFormGenerate;
 
 resourcestring
@@ -178 +181 @@
     Contacts := TContactsFile(DataFile).Contacts;
     ShowModal;
+    Free;
+  end;
+end;
+
+procedure TCore.AGenerateExecute(Sender: TObject);
+begin
+  FormGenerate := TFormGenerate.Create(nil);
+  with FormGenerate do begin
+    Contacts := TContactsFile(DataFile).Contacts;
+    ShowModal;
+    FormContacts.ReloadList;
+    FormContacts.UpdateInterface;
+    DataFile.Modified := True;
+    FormMain.UpdateInterface;
     Free;
   end;