Changeset 240 for oup/current/Tools/MetaEditor.pas

Timestamp:

Jul 15, 2007, 1:12:26 AM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/MetaEditor.pas (modified) (2 diffs)

oup/current/Tools/MetaEditor.pas

@@ -138 +138 @@
 
 
+
 procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
   Node: PVirtualNode; Column: TColumnIndex);
 var
   data: PNodeData;
+  ffile: TFile;
+//*******************************************************************
+  fs: TFileStream;
+//*******************************************************************
 begin
   data := Sender.GetNodeData(Node);
+  ffile := nil;
   if data.Field is TFile then
-  begin
-    TFile(data.Field).InitEditor;
-    if Assigned(TFile(data.Field).Editor) then
+    ffile := TFile(data.Field);
+  if data.Field is TDatLink then
+    if Assigned(TDatLink(data.Field).TargetFile) then
+      ffile := TFile(TDatLink(data.Field).TargetFile);
+  if Assigned(ffile) then
+  begin
+    if Assigned(ffile.Editor) then
     begin
-      TFile(data.Field).Editor.Align := alClient;
-      tab_meta.InsertControl(TFile(data.Field).Editor);
-      TFile(data.Field).Opened := True;
-    end;
+      ffile.Editor.Align := alClient;
+      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;
@@ -167 +182 @@
   if data.Field is TFile then
   begin
-    TFile(data.Field).InitEditor;
     if Assigned(TFile(data.Field).Editor) then
       Allowed := not TFile(data.Field).Opened