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

Timestamp:

Oct 15, 2010, 7:09:49 AM (14 years ago)

Author:

george

Message:

• Added: Windows for Code tree and compiled code.

File:

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

branches/Transpascal/Forms/UProjectManager.pas

@@ -1 +1 @@
 unit UProjectManager;
-
-{$mode objfpc}{$H+}
 
 interface
@@ -30 +28 @@
 
 uses
-  UMainForm, UCodeForm;
+  UMainForm, UCodeForm, UCompiledForm, UCodeTreeForm, UProducerTreeView;
 
 { TProjectManager }
@@ -45 +43 @@
       FileName := Compiler.CompiledFolder + DirectorySeparator +
         Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
-      if ProducerControl is TMemo then
         if FileExists(FileName) then
-        TMemo(ProducerControl).Lines.LoadFromFile(FileName) else
-          TMemo(ProducerControl).Lines.Clear;
-      //if ProducerControl is TTreeView then
-      //  TTreeView(ProducerControl).Assign(TProjectFile(Node.Data).ProducedCode);
+        CompiledForm.SynEdit1.Lines.LoadFromFile(FileName) else
+          CompiledForm.SynEdit1.Lines.Clear;
+
+      // Load code tree view
+      Compiler.Producer.Free;
+      Compiler.Producer := TProducerTreeView.Create;
+      Compiler.Init;
+      Compiler.Parser.OnGetSource := GetSource;
+      with TProjectFile(Project.Items[0]) do begin
+        Compiler.Compile(Parent.GetDir + Name, Source);
+      end;
+      //CodeTreeForm.TreeView1.Assign(TProducerTreeView(Compiler.Producer).TreeView);
     end;
   end;