Changeset 54 for branches/DelphiToC/Produce/UProducerTreeView.pas

Timestamp:

Aug 10, 2010, 11:54:18 AM (14 years ago)

Author:

george

Message:

Added support for multiple source files and compilations for multiple modules in Project.pas

File:

• branches/DelphiToC/Produce/UProducerTreeView.pas (modified) (2 diffs)

branches/DelphiToC/Produce/UProducerTreeView.pas

@@ -34 +34 @@
   public
     TreeView: TTreeView;
-    procedure Produce; override;
+    procedure Produce(Module: TModule; ProducedCode: TStringList); override;
   end;
 
@@ -322 +322 @@
 end;
 
-procedure TProducerTreeView.Produce;
+procedure TProducerTreeView.Produce(Module: TModule; ProducedCode: TStringList);
 begin
   with TreeView do begin
     BeginUpdate;
     Items.Clear;
-    AddNodeProgram(TopItem, ProgramCode);
+    AddNodeModule(TopItem, Module);
     TopItem.Expand(True);
     EndUpdate;