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

Timestamp:

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

Author:

george

Message:

• Modified: Compiled code syntax highlighting.

File:

• branches/Transpascal/Forms/UProjectManager.pas (modified) (2 diffs)

branches/Transpascal/Forms/UProjectManager.pas

@@ -46 +46 @@
         CompiledForm.SynEdit1.Lines.LoadFromFile(FileName) else
           CompiledForm.SynEdit1.Lines.Clear;
+        if ComboBoxTargetSelection.ItemIndex = 0 then
+          CompiledForm.SynEdit1.Highlighter := CompiledForm.SynPasSyn1;
+        if ComboBoxTargetSelection.ItemIndex = 1 then
+          CompiledForm.SynEdit1.Highlighter := CompiledForm.SynCppSyn1;
+        if ComboBoxTargetSelection.ItemIndex = 2 then
+          CompiledForm.SynEdit1.Highlighter := nil;
+        if ComboBoxTargetSelection.ItemIndex = 3 then
+          CompiledForm.SynEdit1.Highlighter := CompiledForm.SynXMLSyn1;
 
-      // Load code tree view
+      (*// Load code tree view
       Compiler.Producer.Free;
       Compiler.Producer := TProducerTreeView.Create;
@@ -56 +64 @@
       end;
       //CodeTreeForm.TreeView1.Assign(TProducerTreeView(Compiler.Producer).TreeView);
+      *)
     end;
   end;