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

ProjectTemplates/FileMenuProject/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Controls, ActnList, Forms, Dialogs,
   ULastOpenedList, UApplicationInfo, UPersistentForm, UScaleDPI, UCommon,
-  UCoolTranslator, UDataFile, Menus, URegistry, Registry;
+  UCoolTranslator, UDataFile, Menus, URegistry, UTheme, Registry;
 
 type
@@ -34 +34 @@
     SaveDialog1: TSaveDialog;
     ScaleDPI1: TScaleDPI;
+    ThemeManager1: TThemeManager;
     procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -57 +58 @@
   public
     DataFile: TDataFile;
+    DataFileClass: TDataFileClass;
+
     FileClosed: Boolean;
     ReopenLastFileOnStart: Boolean;
@@ -64 +67 @@
     procedure FileClose;
     procedure Initialize;
+    procedure Finalize;
     procedure UpdateInterface;
   end;
@@ -130 +134 @@
 
 procedure TCore.AFileOpenExecute(Sender: TObject);
+var
+  TempFile: TDataFile;
 begin
   OpenDialog1.DefaultExt := '';
+  TempFile := DataFileClass.Create;
+  try
+    OpenDialog1.Filter := TempFile.GetFileDialogFilter;
+    OpenDialog1.DefaultExt := TempFile.GetFileExt;
+  finally
+    TempFile.Free;
+  end;
   if Assigned(DataFile) then begin
     OpenDialog1.InitialDir := ExtractFileDir(DataFile.FileName);
@@ -153 +166 @@
   SaveDialog1.InitialDir := ExtractFileDir(DataFile.FileName);
   SaveDialog1.FileName := ExtractFileName(DataFile.FileName);
+  SaveDialog1.Filter := DataFile.GetFileDialogFilter;
   if SaveDialog1.Execute then begin
     DataFile.SaveToFile(SaveDialog1.FileName);
@@ -173 +187 @@
   DataFile := nil;
   FileClosed := True;
+  DataFileClass := TDataFile;
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  SaveConfig;
 end;
 
@@ -255 +269 @@
     FormMain.MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
     ReopenLastFileOnStart := ReadBoolWithDefault('ReopenLastFileOnStart', True);
+    ThemeManager1.Theme := ThemeManager1.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
   finally
     Free;
@@ -273 +288 @@
     WriteBool('ToolBarVisible', FormMain.MenuItemToolbar.Checked);
     WriteBool('ReopenLastFileOnStart', ReopenLastFileOnStart);
+    WriteString('Theme', ThemeManager1.Theme.Name);
   finally
     Free;
@@ -311 +327 @@
 end;
 
+procedure TCore.Finalize;
+begin
+  SaveConfig;
+end;
+
 function TCore.FindFirstNonOption: string;
 var