--- oup/current/Tools/MetaEditor.dfm	2007/06/15 15:12:11	217
+++ oup/current/Tools/MetaEditor.dfm	2009/05/06 13:47:23	321
@@ -1,35 +1,35 @@
 inherited Form_Meta: TForm_Meta
   Caption = 'Form_Meta'
+  ClientHeight = 449
   OnCreate = FormCreate
+  ExplicitWidth = 606
+  ExplicitHeight = 476
   PixelsPerInch = 96
   TextHeight = 13
-  inherited panel_connection: TPanel
-    ExplicitWidth = 598
-    inherited combo_connection: TComboBox
-      ExplicitWidth = 532
-    end
-  end
   inherited panel_basecontent: TPanel
+    Height = 424
     ExplicitLeft = 0
     ExplicitTop = 25
     ExplicitWidth = 598
-    ExplicitHeight = 532
+    ExplicitHeight = 424
     object splitter: TSplitter
-      Left = 502
+      Left = 190
       Top = 0
       Width = 8
-      Height = 532
+      Height = 424
       Align = alRight
       AutoSnap = False
       Beveled = True
       MinSize = 200
-      ExplicitLeft = 353
+      ExplicitLeft = 287
+      ExplicitTop = 16
+      ExplicitHeight = 532
     end
     object VST: TVirtualStringTree
       Left = 0
       Top = 0
-      Width = 502
-      Height = 532
+      Width = 190
+      Height = 424
       Align = alClient
       AnimationDuration = 0
       Header.AutoSizeIndex = 0
@@ -39,6 +39,10 @@ inherited Form_Meta: TForm_Meta
       Header.Font.Name = 'Tahoma'
       Header.Font.Style = []
       Header.Options = [hoColumnResize, hoDrag, hoVisible]
+      HintAnimation = hatNone
+      HintMode = hmHint
+      ParentShowHint = False
+      ShowHint = True
       TabOrder = 0
       TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoDeleteMovedNodes]
       TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
@@ -46,42 +50,286 @@ inherited Form_Meta: TForm_Meta
       OnFocusChanging = VSTFocusChanging
       OnGetText = VSTGetText
       OnPaintText = VSTPaintText
+      OnGetHint = VSTGetHint
+      OnGetPopupMenu = VSTGetPopupMenu
       OnInitChildren = VSTInitChildren
-      ExplicitLeft = 8
-      ExplicitTop = 60
-      ExplicitWidth = 353
-      ExplicitHeight = 325
       Columns = <
         item
           Position = 0
           Width = 250
-          WideText = 'FName'
+          WideText = 'Name'
         end
         item
           Position = 1
-          WideText = 'FType'
+          Width = 100
+          WideText = 'Type'
         end
         item
           Position = 2
-          WideText = 'FID'
-        end
-        item
-          Position = 3
-          WideText = 'Data'
+          Width = 150
+          WideText = 'Value'
         end>
     end
-    object Panel2: TPanel
-      Left = 510
+    object rightPages: TPageControl
+      Left = 198
       Top = 0
-      Width = 88
-      Height = 532
+      Width = 400
+      Height = 424
+      ActivePage = tab_meta
       Align = alRight
-      BevelOuter = bvNone
-      Caption = 'Panel2'
       TabOrder = 1
-      ExplicitLeft = 376
-      ExplicitTop = 92
-      ExplicitHeight = 285
+      object tab_meta: TTabSheet
+        Caption = 'Meta Edit'
+        ImageIndex = 1
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
+      end
+      object tab_hex: TTabSheet
+        Caption = 'Binary Edit'
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
+        object splitter_hex_1: TSplitter
+          Left = 0
+          Top = 100
+          Width = 392
+          Height = 8
+          Cursor = crVSplit
+          Align = alTop
+          AutoSnap = False
+          Beveled = True
+          MinSize = 40
+          ExplicitTop = 209
+          ExplicitWidth = 192
+        end
+        object splitter_hex_2: TSplitter
+          Left = 0
+          Top = 256
+          Width = 392
+          Height = 8
+          Cursor = crVSplit
+          Align = alBottom
+          AutoSnap = False
+          Beveled = True
+          MinSize = 40
+          ExplicitTop = 300
+          ExplicitWidth = 192
+        end
+        object panel_hex_actions: TPanel
+          Left = 0
+          Top = 361
+          Width = 392
+          Height = 35
+          Align = alBottom
+          BevelOuter = bvNone
+          Caption = 'panel_hex_actions'
+          TabOrder = 0
+          object btn_export: TButton
+            Left = 2
+            Top = 6
+            Width = 117
+            Height = 25
+            Caption = 'Export to file...'
+            TabOrder = 0
+          end
+          object btn_import: TButton
+            Left = 125
+            Top = 6
+            Width = 117
+            Height = 25
+            Caption = 'Import from file...'
+            TabOrder = 1
+          end
+        end
+        object hex: TMPHexEditor
+          Left = 0
+          Top = 0
+          Width = 392
+          Height = 100
+          Cursor = crIBeam
+          Align = alTop
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -16
+          Font.Name = 'Courier'
+          Font.Style = []
+          ParentFont = False
+          TabOrder = 1
+          BytesPerRow = 16
+          Translation = tkASCII
+          OffsetFormat = '6!10:0x|'
+          Colors.Background = clWindow
+          Colors.ChangedBackground = clWindow
+          Colors.ChangedText = clRed
+          Colors.CursorFrame = clNavy
+          Colors.Offset = clBlack
+          Colors.OddColumn = clBlue
+          Colors.EvenColumn = clNavy
+          Colors.CurrentOffsetBackground = clBtnShadow
+          Colors.OffsetBackGround = clBtnFace
+          Colors.CurrentOffset = clBtnHighlight
+          Colors.Grid = clBtnFace
+          Colors.NonFocusCursorFrame = clAqua
+          Colors.ActiveFieldBackground = clWindow
+          FocusFrame = True
+          NoSizeChange = True
+          AllowInsertMode = False
+          DrawGridLines = False
+          Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
+          ShowPositionIfNotFocused = True
+        end
+        object value_viewer: TWrapGrid
+          Left = 0
+          Top = 108
+          Width = 392
+          Height = 148
+          Align = alClient
+          ColCount = 1
+          DefaultColWidth = 80
+          DefaultRowHeight = 18
+          FixedCols = 0
+          RowCount = 8
+          FixedRows = 0
+          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
+          ScrollBars = ssVertical
+          TabOrder = 2
+        end
+        object structviewer: TVirtualStringTree
+          Left = 0
+          Top = 264
+          Width = 392
+          Height = 97
+          Align = alBottom
+          AnimationDuration = 0
+          AutoExpandDelay = 300
+          BiDiMode = bdLeftToRight
+          Colors.UnfocusedSelectionColor = clGradientActiveCaption
+          Colors.UnfocusedSelectionBorderColor = clGradientActiveCaption
+          Ctl3D = True
+          DragOperations = []
+          DrawSelectionMode = smBlendedRectangle
+          EditDelay = 200
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = []
+          Header.AutoSizeIndex = 0
+          Header.Font.Charset = DEFAULT_CHARSET
+          Header.Font.Color = clWindowText
+          Header.Font.Height = -11
+          Header.Font.Name = 'Tahoma'
+          Header.Font.Style = []
+          Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
+          Header.Style = hsFlatButtons
+          HintAnimation = hatNone
+          HintMode = hmTooltip
+          Indent = 14
+          ParentBiDiMode = False
+          ParentCtl3D = False
+          ParentFont = False
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 3
+          TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
+          TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
+          TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
+          OnFocusChanged = VSTFocusChanged
+          OnGetText = VSTGetText
+          Columns = <
+            item
+              MaxWidth = 300
+              MinWidth = 100
+              Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
+              Position = 0
+              Spacing = 20
+              Width = 150
+              WideText = 'Name'
+              WideHint = 'Name of the item.'
+            end
+            item
+              MaxWidth = 110
+              MinWidth = 80
+              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
+              Position = 1
+              Spacing = 20
+              Width = 85
+              WideText = 'Offset'
+              WideHint = 'Offset of the data-item.'
+            end
+            item
+              MaxWidth = 110
+              MinWidth = 75
+              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
+              Position = 2
+              Width = 75
+              WideText = 'Type'
+              WideHint = 'Data type of the item.'
+            end
+            item
+              MaxWidth = 250
+              MinWidth = 80
+              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
+              Position = 3
+              Width = 100
+              WideText = 'Value'
+              WideHint = 'Value of the item.'
+            end
+            item
+              MaxWidth = 400
+              MinWidth = 80
+              Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
+              Position = 4
+              Width = 400
+              WideText = 'Description'
+            end>
+          WideDefaultText = ''
+        end
+      end
+    end
+  end
+  object value_viewer_context: TPopupMenu
+    AutoHotkeys = maManual
+    AutoLineReduction = maManual
+    Left = 300
+    Top = 196
+    object value_viewer_context_copy: TMenuItem
+      Caption = 'Copy to &clipboard'
+    end
+    object value_viewer_context_copyasdec: TMenuItem
+      Caption = 'Copy to clipboard (as &dec)'
+    end
+    object value_viewer_context_copyasfloat: TMenuItem
+      Caption = 'Copy to clipboard (as &float)'
+    end
+    object value_viewer_context_copyasbitset: TMenuItem
+      Caption = 'Copy to clipboard (as &bitset)'
+    end
+    object value_viewer_context_copyasstring: TMenuItem
+      Caption = 'Copy to clipboard (as &string)'
+    end
+    object value_viewer_context_copyashex: TMenuItem
+      Caption = 'Copy to clipboard (as &hex)'
+    end
+  end
+  object VTHPopup: TVTHeaderPopupMenu
+    Left = 292
+    Top = 340
+  end
+  object vst_popup: TPopupMenu
+    AutoHotkeys = maManual
+    Left = 80
+    Top = 204
+    object vst_newRoot: TMenuItem
+      Caption = 'Set as root element in new window'
+      OnClick = vst_newRootClick
+    end
+    object vst_setRoot: TMenuItem
+      Caption = 'Set as root element here'
+      OnClick = vst_setRootClick
     end
   end
 end