Changeset 77 for trunk/Forms/UFormContact.pas

Timestamp:

Dec 15, 2021, 9:03:17 PM (3 years ago)

Author:

chronos

Message:

• Modified: More preparation for future Previous and Next buttons in Contact window.

File:

• trunk/Forms/UFormContact.pas (modified) (5 diffs)

trunk/Forms/UFormContact.pas

@@ -206 +206 @@
   private
     FContact: TContact;
-    FOnNext: TNotifyEvent;
-    FOnPrevious: TNotifyEvent;
+    FOnGetNext: TGetContactEvent;
+    FOnGetPrevious: TGetContactEvent;
     FormProperties: TFormProperties;
     procedure SetContact(AValue: TContact);
@@ -216 +216 @@
     procedure UpdateInterface;
     property Contact: TContact read FContact write SetContact;
-    property OnPrevious: TNotifyEvent read FOnPrevious write FOnPrevious;
-    property OnNext: TNotifyEvent read FOnNext write FOnNext;
+    property OnGetPrevious: TGetContactEvent read FOnGetPrevious write FOnGetPrevious;
+    property OnGetNext: TGetContactEvent read FOnGetNext write FOnGetNext;
   end;
 
@@ -654 +654 @@
 procedure TFormContact.ButtonNextClick(Sender: TObject);
 begin
-  if Assigned(FOnNext) then FOnNext(Self);
+  if Assigned(FOnGetNext) then
+     Contact := FOnGetNext(Contact);
 end;
 
@@ -679 +680 @@
 procedure TFormContact.ButtonPreviousClick(Sender: TObject);
 begin
-  if Assigned(FOnPrevious) then FOnPrevious(Self);
+  if Assigned(FOnGetPrevious) then
+    Contact := FOnGetPrevious(Contact);
 end;
 
@@ -699 +701 @@
   APhotoSave.Enabled := ProfilePhotoActive;
   APhotoClear.Enabled := ProfilePhotoActive;
+  //ButtonNext.Enabled := Assigned(FOnGetNext) and Assigned(FOnGetNext(Contact));
+  //ButtonPrevious.Enabled := Assigned(FOnGetPrevious) and Assigned(FOnGetPrevious(Contact));
 end;