--- oup/current/Tools/MetaEditor.dfm 2007/06/28 09:24:08 232 +++ oup/current/Tools/MetaEditor.dfm 2007/06/29 12:38:24 233 @@ -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 @@ -47,8 +47,6 @@ inherited Form_Meta: TForm_Meta OnGetText = VSTGetText OnPaintText = VSTPaintText OnInitChildren = VSTInitChildren - ExplicitWidth = 502 - ExplicitHeight = 532 Columns = < item Position = 0 @@ -79,13 +77,13 @@ inherited Form_Meta: TForm_Meta object tab_meta: TTabSheet Caption = 'Meta Edit' ImageIndex = 1 - ExplicitWidth = 192 - ExplicitHeight = 504 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 end object tab_hex: TTabSheet Caption = 'Binary Edit' - ExplicitWidth = 192 - ExplicitHeight = 504 object splitter_hex_1: TSplitter Left = 0 Top = 100 @@ -101,7 +99,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 +112,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 +161,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 +170,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 +188,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 +231,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 +283,32 @@ 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 end