Changeset 37 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Feb 14, 2012, 7:33:51 AM (12 years ago)

Author:

chronos

Message:

• Added: Form containing list of supported compiler producers. Path to real compiler can be changed.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (11 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -17 +17 @@
 
 type
+
+  { TCustomCompiler }
+
+  TCustomCompiler = class(TCompiler)
+    procedure LoadFromRegistry(Root: HKEY; Key: string);
+    procedure SaveToRegistry(Root: HKEY; Key: string);
+  end;
+
   { TMainForm }
 
   TMainForm = class(TForm)
     ABuild: TAction;
+    AViewProducers: TAction;
     AViewCompiledSoruce: TAction;
     AViewCodeTree: TAction;
@@ -58 +67 @@
     MenuItem22: TMenuItem;
     MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
     MenuItemAnalyzer: TMenuItem;
     MenuItemProducer: TMenuItem;
@@ -102 +112 @@
     procedure AViewMessagesExecute(Sender: TObject);
     procedure AViewOptionsExecute(Sender: TObject);
+    procedure AViewProducersExecute(Sender: TObject);
     procedure AViewProjectExecute(Sender: TObject);
     procedure AViewSourceEditorExecute(Sender: TObject);
@@ -127 +138 @@
     LogParsing: Boolean;
     Project: TProject;
-    Compiler: TCompiler;
+    Compiler: TCustomCompiler;
     function GetSource(Name: string; var SourceCode: string): Boolean;
     procedure UpdateInterface;
@@ -141 +152 @@
 
 uses
-  UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions;
+  UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm, UFormOptions,
+  UCompilersForm;
 
 resourcestring
   SNewProject = 'New project';
+
+{ TCustomCompiler }
+
+procedure TCustomCompiler.LoadFromRegistry(Root: HKEY; Key: string);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+    try
+      RootKey := Root;
+      for I := 0 to Producers.Count - 1 do
+      with TProducer(Producers[I]) do begin
+        OpenKey(Key + '\Producers\' + Name, True);
+        CompilerPAth := ReadStringWithDefault('CompilerPath', CompilerPath);
+      end;
+    finally
+      Free;
+    end;
+end;
+
+procedure TCustomCompiler.SaveToRegistry(Root: HKEY; Key: string);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+    try
+      RootKey := Root;
+      for I := 0 to Producers.Count - 1 do
+      with TProducer(Producers[I]) do begin
+        OpenKey(Key + '\Producers\' + Name, True);
+        WriteString('CompilerPath', CompilerPath);
+      end;
+    finally
+      Free;
+    end;
+end;
 
 { TMainForm }
@@ -189 +237 @@
 begin
   FormOptions.ShowModal;
+end;
+
+procedure TMainForm.AViewProducersExecute(Sender: TObject);
+begin
+  FormProducers.Show;
 end;
 
@@ -234 +287 @@
   AProgramPause.Enabled := Project.Active and (BrainFuckInterpreter.State = rsRunning);
   AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*)
+  ABuild.Enabled := Project.Active;
   UpdateMenu;
   CodeForm.UpdateInterface;
@@ -259 +313 @@
   CompiledForm.Align := alClient;
   CompiledForm.Show;
+  PageControlRight.TabIndex := 0;
+  PageControlBottom.TabIndex := 0;
 
   (*ProjectManager.ManualDock(DockPanel, nil, alLeft);
@@ -311 +367 @@
       Free;
     end;
-  LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key);
+  LastOpenedFiles.LoadFromRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
+  Compiler.LoadFromRegistry(RegistryRootKey, Key + '\Compiler');
 end;
 
@@ -330 +387 @@
       Free;
     end;
-  LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key);
+  LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
   LastOpenedFiles.ReloadMenu;
+  Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler');
 end;
 
 procedure TMainForm.ProjectOpen(FileName: string);
 begin
+  Project.Active := True;
   Project.LoadFromFile(FileName);
   LastOpenedFiles.AddItem(FileName);
   LastOpenedFiles.ReloadMenu;
-  ProjectManager.UpdateProjectTree;
   UpdateInterface;
 end;
@@ -393 +451 @@
 begin
   DeleteFile(DebugLog1.FileName);
-  Compiler := TCompiler.Create;
+  Compiler := TCustomCompiler.Create;
   Project := TProject.Create;
   LastOpenedFiles := TLastOpenedList.Create;