Changeset 60 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

Jul 17, 2012, 7:25:56 AM (12 years ago)

Author:

chronos

Message:

• Added: Target celection combobox on main toolbar.
• Added: Options of available targets allow to change producer and executor path if available.

File:

• trunk/IDE/Forms/UFormMain.pas (modified) (6 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -43 +43 @@
     AProjectClose: TAction;
     ActionList1: TActionList;
+    ComboBoxTarget: TComboBox;
     ImageList1: TImageList;
     MainMenu: TMainMenu;
@@ -99 +100 @@
     ToolButton1: TToolButton;
     ToolButton10: TToolButton;
+    ToolButton11: TToolButton;
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
@@ -131 +133 @@
     procedure AViewProjectExecute(Sender: TObject);
     procedure AViewSourceEditorExecute(Sender: TObject);
-    procedure ComboBox1Change(Sender: TObject);
-    procedure ComboBoxProducerChange(Sender: TObject);
+    procedure ComboBoxTargetChange(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -313 +314 @@
 
   UpdateMenu;
+  Core.Compiler.Targets.LoadToStrings(ComboBoxTarget.Items);
+  ComboBoxTarget.ItemIndex := Core.Compiler.Targets.IndexOf(Core.Compiler.Target);
   FormSourceCode.UpdateInterface;
   FormTargetCode.UpdateInterface;
@@ -476 +479 @@
 end;
 
-procedure TFormMain.ComboBox1Change(Sender: TObject);
-begin
-  ABuildExecute(Self);
-end;
-
 procedure TFormMain.AProjectOpenExecute(Sender: TObject);
 begin
@@ -545 +543 @@
 end;
 
-procedure TFormMain.ComboBoxProducerChange(Sender: TObject);
-begin
-  ABuildExecute(Self);
+procedure TFormMain.ComboBoxTargetChange(Sender: TObject);
+begin
+  with TMenuItem(Sender) do begin
+    Core.Compiler.Target := TTarget(Core.Compiler.Targets[ComboBoxTarget.ItemIndex]);
+    UpdateInterface;
+  end;
 end;