Changeset 134 for trunk/Packages

Timestamp:

Apr 10, 2022, 1:54:34 PM (3 years ago)

Author:

chronos

Message:

• Modified: UDataFile unit moved into Common package and TDataFile class made TComponent descendant.

Location:

trunk/Packages/Common

Files:

• Common.lpk (modified) (2 diffs)
• Languages/UAboutDialog.cs.po (deleted)
• Languages/UDataFile.cs.po (added)
• Languages/UDataFile.pot (added)
• UDataFile.pas (moved) (moved from trunk/UDataFile.pas ) (6 diffs)

trunk/Packages/Common/Common.lpk

@@ -42 +42 @@
     <License Value="Copy left."/>
     <Version Minor="9"/>
-    <Files Count="29">
+    <Files Count="30">
       <Item1>
         <Filename Value="StopWatch.pas"/>
@@ -171 +171 @@
         <UnitName Value="UPixelPointer"/>
       </Item29>
+      <Item30>
+        <Filename Value="UDataFile.pas"/>
+        <UnitName Value="UDataFile"/>
+      </Item30>
     </Files>
     <CompatibilityMode Value="True"/>

trunk/Packages/Common/UDataFile.pas

@@ -9 +9 @@
   { TDataFile }
 
-  TDataFile = class
+  TDataFile = class(TComponent)
   private
     FFileName: string;
@@ -21 +21 @@
     function GetFileName: string; virtual;
     function GetFileFilter: string; virtual;
-    procedure Assign(Source: TDataFile);
+    procedure Assign(Source: TPersistent); override;
     procedure LoadFromFile(FileName: string); virtual;
     procedure SaveToFile(FileName: string); virtual;
-    constructor Create; virtual;
+    constructor Create(AOwner: TComponent); override;
     property FileName: string read FFileName write SetFileName;
     property Modified: Boolean read FModified write SetModified;
+  published
     property OnModify: TNotifyEvent read FOnModify write FOnModify;
   end;
@@ -38 +39 @@
   SDataFileName = 'Data file';
   SAllFiles = 'All files';
+
+const
+  AnyFileExt = '.*';
 
 
@@ -68 +72 @@
 function TDataFile.GetFileFilter: string;
 begin
-  Result := SAllFiles + '|*.*';
+  Result := SAllFiles + '|*' + AnyFileExt;
 end;
 
-procedure TDataFile.Assign(Source: TDataFile);
+procedure TDataFile.Assign(Source: TPersistent);
 begin
-  FFileName := Source.FFileName;
-  FModified := Source.FModified;
+  inherited;
+  if Source is TDataFile then begin
+    FFileName := TDataFile(Source).FFileName;
+    FModified := TDataFile(Source).FModified;
+  end;
 end;
 
@@ -85 +92 @@
 procedure TDataFile.SaveToFile(FileName: string);
 begin
+  FModified := False;
   Self.FileName := FileName;
-  FModified := False;
 end;
 
-constructor TDataFile.Create;
+constructor TDataFile.Create(AOwner: TComponent);
 begin
+  inherited;
   FileName := GetFileName + GetFileExt;
 end;
@@ -100 +108 @@
 end;
 
-
 end.