Changeset 43 for trunk/Forms/UFormContact.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/UFormContact.pas (modified) (8 diffs)

trunk/Forms/UFormContact.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ActnList, Menus, ExtCtrls, UContact, base64, UFormProperties;
+  ComCtrls, ActnList, Menus, ExtCtrls, UContact, UFormProperties;
 
 type
@@ -17 +17 @@
     ActionList1: TActionList;
     ButtonCancel: TButton;
+    ButtonNext: TButton;
     ButtonOk: TButton;
+    ButtonPrevious: TButton;
     EditHomeAddressCity: TEdit;
     EditHomeAddressCountry: TEdit;
@@ -78 +80 @@
     Label2: TLabel;
     Label22: TLabel;
-    Label23: TLabel;
     Label24: TLabel;
     Label25: TLabel;
@@ -120 +121 @@
     TabSheetGeneral: TTabSheet;
     TabSheetAll: TTabSheet;
+    procedure ButtonNextClick(Sender: TObject);
     procedure ButtonOkClick(Sender: TObject);
+    procedure ButtonPreviousClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -130 +133 @@
   private
     FContact: TContact;
+    FOnNext: TNotifyEvent;
+    FOnPrevious: TNotifyEvent;
     FormProperties: TFormProperties;
     procedure SetContact(AValue: TContact);
@@ -136 +141 @@
     procedure SaveData;
     property Contact: TContact read FContact write SetContact;
+    property OnPrevious: TNotifyEvent read FOnPrevious write FOnPrevious;
+    property OnNext: TNotifyEvent read FOnNext write FOnNext;
   end;
 
@@ -148 +155 @@
 uses
   UCore;
-
-resourcestring
-  SFieldEdit = 'Field edit';
-  SEditFieldValue = 'Edit field value';
 
 { TFormContact }
@@ -204 +207 @@
 begin
   SaveData;
+end;
+
+procedure TFormContact.ButtonNextClick(Sender: TObject);
+begin
+  if Assigned(FOnNext) then FOnNext(Self);
+end;
+
+procedure TFormContact.ButtonPreviousClick(Sender: TObject);
+begin
+  if Assigned(FOnPrevious) then FOnPrevious(Self);
 end;