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

Timestamp:

Oct 15, 2010, 10:04:55 AM (14 years ago)

Author:

george

Message:

• Modified: Compiled code syntax highlighting.

File:

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

branches/Transpascal/Forms/UMainForm.pas

@@ -27 +27 @@
     ActionList1: TActionList;
     Button1: TButton;
-    ComboBox1: TComboBox;
+    ComboBoxTargetSelection: TComboBox;
     CoolDockClient1: TCoolDockClient;
     CoolDockMaster1: TCoolDockMaster;
@@ -43 +43 @@
     ToolBar1: TToolBar;
     procedure ComboBox1Change(Sender: TObject);
+    procedure ComboBoxTargetSelectionChange(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -79 +80 @@
   I: Integer;
 begin
-  if ComboBox1.ItemIndex = 0 then begin
+  if ComboBoxTargetSelection.ItemIndex = 0 then begin
     Compiler.Producer.Free;
     Compiler.Producer := TProducerPascal.Create;
   end else
-  if ComboBox1.ItemIndex = 1 then begin
+  if ComboBoxTargetSelection.ItemIndex = 1 then begin
     Compiler.Producer.Free;
     Compiler.Producer := TProducerC.Create;
   end else
-  if ComboBox1.ItemIndex = 2 then begin
+  if ComboBoxTargetSelection.ItemIndex = 2 then begin
     Compiler.Producer.Free;
     Compiler.Producer := TProducerAsm8051.Create;
   end else
-  if ComboBox1.ItemIndex = 3 then begin
+  if ComboBoxTargetSelection.ItemIndex = 3 then begin
     Compiler.Producer.Free;
     Compiler.Producer := TProducerTreeView.Create;
@@ -103 +104 @@
   end;
 
+  ProjectManager.TreeViewProjectChange(Self, ProjectManager.TreeViewProject.Selected);
   LoadErrorMessages;
 end;
@@ -276 +278 @@
 end;
 
+procedure TMainForm.ComboBoxTargetSelectionChange(Sender: TObject);
+begin
+  ButtonCompileClick(Self);
+end;
+
 end.