Changeset 2 for trunk/Forms/UFormContacts.pas

Timestamp:

Jan 26, 2018, 11:23:26 PM (7 years ago)

Author:

chronos

Message:

• Added: Contact edit form.

Location:

trunk

Files:

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

trunk/Forms/UFormContacts.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, UContact;
+  ComCtrls, Menus, ActnList, UContact;
 
 type
@@ -14 +14 @@
 
   TFormContacts = class(TForm)
+    AAdd: TAction;
+    ARemove: TAction;
+    AModify: TAction;
+    ActionList1: TActionList;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    PopupMenuContact: TPopupMenu;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    procedure AAddExecute(Sender: TObject);
+    procedure AModifyExecute(Sender: TObject);
+    procedure ARemoveExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
+    procedure ListView1DblClick(Sender: TObject);
+    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
   private
 
@@ -22 +41 @@
     Contacts: TContacts;
     procedure ReloadList;
+    procedure UpdateInterface;
   end;
 
@@ -27 +47 @@
   FormContacts: TFormContacts;
 
+
 implementation
 
 {$R *.lfm}
+
+uses
+  UFormContact, UCore;
 
 { TFormContacts }
@@ -42 +66 @@
 end;
 
+procedure TFormContacts.ListView1DblClick(Sender: TObject);
+begin
+  AModify.Execute;
+end;
+
+procedure TFormContacts.ListView1SelectItem(Sender: TObject; Item: TListItem;
+  Selected: Boolean);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormContacts.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self);
   ReloadList;
+  UpdateInterface;
+end;
+
+procedure TFormContacts.AAddExecute(Sender: TObject);
+var
+  FormContact: TFormContact;
+begin
+  FormContact := TFormContact.Create(nil);
+  if FormContact.ShowModal = mrOK then begin
+    FormContact.SaveData(TContact(ListView1.Selected.Data));
+    ReloadList;
+    UpdateInterface;
+  end;
+  FormContact.Free;
+end;
+
+procedure TFormContacts.AModifyExecute(Sender: TObject);
+var
+  FormContact: TFormContact;
+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;
+  end;
+  FormContact.Free;
+end;
+
+procedure TFormContacts.ARemoveExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := ListView1.Items.Count - 1 downto 0 do
+    if ListView1.Items[I].Selected then begin
+      Contacts.Delete(I);
+    end;
+  UpdateInterface;
+end;
+
+procedure TFormContacts.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  Core.PersistentForm1.Save(Self);
 end;
 
@@ -55 +136 @@
 end;
 
+procedure TFormContacts.UpdateInterface;
+begin
+  AModify.Enabled := Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(ListView1.Selected);
+end;
+
 end.