Changeset 43 for trunk/Forms/UFormContacts.pas

Timestamp:

Dec 2, 2021, 2:13:03 PM (3 years ago)

Author:

chronos

Message:

• Fixed: List of contacts may not be reloaded on file open.
• Modified: Preparation for previous/next contact actions.

File:

• trunk/Forms/UFormContacts.pas (modified) (4 diffs)

trunk/Forms/UFormContacts.pas

@@ -51 +51 @@
     procedure FilterList(List: TFPGObjectList<TObject>);
     procedure SetContacts(AValue: TContacts);
+    procedure FormContactPrevious(Sender: TObject);
+    procedure FormContactNext(Sender: TObject);
   public
     property Contacts: TContacts read FContacts write SetContacts;
@@ -183 +185 @@
 end;
 
+procedure TFormContacts.FormContactPrevious(Sender: TObject);
+var
+  I: Integer;
+begin
+  I := ListViewSort1.List.IndexOf(TFormContact(Sender).Contact);
+  if (I <> -1) and (I > 0) then
+    TFormContact(Sender).Contact := TContact(ListViewSort1.List[I - 1]);
+end;
+
+procedure TFormContacts.FormContactNext(Sender: TObject);
+var
+  I: Integer;
+begin
+  I := ListViewSort1.List.IndexOf(TFormContact(Sender).Contact);
+  if (I <> -1) and (I < ListViewSort1.List.Count - 1) then
+    TFormContact(Sender).Contact := TContact(ListViewSort1.List[I + 1]);
+end;
+
 procedure TFormContacts.FormShow(Sender: TObject);
 begin
@@ -204 +224 @@
       Contact.Parent := Contacts.ContactsFile;
       FormContact.Contact := Contact;
+      FormContact.OnPrevious := FormContactPrevious;
+      FormContact.OnNext := FormContactNext;
       if FormContact.ShowModal = mrOK then begin
         Contacts.Add(Contact);
@@ -230 +252 @@
     Contact.Assign(TContact(ListView1.Selected.Data));
     FormContact.Contact := Contact;
+    FormContact.OnPrevious := FormContactPrevious;
+    FormContact.OnNext := FormContactNext;
     try
       if FormContact.ShowModal = mrOK then begin