--- oup/rewrite/Tools/BinEdit.dfm	2007/02/21 00:29:27	105
+++ oup/current/Tools/BinEdit.dfm	2007/11/26 11:02:28	248
@@ -1,195 +1,244 @@
 inherited Form_BinEdit: TForm_BinEdit
-  Caption = 'BinEdit'
+  Caption = 'Form_BinEdit'
   KeyPreview = True
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnKeyUp = FormKeyUp
-  ExplicitWidth = 500
-  ExplicitHeight = 450
   PixelsPerInch = 96
   TextHeight = 13
-  inherited content: TPanel
-    object Splitter2: TSplitter
-      Left = 0
-      Top = 209
-      Width = 283
-      Height = 9
-      Cursor = crVSplit
-      Align = alTop
-      AutoSnap = False
-      Beveled = True
-      MinSize = 40
-      ExplicitWidth = 425
-    end
-    object Splitter3: TSplitter
-      Left = 0
-      Top = 318
-      Width = 283
-      Height = 8
-      Cursor = crVSplit
-      Align = alBottom
-      AutoSnap = False
-      Beveled = True
-      MinSize = 40
-      ExplicitLeft = -9
-      ExplicitTop = 430
-      ExplicitWidth = 425
-    end
-    object hex: TMPHexEditor
-      Left = 0
-      Top = 0
-      Width = 283
-      Height = 209
-      Cursor = crIBeam
-      Align = alTop
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = 'Courier'
-      Font.Style = []
-      OnKeyUp = hexKeyUp
-      ParentFont = False
-      TabOrder = 0
-      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'
-      OnChange = hexChange
-      ShowPositionIfNotFocused = True
-      OnSelectionChanged = hexSelectionChanged
-    end
-    object value_viewer: TWrapGrid
-      Left = 0
-      Top = 218
-      Width = 283
-      Height = 100
-      Align = alClient
-      ColCount = 1
-      DefaultColWidth = 80
-      DefaultRowHeight = 18
-      FixedCols = 0
-      RowCount = 8
-      FixedRows = 0
-      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
-      PopupMenu = value_viewer_context
-      ScrollBars = ssVertical
-      TabOrder = 1
-      OnDblClick = value_viewerDblClick
-      OnMouseDown = value_viewerMouseDown
-    end
-    object VST: TVirtualStringTree
-      Left = 0
-      Top = 326
-      Width = 283
-      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.PopupMenu = VTHPopup
-      Header.Style = hsFlatButtons
-      HintAnimation = hatNone
-      HintMode = hmTooltip
-      Indent = 14
-      ParentBiDiMode = False
-      ParentCtl3D = False
-      ParentFont = False
-      ParentShowHint = False
-      ShowHint = True
-      TabOrder = 2
-      TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
-      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
-      TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
-      OnDblClick = VSTDblClick
-      OnFocusChanged = VSTFocusChanged
-      OnGetText = VSTGetText
-      OnHeaderDragged = VSTHeaderDragged
-      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.'
+  inherited panel_basecontent: TPanel
+    inherited panel_files: TPanel
+      inherited FilePages: TPageControl
+        Height = 471
+        ExplicitHeight = 471
+        inherited tab_files: TTabSheet
+          ExplicitHeight = 443
+          inherited filelist: TListBox
+            Height = 318
+            ExplicitHeight = 318
+          end
         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.'
+        inherited tab_meta: TTabSheet
+          inherited filelist_meta: TVirtualStringTree
+            Height = 443
+            ExplicitHeight = 443
+          end
         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
+      object panel_imexport: TPanel
+        Left = 0
+        Top = 472
+        Width = 200
+        Height = 60
+        Align = alBottom
+        BevelOuter = bvNone
+        TabOrder = 1
+        DesignSize = (
+          200
+          60)
+        object btn_export: TButton
+          Left = 4
+          Top = 4
+          Width = 190
+          Height = 25
+          Anchors = [akLeft, akTop, akRight]
+          Caption = 'Export to file...'
+          TabOrder = 0
         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.'
+        object btn_import: TButton
+          Left = 4
+          Top = 32
+          Width = 190
+          Height = 25
+          Anchors = [akLeft, akTop, akRight]
+          Caption = 'Import from file...'
+          TabOrder = 1
         end
-        item
-          MaxWidth = 400
-          MinWidth = 80
-          Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
-          Position = 4
-          Width = 400
-          WideText = 'Description'
-        end>
-      WideDefaultText = ''
+      end
+    end
+    inherited panel_content: TPanel
+      object Splitter2: TSplitter
+        Left = 0
+        Top = 209
+        Width = 390
+        Height = 8
+        Cursor = crVSplit
+        Align = alTop
+        AutoSnap = False
+        Beveled = True
+        MinSize = 40
+      end
+      object Splitter3: TSplitter
+        Left = 0
+        Top = 427
+        Width = 390
+        Height = 8
+        Cursor = crVSplit
+        Align = alBottom
+        AutoSnap = False
+        Beveled = True
+        MinSize = 40
+        ExplicitTop = 435
+      end
+      object hex: TMPHexEditor
+        Left = 0
+        Top = 0
+        Width = 390
+        Height = 209
+        Cursor = crIBeam
+        Align = alTop
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -16
+        Font.Name = 'Courier'
+        Font.Style = []
+        OnKeyUp = hexKeyUp
+        ParentFont = False
+        TabOrder = 0
+        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 = 'september 30, 2007; '#169' markus stephany, vcl[at]mirkes[dot]de'
+        OnChange = hexChange
+        ShowPositionIfNotFocused = True
+        OnSelectionChanged = hexSelectionChanged
+      end
+      object value_viewer: TWrapGrid
+        Left = 0
+        Top = 217
+        Width = 390
+        Height = 210
+        Align = alClient
+        ColCount = 1
+        DefaultColWidth = 80
+        DefaultRowHeight = 18
+        FixedCols = 0
+        RowCount = 8
+        FixedRows = 0
+        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
+        ScrollBars = ssVertical
+        TabOrder = 1
+        OnDblClick = value_viewerDblClick
+        OnMouseDown = value_viewerMouseDown
+      end
+      object VST: TVirtualStringTree
+        Left = 0
+        Top = 435
+        Width = 390
+        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 = 2
+        TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
+        TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toUseBlendedImages]
+        TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect]
+        OnDblClick = VSTDblClick
+        OnFocusChanged = VSTFocusChanged
+        OnGetText = VSTGetText
+        OnHeaderDragged = VSTHeaderDragged
+        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
-  object value_viewer_context: TPopupMenu [3]
+  object VTHPopup: TVTHeaderPopupMenu
+    OnColumnChange = VTHPopupColumnChange
+    Left = 272
+    Top = 376
+  end
+  object value_viewer_context: TPopupMenu
     AutoHotkeys = maManual
     AutoLineReduction = maManual
     OnPopup = value_viewer_contextPopup
@@ -201,28 +250,18 @@ inherited Form_BinEdit: TForm_BinEdit
     end
     object value_viewer_context_copyasdec: TMenuItem
       Caption = 'Copy to clipboard (as &dec)'
-      OnClick = value_viewer_context_copyClick
     end
     object value_viewer_context_copyasfloat: TMenuItem
       Caption = 'Copy to clipboard (as &float)'
-      OnClick = value_viewer_context_copyClick
     end
     object value_viewer_context_copyasbitset: TMenuItem
       Caption = 'Copy to clipboard (as &bitset)'
-      OnClick = value_viewer_context_copyClick
     end
     object value_viewer_context_copyasstring: TMenuItem
       Caption = 'Copy to clipboard (as &string)'
-      OnClick = value_viewer_context_copyClick
     end
     object value_viewer_context_copyashex: TMenuItem
       Caption = 'Copy to clipboard (as &hex)'
-      OnClick = value_viewer_context_copyClick
     end
   end
-  object VTHPopup: TVTHeaderPopupMenu [4]
-    OnColumnChange = VTHPopupColumnChange
-    Left = 272
-    Top = 376
-  end
 end