Changeset 77 for trunk/UContact.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/UContact.pas (modified) (4 diffs)

trunk/UContact.pas

@@ -119 +119 @@
   TContact = class
   private
+    FModified: Boolean;
+    FOnModify: TNotifyEvent;
     function GetField(Index: TContactFieldIndex): string;
     procedure SetField(Index: TContactFieldIndex; AValue: string);
+    procedure SetModified(AValue: Boolean);
+    procedure DoOnModify;
   public
     Properties: TContactProperties;
@@ -137 +141 @@
     procedure LoadFromFile(FileName: string);
     property Fields[Index: TContactFieldIndex]: string read GetField write SetField;
-  end;
+    property Modified: Boolean read FModified write SetModified;
+    property OnModify: TNotifyEvent read FOnModify write FOnModify;
+  end;
+
+  TGetContactEvent = function (Contact: TContact): TContact of object;
 
   { TContacts }
@@ -850 +858 @@
       end;
     end;
+    Modified := True;
   end else raise Exception.Create(SFieldIndexNotDefined);
+end;
+
+procedure TContact.SetModified(AValue: Boolean);
+begin
+  if FModified = AValue then Exit;
+  FModified := AValue;
+  DoOnModify;
+end;
+
+procedure TContact.DoOnModify;
+begin
+  if Assigned(FOnModify) then FOnModify(Self);
 end;
 
@@ -903 +924 @@
 begin
   Properties.Assign(Source.Properties);
+  FModified := Source.FModified;
 end;