--- oup/current/Tools/MetaEditor.dfm	2007/06/28 09:24:08	232
+++ oup/current/Tools/MetaEditor.dfm	2007/08/10 17:26:03	243
@@ -11,7 +11,7 @@ inherited Form_Meta: TForm_Meta
     ExplicitLeft = 0
     ExplicitTop = 25
     ExplicitWidth = 598
-    ExplicitHeight = 532
+    ExplicitHeight = 424
     object splitter: TSplitter
       Left = 190
       Top = 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,26 +50,24 @@ inherited Form_Meta: TForm_Meta
       OnFocusChanging = VSTFocusChanging
       OnGetText = VSTGetText
       OnPaintText = VSTPaintText
+      OnGetHint = VSTGetHint
+      OnGetPopupMenu = VSTGetPopupMenu
       OnInitChildren = VSTInitChildren
-      ExplicitWidth = 502
-      ExplicitHeight = 532
       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 rightPages: TPageControl
@@ -73,19 +75,19 @@ inherited Form_Meta: TForm_Meta
       Top = 0
       Width = 400
       Height = 424
-      ActivePage = tab_hex
+      ActivePage = tab_meta
       Align = alRight
       TabOrder = 1
       object tab_meta: TTabSheet
         Caption = 'Meta Edit'
         ImageIndex = 1
-        ExplicitWidth = 192
-        ExplicitHeight = 504
       end
       object tab_hex: TTabSheet
         Caption = 'Binary Edit'
-        ExplicitWidth = 192
-        ExplicitHeight = 504
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object splitter_hex_1: TSplitter
           Left = 0
           Top = 100
@@ -101,7 +103,7 @@ inherited Form_Meta: TForm_Meta
         end
         object splitter_hex_2: TSplitter
           Left = 0
-          Top = 250
+          Top = 256
           Width = 392
           Height = 8
           Cursor = crVSplit
@@ -114,16 +116,29 @@ inherited Form_Meta: TForm_Meta
         end
         object panel_hex_actions: TPanel
           Left = 0
-          Top = 355
+          Top = 361
           Width = 392
-          Height = 41
+          Height = 35
           Align = alBottom
           BevelOuter = bvNone
           Caption = 'panel_hex_actions'
           TabOrder = 0
-          ExplicitLeft = 3
-          ExplicitTop = 354
-          ExplicitWidth = 192
+          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
@@ -150,7 +165,7 @@ inherited Form_Meta: TForm_Meta
           Colors.OddColumn = clBlue
           Colors.EvenColumn = clNavy
           Colors.CurrentOffsetBackground = clBtnShadow
-          Colors.OffsetBackground = clBtnFace
+          Colors.OffsetBackGround = clBtnFace
           Colors.CurrentOffset = clBtnHighlight
           Colors.Grid = clBtnFace
           Colors.NonFocusCursorFrame = clAqua
@@ -159,15 +174,14 @@ inherited Form_Meta: TForm_Meta
           NoSizeChange = True
           AllowInsertMode = False
           DrawGridLines = False
-          Version = 'december 06, 2006; '#169' markus stephany, vcl[at]mirkes[dot]de'
+          Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
           ShowPositionIfNotFocused = True
-          ExplicitWidth = 192
         end
         object value_viewer: TWrapGrid
           Left = 0
           Top = 108
           Width = 392
-          Height = 142
+          Height = 148
           Align = alClient
           ColCount = 1
           DefaultColWidth = 80
@@ -178,13 +192,10 @@ inherited Form_Meta: TForm_Meta
           Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
           ScrollBars = ssVertical
           TabOrder = 2
-          ExplicitTop = 363
-          ExplicitWidth = 192
-          ExplicitHeight = 0
         end
         object structviewer: TVirtualStringTree
           Left = 0
-          Top = 258
+          Top = 264
           Width = 392
           Height = 97
           Align = alBottom
@@ -224,9 +235,6 @@ inherited Form_Meta: TForm_Meta
           TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
           OnFocusChanged = VSTFocusChanged
           OnGetText = VSTGetText
-          ExplicitLeft = -6
-          ExplicitTop = 161
-          ExplicitWidth = 192
           Columns = <
             item
               MaxWidth = 300
@@ -279,4 +287,45 @@ inherited Form_Meta: TForm_Meta
       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