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

Timestamp:

Mar 4, 2012, 9:43:53 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Selection of target.

File:

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

trunk/IDE/Forms/UMainForm.pas

@@ -143 +143 @@
     LastOpenedFiles: TLastOpenedList;
     procedure CompilerDebugLog(Text: string);
-    procedure MenuItemAnalyzerClick(Sender: TObject);
-    procedure MenuItemProducerClick(Sender: TObject);
+    procedure MenuItemTargetClick(Sender: TObject);
     procedure OpenRecentClick(Sender: TObject);
     procedure DockInit;
@@ -152 +151 @@
     procedure UpdateMenu;
   public
-    SelectedAnalyzerIndex: Integer;
-    SelectedProducerIndex: Integer;
     ReopenLastOpenedFile: Boolean;
     LogParsing: Boolean;
@@ -315 +312 @@
   AProgramPause.Enabled := Project.Active and (BrainFuckInterpreter.State = rsRunning);
   AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*)
-  ABuild.Enabled := Project.Active;
+  ABuild.Enabled := Project.Active and Assigned(Compiler.Target) and
+    Assigned(Compiler.Target.Producer);
   UpdateMenu;
   CodeForm.UpdateInterface;
@@ -401 +399 @@
       OpenKey(Key, True);
       ReopenLastOpenedFile := ReadBoolWithDefault('ReopenLastOpenedFile', True);
-      SelectedProducerIndex := ReadIntegerWithDefault('ProducerType', 0);
-      SelectedAnalyzerIndex := ReadIntegerWithDefault('AnalyzerType', 0);
+      Compiler.Target := Compiler.Targets.SearchBySysName(ReadStringWithDefault('TargetName', ''));
       LogParsing := ReadBoolWithDefault('LogParsing', False);
       if ValueExists('LanguageCode') then
@@ -423 +420 @@
       OpenKey(Key, True);
       WriteBool('ReopenLastOpenedFile', ReopenLastOpenedFile);
-      WriteInteger('ProducerType', SelectedProducerIndex);
-      WriteInteger('AnalyzerType', SelectedAnalyzerIndex);
+      if Assigned(Compiler.Target) then
+        WriteString('TargetName', Compiler.Target.SysName)
+        else DeleteValue('TargetName');
       WriteBool('LogParsing', LogParsing);
       if Assigned(CoolTranslator1.Language) and (CoolTranslator1.Language.Code <> '') then
@@ -448 +446 @@
 end;
 
-procedure TMainForm.MenuItemAnalyzerClick(Sender: TObject);
+procedure TMainForm.MenuItemTargetClick(Sender: TObject);
 begin
   with TMenuItem(Sender) do begin
-    SelectedAnalyzerIndex := MenuIndex;
-    UpdateMenu;
-  end;
-end;
-
-procedure TMainForm.MenuItemProducerClick(Sender: TObject);
-begin
-  with TMenuItem(Sender) do begin
-    SelectedProducerIndex := MenuIndex;
-    UpdateMenu;
+    Compiler.Target := TTarget(Compiler.Targets[MenuIndex]);
+    UpdateInterface;
   end;
 end;
@@ -473 +463 @@
     NewMenuItem := TMenuItem.Create(MenuItemProducer);
     NewMenuItem.Caption := TTarget(Compiler.Targets[I]).Name;
-    NewMenuItem.OnClick := MenuItemProducerClick;
-    if I = SelectedProducerIndex then NewMenuItem.Checked := True;
+    NewMenuItem.OnClick := MenuItemTargetClick;
+    if Assigned(Compiler.Target) and
+      (TTarget(Compiler.Targets[I]).SysName = Compiler.Target.SysName) then NewMenuItem.Checked := True;
     MenuItemProducer.Add(NewMenuItem);
   end;