--- oup/current/Tools/MetaEditor.pas	2007/08/10 17:26:03	243
+++ oup/current/Tools/MetaEditor.pas	2007/11/26 11:02:28	248
@@ -100,16 +100,19 @@ var
   i: Integer;
   data: TNodeData;
   node: PVirtualNode;
+  basenode: PVirtualNode;
 begin
   if FConnectionID <> TreeElem.ConnectionID then
     SelectConnection(TreeElem.ConnectionID);
   root := TreeElem;
   VST.Clear;
   VST.BeginUpdate;
+  data.Field := root;
+  basenode := AddVSTEntry(VST, nil, data);
   for i := 0 to root.ChildCount - 1 do
   begin
     data.Field := root.Child[i];
-    node := AddVSTEntry(VST, nil, data);
+    node := AddVSTEntry(VST, basenode, data);
     if data.Field.ChildCount > 0 then
       VST.HasChildren[node] := True;
   end;
@@ -145,18 +148,18 @@ procedure TForm_Meta.VSTFocusChanged(Sen
   Node: PVirtualNode; Column: TColumnIndex);
 var
   data: PNodeData;
-  ffile: TFile;
+  ffile: TResource;
 //*******************************************************************
   fs: TFileStream;
 //*******************************************************************
 begin
   data := Sender.GetNodeData(Node);
   ffile := nil;
-  if data.Field is TFile then
-    ffile := TFile(data.Field);
+  if data.Field is TResource then
+    ffile := TResource(data.Field);
   if data.Field is _MetaTypes.TDatLink then
     if Assigned(_MetaTypes.TDatLink(data.Field).TargetFile) then
-      ffile := TFile(_MetaTypes.TDatLink(data.Field).TargetFile);
+      ffile := TResource(_MetaTypes.TDatLink(data.Field).TargetFile);
   if Assigned(ffile) then
   begin
     if Assigned(ffile.Editor) then
@@ -182,24 +185,24 @@ var
   i: Integer;
 begin
   data := Sender.GetNodeData(NewNode);
-  if data.Field is TFile then
+  if data.Field is TResource then
   begin
-    if Assigned(TFile(data.Field).Editor) then
-      Allowed := not TFile(data.Field).Opened
+    if Assigned(TResource(data.Field).Editor) then
+      Allowed := not TResource(data.Field).Opened
     else
       Allowed := True;
   end;
   if Allowed and Assigned(OldNode) then
   begin
     data := Sender.GetNodeData(OldNode);
-    if data.Field is TFile then
+    if data.Field is TResource then
     begin
-      if TFile(data.Field).Opened then
+      if TResource(data.Field).Opened then
       begin
         if tab_meta.ControlCount > 0 then
           for i := 0 to tab_meta.ControlCount - 1 do
             tab_meta.RemoveControl(tab_meta.Controls[i]);
-        TFile(data.Field).Opened := False;
+        TResource(data.Field).Opened := False;
       end;
     end;
   end;
@@ -240,11 +243,11 @@ begin
     case Column of
       0:
         begin
-          if Data.Field is TFile then
+          if Data.Field is TResource then
           begin
-            if Length(TFile(Data.Field).FileInfo.Name) = 0 then
+            if Length(TResource(Data.Field).FileInfo.Name) = 0 then
               TargetCanvas.Font.Color := $C06060;
-            if TFile(Data.Field).FileInfo.Size = 0 then
+            if TResource(Data.Field).FileInfo.Size = 0 then
               TargetCanvas.Font.Color := $2020A0;
           end;
         end;
@@ -263,7 +266,7 @@ var
 
   i: Integer;
   links: TStrings;
-  ifile: TFile;
+  ifile: TResource;
 begin
   inherited;
   if Assigned(Node) then
@@ -279,9 +282,9 @@ begin
           2: HintText := '';
         end;
       end;
-      if data.Field is TFile then
+      if data.Field is TResource then
       begin
-        ifile := TFile(data.Field);
+        ifile := TResource(data.Field);
         case Column of
           0: HintText :=
             'FileID:    ' + IntToStr(ifile.FileInfo.ID) + #13#10 +