source: oup/current/Tool_BinEdit.dfm@ 45

inherited Form_BinEdit: TForm_BinEdit
  Caption = 'BinEdit'
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  PixelsPerInch = 96
  TextHeight = 13
  inherited panel_files: TPanel
    inherited filelist: TListBox
      ExplicitHeight = 256
    end
  end
  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
      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.'
        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
  object value_viewer_context: TPopupMenu [3]
    AutoHotkeys = maManual
    OnPopup = value_viewer_contextPopup
    Left = 280
    Top = 232
    object value_viewer_context_copy: TMenuItem
      Caption = 'Copy to &clipboard'
      OnClick = value_viewer_context_copyClick
    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