Changeset 2 for trunk/Forms

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/UFormContact.lfm (added)
• Forms/UFormContact.pas (added)
• Forms/UFormContacts.lfm (modified) (3 diffs)
• Forms/UFormContacts.pas (modified) (6 diffs)

trunk/Forms/UFormContacts.lfm

@@ -7 +7 @@
   ClientHeight = 605
   ClientWidth = 807
+  OnClose = FormClose
   OnShow = FormShow
   LCLVersion = '1.8.0.4'
   object ListView1: TListView
     Left = 0
-    Height = 605
+    Height = 579
     Top = 0
     Width = 807
@@ -21 +22 @@
       end>
     OwnerData = True
+    PopupMenu = PopupMenuContact
     ReadOnly = True
     RowSelect = True
@@ -26 +28 @@
     ViewStyle = vsReport
     OnData = ListView1Data
+    OnDblClick = ListView1DblClick
+    OnSelectItem = ListView1SelectItem
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Height = 26
+    Top = 579
+    Width = 807
+    Align = alBottom
+    Caption = 'ToolBar1'
+    Images = Core.ImageList1
+    TabOrder = 1
+    object ToolButton1: TToolButton
+      Left = 1
+      Top = 2
+      Action = AAdd
+    end
+    object ToolButton2: TToolButton
+      Left = 24
+      Top = 2
+      Action = AModify
+    end
+    object ToolButton3: TToolButton
+      Left = 47
+      Top = 2
+      Action = ARemove
+    end
+  end
+  object PopupMenuContact: TPopupMenu
+    Images = Core.ImageList1
+    left = 290
+    top = 175
+    object MenuItem1: TMenuItem
+      Action = AAdd
+    end
+    object MenuItem2: TMenuItem
+      Action = AModify
+    end
+    object MenuItem3: TMenuItem
+      Action = ARemove
+    end
+  end
+  object ActionList1: TActionList
+    Images = Core.ImageList1
+    left = 488
+    top = 171
+    object AAdd: TAction
+      Caption = 'Add'
+      ImageIndex = 9
+      OnExecute = AAddExecute
+      ShortCut = 45
+    end
+    object AModify: TAction
+      Caption = 'Modify'
+      ImageIndex = 6
+      OnExecute = AModifyExecute
+      ShortCut = 13
+    end
+    object ARemove: TAction
+      Caption = 'Remove'
+      ImageIndex = 10
+      OnExecute = ARemoveExecute
+      ShortCut = 46
+    end
   end
 end

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.