Changeset 66 for branches/Transpascal/Forms/UMainForm.pas

Timestamp:

Oct 18, 2010, 10:00:00 AM (14 years ago)

Author:

george

Message:

• Added: Storing application setting in system registry.
• Added: Loading project files.
• Added: Remembering last opened files.

File:

• branches/Transpascal/Forms/UMainForm.pas (modified) (7 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UCompiler, UProducerAsm8051,
+  Dialogs, StdCtrls, UCompiler, UProducerAsm8051, Registry,
   UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
   UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking,
-  UCompiledForm, UCodeTreeForm;
+  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo;
 
 const
-  ProjectDir = '../../Project/';
+  RegistryRootKey = HKEY_CURRENT_USER;
+  RegistryKey = 'Software\Transpascal';
 
 type
@@ -40 +41 @@
     MenuItem8: TMenuItem;
     DockPanel: TPanel;
+    MenuItemOpenRecent: TMenuItem;
+    OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
     Splitter3: TSplitter;
     ToolBar1: TToolBar;
+    procedure AProjectOpenExecute(Sender: TObject);
+    procedure AProjectSaveAsExecute(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
     procedure ComboBoxTargetSelectionChange(Sender: TObject);
@@ -50 +56 @@
     procedure FormDestroy(Sender: TObject);
   private
+    LastOpenedFiles: TLastOpenedList;
+    ReopenLastOpenedFile: Boolean;
+    procedure OpenRecentClick(Sender: TObject);
     procedure LoadErrorMessages;
-    procedure UpdateProjectTree;
-    procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
     procedure DockInit;
+    procedure LoadFromRegistry;
+    procedure SaveToRegistry;
+    procedure OpenProject(FileName: string);
   public
     Project: TProject;
@@ -96 +106 @@
   Compiler.Init;
   Compiler.Parser.OnGetSource := GetSource;
+  if Project.Items.Count > 0 then
   with TProjectFile(Project.Items[0]) do begin
     Compiler.Compile(Parent.GetDir + Name, Source);
@@ -117 +128 @@
 end;
 
-procedure TMainForm.UpdateProjectTree;
-var
-  NewNode: TTreeNode;
-begin
-  with ProjectManager, TreeViewProject, Items do begin
-    BeginUpdate;
-    Clear;
-    NewNode := AddChild(nil, Project.Name);
-    UpdateProjectGroup(NewNode, Project);
-    NewNode.Expand(True);
-    EndUpdate;
-    TreeViewProject.TopItem.Items[0].Selected := True;
-  end;
-end;
-
-procedure TMainForm.UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
-var
-  I: Integer;
-  NewNode: TTreeNode;
-begin
-  with ProjectManager do
-  for I := 0 to Group.Items.Count - 1 do begin
-    NewNode := TreeViewProject.Items.AddChild(Node,
-      TProjectNode(Group.Items[I]).Name);
-    NewNode.Data := Pointer(Group.Items[I]);
-    if TProjectNode(Group.Items[I]) is TProjectGroup then
-      UpdateProjectGroup(NewNode, TProjectGroup(Group.Items[I]));
-  end;
-end;
-
 function TMainForm.GetSource(Name: string; Source: TStringList): Boolean;
 var
@@ -195 +176 @@
 end;
 
+procedure TMainForm.LoadFromRegistry;
+begin
+  with TRegistryEx.Create do
+    try
+      RootKey := HKEY_CURRENT_USER;
+      OpenKey(RegistryKey, True);
+      ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
+    finally
+      Free;
+    end;
+  LastOpenedFiles.LoadFromRegistry(RegistryRootKey, RegistryKey);
+end;
+
+procedure TMainForm.SaveToRegistry;
+begin
+  with TRegistryEx.Create do
+    try
+      RootKey := RegistryRootKey;
+      OpenKey(RegistryKey, True);
+      WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
+    finally
+      Free;
+    end;
+  LastOpenedFiles.SaveToRegistry(RegistryRootKey, RegistryKey);
+  LastOpenedFiles.ReloadMenu;
+end;
+
+procedure TMainForm.OpenProject(FileName: string);
+begin
+  Project.LoadFromFile(FileName);
+  LastOpenedFiles.Add(FileName);
+  LastOpenedFiles.ReloadMenu;
+  ProjectManager.UpdateProjectTree;
+  Caption := ApplicationInfo.Name + ' - ' + Project.Name;
+end;
+
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   Project.Save;
+  SaveToRegistry;
 end;
 
@@ -204 +222 @@
   Compiler := TCompiler.Create;
   Project := TProject.Create;
+  LastOpenedFiles := TLastOpenedList.Create;
+  LastOpenedFiles.MenuItem := MenuItemOpenRecent;
+  LastOpenedFiles.ClickAction := OpenRecentClick;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  LastOpenedFiles.Free;
   Project.Free;
   Compiler.Free;
 end;
 
+procedure TMainForm.OpenRecentClick(Sender: TObject);
+begin
+  if Sender is TMenuItem then
+     OpenProject(StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]));
+end;
+
 procedure TMainForm.FormShow(Sender: TObject);
 var
   NewProjectFile: TProjectFile;
 begin
+  LoadFromRegistry;
   DockInit;
 
-  Project.RootDir := '../../Project/';
-  Project.Name := 'Project';
-
-  NewProjectFile := TProjectFile.Create;
-  NewProjectFile.Parent := Project;
-  NewProjectFile.Name := 'Project.pas';
-  Project.Items.Add(NewProjectFile);
-
-  NewProjectFile := TProjectFile.Create;
-  NewProjectFile.Parent := Project;
-  NewProjectFile.Name := 'System.pas';
-  Project.Items.Add(NewProjectFile);
-
-  NewProjectFile := TProjectFile.Create;
-  NewProjectFile.Parent := Project;
-  NewProjectFile.Name := 'MemoryManager.pas';
-  Project.Items.Add(NewProjectFile);
-
-  Project.Load;
-  UpdateProjectTree;
+  if ReopenLastOpenedFile and (LastOpenedFiles.Count > 0) then begin
+    OpenProject(LastOpenedFiles[0]);
+  end;
 
   WindowState := wsMaximized;
+end;
+
+procedure TMainForm.ComboBox1Change(Sender: TObject);
+begin
   ButtonCompileClick(Self);
 end;
 
-procedure TMainForm.ComboBox1Change(Sender: TObject);
+procedure TMainForm.AProjectOpenExecute(Sender: TObject);
+begin
+  if OpenDialog1.Execute then begin
+    OpenProject(OpenDialog1.FileName);
+  end;
+end;
+
+procedure TMainForm.AProjectSaveAsExecute(Sender: TObject);
+begin
+  if SaveDialog1.Execute then begin
+    Project.SaveToFile(SaveDialog1.FileName);
+  end;
+end;
+
+procedure TMainForm.ComboBoxTargetSelectionChange(Sender: TObject);
 begin
   ButtonCompileClick(Self);
 end;
 
-procedure TMainForm.ComboBoxTargetSelectionChange(Sender: TObject);
-begin
-  ButtonCompileClick(Self);
-end;
-
 end.