Changeset 41 for branches/DelphiToC/UMainForm.pas

Timestamp:

Aug 5, 2010, 1:17:35 PM (14 years ago)

Author:

george

Message:

Added separate unit for filling treeview with program source.

File:

• branches/DelphiToC/UMainForm.pas (modified) (4 diffs)

branches/DelphiToC/UMainForm.pas

@@ -8 +8 @@
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, UPascalSource, UPascalCompiler, UAssemblerSource,
-  UCSource, ComCtrls;
+  UCSource, ComCtrls, USourceTree;
 
 const
@@ -30 +30 @@
   public
     Compiler: TCompiler;
+    SourceTree: TSourceTree;
   end;
 
@@ -48 +49 @@
   Compiler.SourceCode.Assign(Memo1.Lines);
   Compiler.Compile;
-  FillTreeView;
+  SourceTree.TreeView := TreeView1;
+  SourceTree.Code := Compiler.ProgramCode;
+  SourceTree.Fill;
+  //FillTreeView;
   Memo2.Clear;
   if Compiler.Producer is TAssemblerProducer then begin
@@ -138 +142 @@
   Compiler := TCompiler.Create;
   Compiler.OnErrorMessage := ErrorMessage;
+  SourceTree := TSourceTree.Create;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
-  Compiler.Destroy;
+  Compiler.Free;
+  SourceTree.Free;
 end;