Changeset 508 for ProjectTemplates/FileMenuProject/UDataFile.pas

Timestamp:

Mar 29, 2018, 10:59:19 AM (6 years ago)

Author:

chronos

Message:

• Fixed: FileNew initialization.

File:

• ProjectTemplates/FileMenuProject/UDataFile.pas (modified) (3 diffs)

ProjectTemplates/FileMenuProject/UDataFile.pas

@@ -15 +15 @@
     FFileName: string;
     FModified: Boolean;
+    FOnDestroy: TNotifyEvent;
     FOnModify: TNotifyEvent;
     procedure SetFileName(AValue: string);
@@ -24 +25 @@
     procedure SaveToFile(FileName: string); virtual;
     constructor Create; virtual;
+    destructor Destroy; override;
     property FileName: string read FFileName write SetFileName;
     property Modified: Boolean read FModified write SetModified;
     property OnModify: TNotifyEvent read FOnModify write FOnModify;
+    property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
   end;
 
@@ -81 +84 @@
 end;
 
+destructor TDataFile.Destroy;
+begin
+  if Assigned(FOnDestroy) then FOnDestroy(Self);
+  inherited Destroy;
+end;
+
 procedure TDataFile.SetFileName(AValue: string);
 begin