--- oup/current/Tools/MetaEditor.pas	2007/06/20 22:24:04	231
+++ oup/current/Tools/MetaEditor.pas	2007/07/13 23:15:47	236
@@ -4,13 +4,32 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, _BaseTemplate, ExtCtrls, VirtualTrees, StdCtrls;
+  Dialogs, _BaseTemplate, ExtCtrls, VirtualTrees, StdCtrls, ComCtrls, Grids,
+  MPHexEditor, Wrapgrid, VTHeaderPopup, Menus, _TreeElement;
 
 type
   TForm_Meta = class(TForm_BaseTemplate)
     VST: TVirtualStringTree;
-    Panel2: TPanel;
     splitter: TSplitter;
+    rightPages: TPageControl;
+    tab_hex: TTabSheet;
+    tab_meta: TTabSheet;
+    panel_hex_actions: TPanel;
+    hex: TMPHexEditor;
+    splitter_hex_1: TSplitter;
+    value_viewer: TWrapGrid;
+    splitter_hex_2: TSplitter;
+    structviewer: TVirtualStringTree;
+    value_viewer_context: TPopupMenu;
+    value_viewer_context_copy: TMenuItem;
+    value_viewer_context_copyasdec: TMenuItem;
+    value_viewer_context_copyasfloat: TMenuItem;
+    value_viewer_context_copyasbitset: TMenuItem;
+    value_viewer_context_copyasstring: TMenuItem;
+    value_viewer_context_copyashex: TMenuItem;
+    VTHPopup: TVTHeaderPopupMenu;
+    btn_export: TButton;
+    btn_import: TButton;
     procedure FormCreate(Sender: TObject);
     procedure VSTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode;
       var ChildCount: Cardinal);
@@ -26,6 +45,7 @@ type
       const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
       TextType: TVSTTextType);
   private
+    root: TTreeElement;
     procedure NewCon(ID: Integer);
   public
   end;
@@ -33,13 +53,13 @@ type
 
 implementation
 {$R *.dfm}
-uses _MetaManager, _MetaTypes, ConnectionManager, Data;
+uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
 
 type
   PNodeData = ^TNodeData;
 
   TNodeData = record
-    Field: TObject;
+    Field: TTreeElement;
   end;
 
 function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
@@ -60,21 +80,19 @@ var
   data: TNodeData;
   node: PVirtualNode;
   Meta: TMetaManager;
+  root: TTreeElement;
 begin
   if ID >= 0 then
   begin
+    //VST
     VST.Clear;
     VST.BeginUpdate;
-    Meta := ConManager.Connection[ID].MetaData;
-    for i := 0 to Meta.FileCount - 1 do
+    root := ConManager.Connection[FConnectionID].MetaData.Root;
+    for i := 0 to root.ChildCount - 1 do
     begin
-      if Assigned(Meta.FileById[i]) then
-      begin
-        data.Field := Meta.FileById[i];
-        node := AddVSTEntry(VST, nil, data);
-        if Meta.FileById[i].ChildCount > 0 then
-          VST.HasChildren[node] := True;
-      end;
+      data.Field := root.Child[i];
+      node := AddVSTEntry(VST, nil, data);
+      VST.HasChildren[node] := True;
     end;
     VST.EndUpdate;
   end;
@@ -88,19 +106,23 @@ var
   newdata: TNodeData;
   newnode: PVirtualNode;
   i: Integer;
-  id: Integer;
   Meta: TMetaManager;
 begin
   data := Sender.GetNodeData(node);
-  Meta := ConManager.Connection[ID].MetaData;
-  for i := 0 to TFile(data.Field).ChildCount - 1 do
+  Meta := ConManager.Connection[ConnectionID].MetaData;
+  if data.Field is TExtension then
+    if TExtension(data.Field).ChildCount = 0 then
+      TExtension(data.Field).InitList;
+
+  if data.Field.ChildCount > 0 then
   begin
-    id := TFile(data.Field).LinkByIndex[i].DestID;
-    Meta.InitFile(id);
-    newdata.Field := Meta.FileById[id];
-    newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
-    if Meta.FileById[id].ChildCount > 0 then
-      Sender.HasChildren[newnode] := True;
+    for i := 0 to data.Field.ChildCount - 1 do
+    begin
+      newdata.Field := data.Field.Child[i];
+      newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
+      if newdata.Field.ChildCount > 0 then
+        Sender.HasChildren[newnode] := True;
+    end;
   end;
   ChildCount := Sender.ChildCount[Node];
 end;
@@ -117,7 +139,8 @@ begin
     TFile(data.Field).InitEditor;
     if Assigned(TFile(data.Field).Editor) then
     begin
-      panel2.InsertControl(TFile(data.Field).Editor);
+      TFile(data.Field).Editor.Align := alClient;
+      tab_meta.InsertControl(TFile(data.Field).Editor);
       TFile(data.Field).Opened := True;
     end;
   end;
@@ -147,9 +170,9 @@ begin
     begin
       if TFile(data.Field).Opened then
       begin
-        if panel2.ControlCount > 0 then
-          for i := 0 to panel2.ControlCount - 1 do
-            panel2.RemoveControl(panel2.Controls[i]);
+        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;
       end;
     end;
@@ -169,12 +192,7 @@ begin
     case Column of
       0:
         begin
-          if Data.Field is TFile then
-          begin
-            CellText := TFile(Data.Field).FileInfo.Name;
-            if CellText = '' then
-              CellText := 'Unnamed';
-          end;
+          CellText := Data.Field.GetCaption;
         end;
       1:
         begin
@@ -186,6 +204,11 @@ begin
           if Data.Field is TFile then
             CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
         end;
+      3:
+        begin
+          if Data.Field is TDataField then
+            CellText := TDataField(Data.Field).ValueAsString;
+        end;
     end;
   end;
 end;