Changeset 17 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormContacts.lfm (modified) (3 diffs)
• UFormContacts.pas (modified) (1 diff)
• UFormGenerate.lfm (added)
• UFormGenerate.pas (added)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormContacts.lfm

@@ -7 +7 @@
   ClientHeight = 605
   ClientWidth = 807
+  DesignTimePPI = 120
   OnClose = FormClose
   OnCreate = FormCreate
   OnShow = FormShow
-  LCLVersion = '1.8.0.4'
+  LCLVersion = '1.8.0.6'
   object ListView1: TListView
     Left = 0
@@ -32 +33 @@
       item
         Caption = 'Last Name'
-        Width = 387
+        Width = 100
+      end    
+      item
+        Caption = 'Cell phone'
+        Width = 100
+      end    
+      item
+        Caption = 'Home phone'
+        Width = 100
       end>
     MultiSelect = True
@@ -59 +68 @@
     end
     object ToolButton2: TToolButton
-      Left = 30
+      Left = 24
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 59
+      Left = 47
       Top = 2
       Action = ARemove

trunk/Forms/UFormContacts.pas

@@ -75 +75 @@
     Item.SubItems.Add(MiddleName);
     Item.SubItems.Add(LastName);
+    Item.SubItems.Add(TelCell);
+    Item.SubItems.Add(TelHome);
     Item.Data := Contacts[Item.Index];
   end;

trunk/Forms/UFormMain.lfm

@@ -167 +167 @@
         Action = Core.AFindDuplicate
       end
+      object MenuItem5: TMenuItem
+        Action = Core.AGenerate
+      end
     end
     object MenuItemHelp: TMenuItem

trunk/Forms/UFormMain.pas

@@ -19 +19 @@
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
     MenuItemToolbar: TMenuItem;
     MenuItemView: TMenuItem;
@@ -111 +112 @@
   Control: TControl;
 begin
- for J := 0 to CoolBar1.ControlCount - 1 do begin
+  for J := 0 to CoolBar1.ControlCount - 1 do begin
     Control := CoolBar1.Controls[J];
     if Control is TToolBar then begin