--- oup/current/Tools/MetaEditor.pas	2007/06/12 16:42:53	212
+++ oup/current/Tools/MetaEditor.pas	2007/06/20 10:57:51	229
@@ -1,37 +1,39 @@
 unit MetaEditor;
+
 interface
+
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, VirtualTrees, _MetaManager, StdCtrls;
+  Dialogs, _BaseTemplate, ExtCtrls, VirtualTrees, StdCtrls;
 
 type
-  TForm_Meta = class(TForm)
+  TForm_Meta = class(TForm_BaseTemplate)
     VST: TVirtualStringTree;
-    Button1: TButton;
-    Label3: TLabel;
-    combo_connection: TComboBox;
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    Panel2: TPanel;
+    splitter: TSplitter;
     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 FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
+      Column: TColumnIndex);
+    procedure VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
+      NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
+      var Allowed: Boolean);
+    procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
+      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
     procedure VSTPaintText(Sender: TBaseVirtualTree;
       const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
       TextType: TVSTTextType);
   private
+    procedure NewCon(ID: Integer);
   public
-    MetaManager: TMetaManager;
   end;
 
-var
-  Form_Meta: TForm_Meta;
 
 implementation
-uses
-  Data, _DataTypes, _FileTypes, ConnectionManager, TypeDefs, StrUtils;
 {$R *.dfm}
+uses _MetaManager, _FileTypes, Data;
 
 type
   PNodeData = ^TNodeData;
@@ -52,112 +54,117 @@ begin
 end;
 
 
-
-procedure TForm_Meta.VSTInitChildren(Sender: TBaseVirtualTree;
-  Node: PVirtualNode; var ChildCount: Cardinal);
-var
-  data: PNodeData;
-  newdata: TNodeData;
-  newnode: PVirtualNode;
-  i: Integer;
-  id: Integer;
-begin
-  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.Button1Click(Sender: TObject);
+procedure TForm_Meta.NewCon(ID: Integer);
 var
-  name: String;
-  conid: Integer;
-
   a,b,c: Int64;
   i: Integer;
   data: TNodeData;
   node: PVirtualNode;
 begin
-  if combo_connection.ItemIndex >= 0 then
+{
+  if ID >= 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);
-    MetaManager := TMetaManager.Create(conid);
+    if not Assigned(Meta) then
+      Meta := TMetaManager.Create(ID, Self);
     QueryPerformanceCounter(b);
     ShowMessage('Loading Done - ' + FloatToStr((b-a)/c) + 's');
 
     VST.Clear;
     VST.BeginUpdate;
-    for i := 0 to MetaManager.FileCount - 1 do
+    for i := 0 to Meta.FileCount - 1 do
     begin
-      if Assigned(MetaManager.FileById[i]) then
+      if Assigned(Meta.FileById[i]) then
       begin
-        data.Field := MetaManager.FileById[i];
+        data.Field := Meta.FileById[i];
         node := AddVSTEntry(VST, nil, data);
-        if MetaManager.FileById[i].ChildCount > 0 then
+        if Meta.FileById[i].ChildCount > 0 then
           VST.HasChildren[node] := True;
       end;
     end;
     VST.EndUpdate;
   end;
+}
 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
-  MetaManager.Free;
-  Action := caFree;
+{
+  data := VST.GetNodeData(node);
+  for i := 0 to Meta.FileById[TFile(data.Field).FileID].ChildCount - 1 do
+  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;
+  end;
+  ChildCount := Meta.FileById[TFile(data.Field).FileID].ChildCount;
+}
 end;
 
 
-procedure TForm_Meta.FormCreate(Sender: TObject);
+procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
+  Node: PVirtualNode; Column: TColumnIndex);
 var
-  i: Integer;
-
-  fn, datatype, boxstring: String;
-  level: Integer;
+  data: PNodeData;
 begin
-  combo_connection.ItemIndex := -1;
-  combo_connection.Items.Clear;
-  if ConManager.Count > 0 then
+  data := Sender.GetNodeData(Node);
+  if data.Field is TFile then
   begin
-    for i := 0 to ConManager.Count - 1 do
+    TFile(data.Field).InitEditor;
+    if Assigned(TFile(data.Field).Editor) then
     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;
+      panel2.InsertControl(TFile(data.Field).Editor);
+      TFile(data.Field).Opened := True;
     end;
   end;
+end;
 
 
-  VST.NodeDataSize := SizeOf(TNodeData);
-  VST.Font.Charset := AppSettings.CharSet;
-  VST.Clear;
+procedure TForm_Meta.VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
+  NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
+  var Allowed: Boolean);
+var
+  data: PNodeData;
+  i: Integer;
+begin
+  data := Sender.GetNodeData(NewNode);
+  if data.Field is TFile then
+  begin
+    TFile(data.Field).InitEditor;
+    if Assigned(TFile(data.Field).Editor) then
+      Allowed := not TFile(data.Field).Opened
+    else
+      Allowed := True;
+  end;
+  if Allowed and Assigned(OldNode) then
+  begin
+    data := Sender.GetNodeData(OldNode);
+    if data.Field is TFile then
+    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]);
+        TFile(data.Field).Opened := False;
+      end;
+    end;
+  end;
 end;
 
 
-
 procedure TForm_Meta.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
   Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
 var
@@ -191,6 +198,7 @@ begin
   end;
 end;
 
+
 procedure TForm_Meta.VSTPaintText(Sender: TBaseVirtualTree;
   const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
   TextType: TVSTTextType);
@@ -204,95 +212,35 @@ begin
       0:
         begin
           if Data.Field is TFile then
+          begin
             if Length(TFile(Data.Field).FileName) = 0 then
-              TargetCanvas.Font.Color := $000060;
+              TargetCanvas.Font.Color := $C06060;
+            if TFile(Data.Field).FileSize = 0 then
+              TargetCanvas.Font.Color := $2020A0;
+          end;
         end;
     end;
   end;
 end;
 
-{
 
-procedure WriteStructureInfos;
-var
-  i, j:    Integer;
-  pdata:   PNodeData;
-  Data:    TNodeData;
-  node:    PVirtualNode;
+
+procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  VST.BeginUpdate;
-  if VST.RootNodeCount = 0 then
-  begin
-    structs := LoadStructureDefinition(ConID, fileid);
-    if structs.Data then
-    begin
-      if Length(structs.Global) > 0 then
-      begin
-        for i := 0 to High(structs.Global) do
-        begin
-          Data.Caption  := structs.Global[i].Name;
-          Data.Offset   := structs.Global[i].offset;
-          Data.DataType := structs.Global[i].datatype;
-          Data.Value    := GetValue(structs.Global[i].datatype, structs.Global[i].offset);
-          Data.Description := structs.Global[i].description;
-          AddVSTEntry(VST, nil, Data);
-        end;
-      end;
-      if Length(structs.Subs) > 0 then
-      begin
-        for i := 0 to High(structs.Subs) do
-        begin
-          with structs.Subs[i] do
-          begin
-            if Length(Entries) > 0 then
-            begin
-              if Pos('#', SubName) > 0 then
-              begin
-                Data.Offset  := StrToInt('$'+MidStr(SubName, Pos('#', SubName) + 1, 8));
-                Data.Value   := '$' +
-                  MidStr(SubName, PosEx('#', SubName, Pos('#', SubName) + 1) + 1, 8);
-                Data.Caption := MidStr(SubName, 1, Pos('#', SubName) - 1);
-                Data.Description := SubDesc;
-              end
-              else
-              begin
-                Data.Caption := SubName;
-                Data.Description := SubDesc;
-                Data.Offset := 0;
-                Data.Value := '';
-              end;
-              Data.DataType := 0;
-              node := AddVSTEntry(VST, nil, Data);
-              Data.Description := '';
-              for j := 0 to High(Entries) do
-              begin
-                Data.Caption  := Entries[j].Name;
-                Data.Offset   := Entries[j].offset;
-                Data.DataType := Entries[j].datatype;
-                Data.Value    := GetValue(Entries[j].datatype, Entries[j].offset);
-                Data.Description := Entries[j].description;
-                AddVSTEntry(VST, node, Data);
-              end;
-            end;
-          end;
-        end;
-      end;
-    end;
-    if VST.RootNodeCount > 0 then
-      VST.FocusedNode := VST.GetFirst;
-  end
-  else
-  begin
-    Node := VST.GetFirst;
-    while Assigned(Node) do
-    begin
-      pdata := VST.GetNodeData(Node);
-      if pdata.DataType > 0 then
-        pdata.Value := GetValue(pdata.Datatype, pdata.Offset);
-      Node := VST.GetNext(Node);
-    end;
-  end;
-  VST.EndUpdate;
+//  Meta.Free;
+  inherited;
 end;
-}
+
+procedure TForm_Meta.FormCreate(Sender: TObject);
+begin
+  inherited;
+  OnNewConnection := NewCon;
+
+  VST.NodeDataSize := SizeOf(TNodeData);
+  VST.Font.Charset := AppSettings.CharSet;
+  VST.Clear;
+
+  UpdateConList;
+end;
+
 end.