Changeset 507 for ProjectTemplates/FileMenuProject/UDataFile.pas

Timestamp:

Mar 29, 2018, 10:11:06 AM (6 years ago)

Author:

chronos

Message:

• Modified: Update Common package.
• Added: Support for color theme.

File:

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

ProjectTemplates/FileMenuProject/UDataFile.pas

@@ -20 +20 @@
   public
     function GetFileExt: string; virtual;
+    function GetFileDialogFilter: string; virtual;
     procedure LoadFromFile(FileName: string); virtual;
     procedure SaveToFile(FileName: string); virtual;
@@ -28 +29 @@
   end;
 
+  TDataFileClass = class of TDataFile;
+
   TDataFiles = class(TObjectList)
   end;
 
+
+resourcestring
+  SAllFiles = 'All files';
 
 implementation
@@ -36 +42 @@
 resourcestring
   SDataFileName = 'File';
+  SDataFiles = 'Data files';
+
 
 { TDataFile }
@@ -48 +56 @@
 begin
   Result := '.dat';
+end;
+
+function TDataFile.GetFileDialogFilter: string;
+begin
+  Result := SDataFiles + ' (' + GetFileExt + ')|*' + GetFileExt + '|' +
+    SAllFiles + '|*.*';
 end;