Changeset 52 for branches/DelphiToC/Forms/UMainForm.pas

Timestamp:

Aug 10, 2010, 7:57:46 AM (14 years ago)

Author:

george

Message:

Visual TreeView reprezentation moved into target code producer set.

File:

• branches/DelphiToC/Forms/UMainForm.pas (modified) (6 diffs)

branches/DelphiToC/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, USourceCode, UCompiler, UAssemblerSource,
-  UProducerC, ComCtrls, SynEdit, SynHighlighterPas, USourceTree,
+  Dialogs, StdCtrls, USourceCode, UCompiler, UProducerAsm8051,
+  UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
   UProducerPascal, Contnrs;
 
@@ -21 +21 @@
     ComboBox1: TComboBox;
     ListBox1: TListBox;
-    Memo2: TMemo;
+    Panel1: TPanel;
     SynEdit1: TSynEdit;
     SynPasSyn1: TSynPasSyn;
-    TreeView1: TTreeView;
     procedure ComboBox1Change(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -35 +34 @@
   private
   public
+    ProducerControl: TControl;
     Compiler: TCompiler;
-    SourceTree: TSourceTree;
+    SourceTree: TProducerTreeView;
   end;
 
@@ -55 +55 @@
   Compiler.SourceCode.Assign(SynEdit1.Lines);
 
-  Memo2.Clear;
+  ProducerControl.Free;
   if ComboBox1.ItemIndex = 0 then begin
     Compiler.Producer.Free;
@@ -61 +61 @@
     Compiler.Producer.ProgramCode := Compiler.ProgramCode;
     Compiler.Compile;
+    ProducerControl := TMemo.Create(Self);
+    ProducerControl.Parent := Panel1;
+    ProducerControl.Align := alClient;
     with TProducerPascal(Compiler.Producer) do
-      Memo2.Lines.Assign(TextSource);
+      TMemo(ProducerControl).Lines.Assign(TextSource);
   end else
   if ComboBox1.ItemIndex = 1 then begin
     Compiler.Producer.Free;
-    Compiler.Producer := TCProducer.Create;
+    Compiler.Producer := TProducerC.Create;
     Compiler.Producer.ProgramCode := Compiler.ProgramCode;
     Compiler.Compile;
-    with TCProducer(Compiler.Producer) do
-      Memo2.Lines.Assign(TextSource);
+    ProducerControl := TMemo.Create(Self);
+    ProducerControl.Parent := Panel1;
+    ProducerControl.Align := alClient;
+    with TProducerC(Compiler.Producer) do
+      TMemo(ProducerControl).Lines.Assign(TextSource);
   end else
   if ComboBox1.ItemIndex = 2 then begin
     Compiler.Producer.Free;
-    Compiler.Producer := TAssemblerProducer.Create;
+    Compiler.Producer := TProducerAsm8051.Create;
     Compiler.Producer.ProgramCode := Compiler.ProgramCode;
     Compiler.Compile;
-    with TAssemblerProducer(Compiler.Producer) do
+    ProducerControl := TMemo.Create(Self);
+    ProducerControl.Parent := Panel1;
+    ProducerControl.Align := alClient;
+    with TProducerAsm8051(Compiler.Producer) do
     for I := 0 to AssemblyCode.Count - 1 do
-      Memo2.Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
+      TMemo(ProducerControl).Lines.Add(TAssemblerLine(AssemblyCode[I]).AsString);
+  end;
+  if ComboBox1.ItemIndex = 3 then begin
+    Compiler.Producer.Free;
+    Compiler.Producer := TProducerTreeView.Create;
+    Compiler.Producer.ProgramCode := Compiler.ProgramCode;
+    ProducerControl := TTreeView.Create(Self);
+    ProducerControl.Parent := Panel1;
+    ProducerControl.Align := alClient;
+    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
+    Compiler.Compile;
   end;
   LoadErrorMessages;
-
-  SourceTree.TreeView := TreeView1;
-  SourceTree.Code := Compiler.ProgramCode;
-  SourceTree.Fill;
 end;
 
@@ -115 +130 @@
 begin
   Compiler := TCompiler.Create;
-  SourceTree := TSourceTree.Create;
+  SourceTree := TProducerTreeView.Create;
 end;