--- oup/current/Tools/MetaEditor.pas	2007/06/04 22:07:29	209
+++ oup/current/Tools/MetaEditor.pas	2007/06/12 16:42:53	212
@@ -2,18 +2,27 @@ unit MetaEditor;
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, VirtualTrees, _FileManager;
+  Dialogs, VirtualTrees, _MetaManager, StdCtrls;
 
 type
   TForm_Meta = class(TForm)
     VST: TVirtualStringTree;
+    Button1: TButton;
+    Label3: TLabel;
+    combo_connection: TComboBox;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
       Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
+    procedure Button1Click(Sender: TObject);
+    procedure VSTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode;
+      var ChildCount: Cardinal);
+    procedure VSTPaintText(Sender: TBaseVirtualTree;
+      const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
+      TextType: TVSTTextType);
   private
   public
-    FileManager: TFileManager;
+    MetaManager: TMetaManager;
   end;
 
 var
@@ -21,7 +30,7 @@ var
 
 implementation
 uses
-  Data, _DataTypes, _FileTypes;
+  Data, _DataTypes, _FileTypes, ConnectionManager, TypeDefs, StrUtils;
 {$R *.dfm}
 
 type
@@ -44,34 +53,107 @@ end;
 
 
 
-procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
+procedure TForm_Meta.VSTInitChildren(Sender: TBaseVirtualTree;
+  Node: PVirtualNode; var ChildCount: Cardinal);
+var
+  data: PNodeData;
+  newdata: TNodeData;
+  newnode: PVirtualNode;
+  i: Integer;
+  id: Integer;
 begin
-  FileManager.Free;
-  Action := caFree;
+  data := VST.GetNodeData(node);
+  for i := 0 to MetaManager.FileById[TFile(data.Field).FileID].ChildCount - 1 do
+  begin
+    id := MetaManager.FileById[TFile(data.Field).FileID].LinkByIndex[i].DestID;
+    MetaManager.InitFile(id);
+    newdata.Field := MetaManager.FileById[id];
+    newnode := AddVSTEntry(VST, Node, newdata);
+    if MetaManager.FileById[id].ChildCount > 0 then
+      VST.HasChildren[newnode] := True;
+  end;
+  ChildCount := MetaManager.FileById[TFile(data.Field).FileID].ChildCount;
 end;
 
 
-procedure TForm_Meta.FormCreate(Sender: TObject);
+procedure TForm_Meta.Button1Click(Sender: TObject);
 var
+  name: String;
+  conid: Integer;
+
   a,b,c: Int64;
   i: Integer;
   data: TNodeData;
+  node: PVirtualNode;
 begin
-  VST.NodeDataSize := SizeOf(TNodeData);
-  VST.Font.Charset := AppSettings.CharSet;
-  VST.Clear;
+  if combo_connection.ItemIndex >= 0 then
+  begin
+    name := combo_connection.Items.Strings[combo_connection.ItemIndex];
+    conid := StrToInt(MidStr(name, Pos('[', name) + 1, Pos(']', name) - Pos('[', name)  - 1));
 
-  QueryPerformanceFrequency(c);
-  QueryPerformanceCounter(a);
-  FileManager := TFileManager.Create(1);
-  QueryPerformanceCounter(b);
-  ShowMessage('Loading Done - ' + FloatToStr((b-a)/c) + 's');
+    QueryPerformanceFrequency(c);
+    QueryPerformanceCounter(a);
+    MetaManager := TMetaManager.Create(conid);
+    QueryPerformanceCounter(b);
+    ShowMessage('Loading Done - ' + FloatToStr((b-a)/c) + 's');
+
+    VST.Clear;
+    VST.BeginUpdate;
+    for i := 0 to MetaManager.FileCount - 1 do
+    begin
+      if Assigned(MetaManager.FileById[i]) then
+      begin
+        data.Field := MetaManager.FileById[i];
+        node := AddVSTEntry(VST, nil, data);
+        if MetaManager.FileById[i].ChildCount > 0 then
+          VST.HasChildren[node] := True;
+      end;
+    end;
+    VST.EndUpdate;
+  end;
+end;
+
+procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  MetaManager.Free;
+  Action := caFree;
+end;
+
+
+procedure TForm_Meta.FormCreate(Sender: TObject);
+var
+  i: Integer;
 
-  for i := 0 to FileManager.FileCount - 1 do
+  fn, datatype, boxstring: String;
+  level: Integer;
+begin
+  combo_connection.ItemIndex := -1;
+  combo_connection.Items.Clear;
+  if ConManager.Count > 0 then
   begin
-    data.Field := FileManager.FileById[i];
-    AddVSTEntry(VST, nil, data);
+    for i := 0 to ConManager.Count - 1 do
+    begin
+      level := ConManager.ConnectionByIndex[i].LevelNumber;
+      fn := ExtractFileName(ConManager.ConnectionByIndex[i].FileName);
+      if ConManager.ConnectionByIndex[i].Backend = DB_ONI then
+        datatype := 'ONI-.dat: '
+      else if ConManager.ConnectionByIndex[i].Backend = DB_ADB then
+        datatype := 'OUP-DB: '
+      else
+        datatype := 'Unknown: ';
+      boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ') [' + IntToStr(ConManager.ConnectionByIndex[i].ConnectionID) + ']';
+      combo_connection.Items.Add(boxstring);
+    end;
+    if combo_connection.ItemIndex = -1 then
+    begin
+      combo_connection.ItemIndex := 0;
+    end;
   end;
+
+
+  VST.NodeDataSize := SizeOf(TNodeData);
+  VST.Font.Charset := AppSettings.CharSet;
+  VST.Clear;
 end;
 
 
@@ -86,30 +168,46 @@ begin
   if TextType = ttNormal then
   begin
     case Column of
-      0: begin
-        if Data.Field is TFile then
+      0:
         begin
-          CellText := TFile(Data.Field).FileName;
+          if Data.Field is TFile then
+          begin
+            CellText := TFile(Data.Field).FileName;
+            if CellText = '' then
+              CellText := 'Unnamed';
+          end;
         end;
-      end;
-{      0:
-        CellText := Data.Caption;
       1:
-        if Data.DataType > 0 then
-          CellText := '0x' + IntToHex(Data.Offset, 8)
-        else if Data.Offset > 0 then
-          CellText := '0x' + IntToHex(Data.Offset, 8);
+        begin
+          if Data.Field is TFile then
+            CellText := TFile(Data.Field).FileExt;
+        end;
       2:
-        if Data.DataType > 0 then
-          CellText := GetDataType(Data.DataType);
-      3:
-        if Data.DataType > 0 then
-          CellText := Data.Value //GetValue(data.DataType, data.Offset)
-        else if Length(Data.Value) > 0 then
-          CellText := IntToStr(StrToInt(Data.Value)) + ' Bytes';
-      4:
-        CellText := Data.Description;
-}    end;
+        begin
+          if Data.Field is TFile then
+            CellText := IntToStr(TFile(Data.Field).FileID);
+        end;
+    end;
+  end;
+end;
+
+procedure TForm_Meta.VSTPaintText(Sender: TBaseVirtualTree;
+  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
+  TextType: TVSTTextType);
+var
+  Data: PNodeData;
+begin
+  Data     := Sender.GetNodeData(Node);
+  if TextType = ttNormal then
+  begin
+    case Column of
+      0:
+        begin
+          if Data.Field is TFile then
+            if Length(TFile(Data.Field).FileName) = 0 then
+              TargetCanvas.Font.Color := $000060;
+        end;
+    end;
   end;
 end;