Changeset 507 for ProjectTemplates/FileMenuProject/UProject.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/UProject.pas (modified) (3 diffs)

ProjectTemplates/FileMenuProject/UProject.pas

@@ -17 +17 @@
     constructor Create; override;
     function GetFileExt: string; override;
+    function GetFileDialogFilter: string; override;
   end;
 
 
 implementation
+
+resourcestring
+  SProjectName = 'New project';
+  SProjectFiles = 'Project files';
 
 
@@ -28 +33 @@
 begin
   inherited Create;
+  FileName := SProjectName + GetFileExt;
 end;
 
@@ -35 +41 @@
 end;
 
+function TProject.GetFileDialogFilter: string;
+begin
+  Result := SProjectFiles + ' (' + GetFileExt + ')|*' + GetFileExt + '|' +
+    SAllFiles + '|*.*';
+end;
+
 end.