--- oup/current/Tools/MetaEditor.pas	2007/08/17 21:09:51	244
+++ oup/current/Tools/MetaEditor.pas	2009/05/06 13:47:23	321
@@ -148,18 +148,15 @@ procedure TForm_Meta.VSTFocusChanged(Sen
   Node: PVirtualNode; Column: TColumnIndex);
 var
   data: PNodeData;
-  ffile: TFile;
-//*******************************************************************
-  fs: TFileStream;
-//*******************************************************************
+  ffile: TResource;
 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
@@ -168,11 +165,6 @@ begin
       tab_meta.InsertControl(ffile.Editor);
       ffile.Opened := True;
     end;
-//*******************************************************************
-//    fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
-//    ffile.ReCreateFile(fs);
-//    fs.Free;
-//*******************************************************************
   end;
 end;
 
@@ -185,24 +177,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;
@@ -243,11 +235,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;
@@ -264,9 +256,7 @@ var
   data: PNodeData;
   CellText: WideString;
 
-  i: Integer;
-  links: TStrings;
-  ifile: TFile;
+  ifile: TResource;
 begin
   inherited;
   if Assigned(Node) then
@@ -282,9 +272,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 +