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

Timestamp:

Aug 10, 2010, 1:48:38 PM (14 years ago)

Author:

george

Message:

Fix: View proper source file after click to error message.
Made partial changes to support unit interface and implementation sections.

File:

• branches/DelphiToC/Produce/UProducerTreeView.pas (modified) (1 diff)

branches/DelphiToC/Produce/UProducerTreeView.pas

@@ -284 +284 @@
   TypeName: string;
 begin
-  case Module.ModuleType of
-    mdPackage: TypeName := 'package';
-    mdProgram: TypeName := 'program';
-    mdUnit: TypeName := 'unit';
-    mdLibrary: TypeName := 'library';
-  end;
-  NewNode := TreeView.Items.AddChild(Node, TypeName + ' ' + Module.Name);
-  AddNodeUses(NewNode, Module.UsedModules);
-  AddNodeMethodList(NewNode, Module.Functions);
-  AddNodeConstantList(NewNode, Module.Constants);
-  AddNodeVariableList(NewNode, Module.Variables);
-  AddNodeTypeList(NewNode, Module.Types);
-  AddNodeBeginEnd(NewNode, Module.Code);
+  if Module is TModulePackage then TypeName := 'package'
+  else if Module is TModuleProgram then
+  with TModuleProgram(Module) do begin
+    TypeName := 'program';
+    NewNode := TreeView.Items.AddChild(Node, TypeName + ' ' + Module.Name);
+    AddNodeUses(NewNode, UsedModules);
+    AddNodeMethodList(NewNode, Body.Functions);
+    AddNodeConstantList(NewNode, Body.Constants);
+    AddNodeVariableList(NewNode, Body.Variables);
+    AddNodeTypeList(NewNode, Body.Types);
+    AddNodeBeginEnd(NewNode, Body.Code);
+  end else if Module is TModuleUnit then TypeName := 'unit'
+  else if Module is TModuleLibrary then TypeName := 'library';
+
 end;