Changeset 8 for trunk/Forms/UFormContact.pas

Timestamp:

Feb 1, 2018, 12:51:32 PM (6 years ago)

Author:

chronos

Message:

• Added: Show all fields tab in contact form.

File:

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

trunk/Forms/UFormContact.pas

@@ -36 +36 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
   private
-
+    Contact: TContact;
   public
+    procedure ReloadFields;
     procedure LoadData(Contact: TContact);
     procedure SaveData(Contact: TContact);
@@ -58 +60 @@
 begin
   Core.PersistentForm1.Load(Self);
+  PageControlContact.TabIndex := 0;
+  ReloadFields;
+end;
+
+procedure TFormContact.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < Contact.Parent.Fields.Count then
+  with TContactField(Contact.Parent.Fields[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.SubItems.Add(Contact.Fields[Index]);
+  end;
+end;
+
+procedure TFormContact.ReloadFields;
+begin
+  if Assigned(Contact) then begin
+    ListView1.Items.Count := Contact.Parent.Fields.Count;
+  end else ListView1.Items.Count := 0;
+  ListView1.Refresh;
 end;
 
@@ -69 +90 @@
 begin
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
+  Contact := nil;
 end;
 
 procedure TFormContact.LoadData(Contact: TContact);
 begin
+  Self.Contact := Contact;
+  ReloadFields;
   EditName.Text := Contact.FirstName;
   EditSurname.Text := Contact.LastName;