--- oup/current/Tools/MetaEditor.pas	2007/07/17 22:28:01	242
+++ oup/current/Tools/MetaEditor.pas	2007/08/17 21:09:51	244
@@ -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;
@@ -263,6 +266,7 @@ var
 
   i: Integer;
   links: TStrings;
+  ifile: TFile;
 begin
   inherited;
   if Assigned(Node) then
@@ -278,16 +282,15 @@ begin
           2: HintText := '';
         end;
       end;
-      if (data.Field is _MetaTypes.TDatLink) and (Column = 2) then
+      if data.Field is TFile then
       begin
-        links := nil;
-        links := ConManager.Connection[FConnectionID].GetFilesList(_MetaTypes.TDatLink(data.Field).PosExts, '', False, ST_NameAsc);
-        HintText := IntToStr(links.Count);
-        for i := 0 to Min(links.Count - 1, 99) do
-        begin
-          if (i mod 5) = 0 then
-            HintText := HintText + #13+#10;
-          HintText := HintText + links.Strings[i] + '       ';
+        ifile := TFile(data.Field);
+        case Column of
+          0: HintText :=
+            'FileID:    ' + IntToStr(ifile.FileInfo.ID) + #13#10 +
+            'Name:      ' + ifile.FileInfo.Name + #13#10 +
+            'Extension: ' + ifile.FileInfo.Extension + #13#10 +
+            '.dat-size: ' + IntToStr(ifile.FileInfo.Size) + #13#10;
         end;
       end;
     end;