Changeset 3 for trunk/Forms/UFormContacts.pas

Timestamp:

Jan 29, 2018, 10:54:40 AM (7 years ago)

Author:

chronos

Message:

• Added: Allow to edit more contacts fields.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormContacts.pas (modified) (10 diffs)

trunk

@@ -5 +5 @@
 *.lps
 *.res
+vCardStudio.exe

@@ -5 +5 @@
 *.lps
 *.res
+vCardStudio.exe

trunk/Forms/UFormContacts.pas

@@ -31 +31 @@
     procedure ARemoveExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -37 +38 @@
       Selected: Boolean);
   private
+    FContacts: TContacts;
+    procedure SetContacts(AValue: TContacts);
 
   public
-    Contacts: TContacts;
+    property Contacts: TContacts read FContacts write SetContacts;
     procedure ReloadList;
     procedure UpdateInterface;
@@ -55 +58 @@
   UFormContact, UCore;
 
+resourcestring
+  SRemoveContacts = 'Remove contacts';
+  SRemoveContactsQuery = 'Do you want to remove selected contacts?';
+
 { TFormContacts }
 
@@ -61 +68 @@
   if Assigned(Contacts) and (Item.Index < Contacts.Count) then
   with TContact(Contacts[Item.Index]) do begin
-    Item.Caption := FullName;
+    Item.Caption := FirstName;
+    Item.SubItems.Add(MiddleName);
+    Item.SubItems.Add(LastName);
     Item.Data := Contacts[Item.Index];
   end;
@@ -77 +86 @@
 end;
 
+procedure TFormContacts.SetContacts(AValue: TContacts);
+begin
+  if FContacts = AValue then Exit;
+  FContacts := AValue;
+  ReloadList;
+  UpdateInterface;
+end;
+
 procedure TFormContacts.FormShow(Sender: TObject);
 begin
@@ -87 +104 @@
 var
   FormContact: TFormContact;
+  Contact: TContact;
 begin
   FormContact := TFormContact.Create(nil);
+  try
   if FormContact.ShowModal = mrOK then begin
-    FormContact.SaveData(TContact(ListView1.Selected.Data));
+    Contact := TContact.Create;
+    FormContact.SaveData(Contact);
+    Contacts.Add(Contact);
+    Core.DataFile.Modified := True;
     ReloadList;
     UpdateInterface;
   end;
-  FormContact.Free;
+  finally
+    FormContact.Free;
+  end;
 end;
 
@@ -102 +126 @@
 begin
   FormContact := TFormContact.Create(nil);
-  FormContact.LoadData(TContact(ListView1.Selected.Data));
-  if FormContact.ShowModal = mrOK then begin
-    FormContact.SaveData(TContact(ListView1.Selected.Data));
-    ReloadList;
-    UpdateInterface;
+  try
+    FormContact.LoadData(TContact(ListView1.Selected.Data));
+    if FormContact.ShowModal = mrOK then begin
+      FormContact.SaveData(TContact(ListView1.Selected.Data));
+      Core.DataFile.Modified := True;
+      ReloadList;
+      UpdateInterface;
+    end;
+  finally
+    FormContact.Free;
   end;
-  FormContact.Free;
 end;
 
@@ -115 +143 @@
   I: Integer;
 begin
-  for I := ListView1.Items.Count - 1 downto 0 do
-    if ListView1.Items[I].Selected then begin
-      Contacts.Delete(I);
-    end;
-  UpdateInterface;
+  if Assigned(ListView1.Selected) then
+  if MessageDlg(SRemoveContacts, SRemoveContactsQuery,
+    TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+    for I := ListView1.Items.Count - 1 downto 0 do
+      if ListView1.Items[I].Selected then begin
+        Contacts.Delete(I);
+      end;
+    Core.DataFile.Modified := True;
+    ReloadList;
+    UpdateInterface;
+  end;
 end;
 
@@ -126 +160 @@
 begin
   Core.PersistentForm1.Save(Self);
+end;
+
+procedure TFormContacts.FormCreate(Sender: TObject);
+begin
+  FContacts := nil;
 end;
 
@@ -138 +177 @@
 procedure TFormContacts.UpdateInterface;
 begin
-  AModify.Enabled := Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(ListView1.Selected);
+  AAdd.Enabled := Assigned(Contacts);
+  AModify.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(Contacts) and Assigned(ListView1.Selected);
 end;
 

@@ -5 +5 @@
 *.lps
 *.res
+vCardStudio.exe