--- oup/current/Tools/MetaEditor.pas	2007/06/15 22:12:39	218
+++ 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,22 +45,21 @@ type
       const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
       TextType: TVSTTextType);
   private
+    root: TTreeElement;
     procedure NewCon(ID: Integer);
   public
   end;
 
-var
-  Form_Meta: TForm_Meta;
 
 implementation
 {$R *.dfm}
-uses _MetaManager, _FileTypes, Data;
+uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
 
 type
   PNodeData = ^TNodeData;
 
   TNodeData = record
-    Field: TObject;
+    Field: TTreeElement;
   end;
 
 function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
@@ -58,31 +76,23 @@ end;
 
 procedure TForm_Meta.NewCon(ID: Integer);
 var
-  a,b,c: Int64;
   i: Integer;
   data: TNodeData;
   node: PVirtualNode;
+  Meta: TMetaManager;
+  root: TTreeElement;
 begin
   if ID >= 0 then
   begin
-    QueryPerformanceFrequency(c);
-    QueryPerformanceCounter(a);
-    if not Assigned(Meta) then
-      Meta := TMetaManager.Create(ID);
-    QueryPerformanceCounter(b);
-    ShowMessage('Loading Done - ' + FloatToStr((b-a)/c) + 's');
-
+    //VST
     VST.Clear;
     VST.BeginUpdate;
-    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;
@@ -96,19 +106,25 @@ var
   newdata: TNodeData;
   newnode: PVirtualNode;
   i: Integer;
-  id: Integer;
+  Meta: TMetaManager;
 begin
-  data := VST.GetNodeData(node);
-  for i := 0 to Meta.FileById[TFile(data.Field).FileID].ChildCount - 1 do
+  data := Sender.GetNodeData(node);
+  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 := Meta.FileById[TFile(data.Field).FileID].LinkByIndex[i].DestID;
-    Meta.InitFile(id);
-    newdata.Field := Meta.FileById[id];
-    newnode := AddVSTEntry(VST, Node, newdata);
-    if Meta.FileById[id].ChildCount > 0 then
-      VST.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 := Meta.FileById[TFile(data.Field).FileID].ChildCount;
+  ChildCount := Sender.ChildCount[Node];
 end;
 
 
@@ -123,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;
@@ -153,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;
@@ -175,22 +192,22 @@ begin
     case Column of
       0:
         begin
-          if Data.Field is TFile then
-          begin
-            CellText := TFile(Data.Field).FileName;
-            if CellText = '' then
-              CellText := 'Unnamed';
-          end;
+          CellText := Data.Field.GetCaption;
         end;
       1:
         begin
           if Data.Field is TFile then
-            CellText := TFile(Data.Field).FileExt;
+            CellText := TFile(Data.Field).FileInfo.Extension;
         end;
       2:
         begin
           if Data.Field is TFile then
-            CellText := IntToStr(TFile(Data.Field).FileID);
+            CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
+        end;
+      3:
+        begin
+          if Data.Field is TDataField then
+            CellText := TDataField(Data.Field).ValueAsString;
         end;
     end;
   end;
@@ -211,9 +228,9 @@ begin
         begin
           if Data.Field is TFile then
           begin
-            if Length(TFile(Data.Field).FileName) = 0 then
+            if Length(TFile(Data.Field).FileInfo.Name) = 0 then
               TargetCanvas.Font.Color := $C06060;
-            if TFile(Data.Field).FileSize = 0 then
+            if TFile(Data.Field).FileInfo.Size = 0 then
               TargetCanvas.Font.Color := $2020A0;
           end;
         end;
@@ -225,7 +242,7 @@ end;
 
 procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  Meta.Free;
+//  Meta.Free;
   inherited;
 end;