Changeset 51 for branches/DelphiToC/Visual/USourceTree.pas

Timestamp:

Aug 9, 2010, 3:50:42 PM (14 years ago)

Author:

george

Message:

Renamed some files.
Added support for custom record types.

File:

• branches/DelphiToC/Visual/USourceTree.pas (modified) (5 diffs)

branches/DelphiToC/Visual/USourceTree.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UPascalSource, ComCtrls;
+  Classes, SysUtils, USourceCode, ComCtrls;
 
 type
@@ -20 +20 @@
     procedure AddNodeMethodList(Node: TTreeNode; Methods: TFunctionList);
     procedure AddNodeParameterList(Node: TTreeNode; Parameters: TParameterList);
+    procedure AddNodeTypeRecord(Node: TTreeNode; TypeRecord: TTypeRecord);
     procedure AddNodeTypeList(Node: TTreeNode; Types: TTypeList);
     procedure AddNodeVariableList(Node: TTreeNode; Variables: TVariableList);
@@ -195 +196 @@
   NewNode: TTreeNode;
   NewNode2: TTreeNode;
+  NewNode3: TTreeNode;
   I: Integer;
 begin
@@ -202 +204 @@
     with TType(Types[I]) do
     if not System then begin
-      NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ');
+      if TType(Types[I]) is TTypeRecord then begin
+        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = record');
+        AddNodeTypeRecord(NewNode2, TTypeRecord(Types[I]));
+      end else if Assigned(UsedType) then
+        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ' + UsedType.Name)
+      else NewNode2 := TreeView.Items.AddChild(NewNode, Name);
     end;
   end;
@@ -244 +251 @@
 end;
 
+procedure TSourceTree.AddNodeTypeRecord(Node: TTreeNode; TypeRecord: TTypeRecord
+  );
+var
+  NewNode: TTreeNode;
+  NewNode2: TTreeNode;
+  NewNode3: TTreeNode;
+  I: Integer;
+begin
+  if TypeRecord.Items.Count > 0 then begin
+    for I := 0 to TypeRecord.Items.Count - 1 do
+    with TType(TypeRecord.Items[I]) do
+    if not System then begin
+      if TType(TypeRecord.Items[I]) is TTypeRecord then begin
+        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = record');
+        AddNodeTypeRecord(NewNode2, TTypeRecord(TypeRecord.Items[I]))
+      end else if Assigned(UsedType) then
+        NewNode2 := TreeView.Items.AddChild(NewNode, Name + ' = ' + UsedType.Name)
+      else NewNode2 := TreeView.Items.AddChild(NewNode, Name);
+    end;
+  end;
+end;
+
 procedure TSourceTree.AddNodeModule(Node: TTreeNode; Module: TModule);
 var