--- oup/current/Tools/RawEdit.dfm 2007/02/21 03:12:33 109 +++ oup/current/Tools/RawEdit.dfm 2007/08/18 15:51:42 245 @@ -1,200 +1,196 @@ inherited Form_RawEdit: TForm_RawEdit - Caption = 'RawEdit' + Caption = 'Form_RawEdit' KeyPreview = True OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyUp = FormKeyUp - ExplicitWidth = 500 - ExplicitHeight = 450 PixelsPerInch = 96 TextHeight = 13 - inherited panel_files: TPanel - object Splitter4: TSplitter [0] - Left = 0 - Top = 205 - Width = 200 - Height = 8 - Cursor = crVSplit - Align = alBottom - AutoSnap = False - Beveled = True - MinSize = 150 - ExplicitLeft = 3 - ExplicitTop = 89 - end - inherited filelist: TListBox - Height = 52 - ExplicitHeight = 52 - end - object panel_imexport: TPanel - Left = 0 - Top = 363 - Width = 200 - Height = 60 - Align = alBottom - BevelOuter = bvNone - TabOrder = 3 - 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 - OnClick = btn_exportClick - end - object btn_import: TButton - Left = 4 - Top = 32 - Width = 190 - Height = 25 - Anchors = [akLeft, akTop, akRight] - Caption = 'Import from file...' - TabOrder = 1 - OnClick = btn_importClick + inherited panel_basecontent: TPanel + inherited panel_files: TPanel + inherited FilePages: TPageControl + inherited tab_files: TTabSheet + object Splitter4: TSplitter [0] + Left = 0 + Top = 285 + Width = 190 + Height = 8 + Cursor = crVSplit + Align = alBottom + AutoSnap = False + Beveled = True + MinSize = 150 + ExplicitTop = 125 + end + inherited filelist: TListBox + Height = 160 + ExplicitHeight = 160 + end + object panel_imexport: TPanel + Left = 0 + Top = 443 + Width = 190 + Height = 60 + Align = alBottom + BevelOuter = bvNone + TabOrder = 2 + DesignSize = ( + 190 + 60) + object btn_export: TButton + Left = 4 + Top = 4 + Width = 183 + Height = 25 + Anchors = [akLeft, akTop, akRight] + Caption = 'Export to file...' + TabOrder = 0 + OnClick = btn_exportClick + end + object btn_import: TButton + Left = 4 + Top = 32 + Width = 183 + Height = 25 + Anchors = [akLeft, akTop, akRight] + Caption = 'Import from file...' + TabOrder = 1 + OnClick = btn_importClick + end + end + object GroupBox1: TGroupBox + Left = 0 + Top = 293 + Width = 190 + Height = 150 + Align = alBottom + Caption = '2. Select .dat-link-offset' + TabOrder = 3 + object list_offset: TListBox + Left = 2 + Top = 15 + Width = 186 + Height = 133 + Align = alClient + ItemHeight = 13 + TabOrder = 0 + OnClick = list_offsetClick + end + end + end end end - object GroupBox1: TGroupBox - Left = 0 - Top = 213 - Width = 200 - Height = 150 - Align = alBottom - Caption = '2. Select .dat-link-offset' - TabOrder = 2 - object list_offset: TListBox - Left = 2 - Top = 15 - Width = 196 - Height = 133 - Align = alClient - ItemHeight = 13 + inherited panel_content: TPanel + object Splitter2: TSplitter + Left = 0 + Top = 300 + Width = 390 + Height = 8 + Cursor = crVSplit + Align = alTop + AutoSnap = False + Beveled = True + MinSize = 40 + end + object hex: TMPHexEditor + Left = 0 + Top = 0 + Width = 390 + Height = 300 + 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 - OnClick = list_offsetClick + BytesPerRow = 16 + Translation = tkAsIs + 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 = 308 + Width = 390 + Height = 224 + Align = alClient + ColCount = 2 + DefaultColWidth = 80 + DefaultRowHeight = 18 + FixedCols = 0 + RowCount = 8 + FixedRows = 0 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing] + ParentFont = False + ScrollBars = ssVertical + TabOrder = 1 + OnDblClick = value_viewerDblClick + OnMouseDown = value_viewerMouseDown end end end - inherited content: TPanel - object Splitter2: TSplitter - Left = 0 - Top = 300 - Width = 283 - Height = 9 - Cursor = crVSplit - Align = alTop - AutoSnap = False - Beveled = True - MinSize = 40 - ExplicitTop = 414 - end - object hex: TMPHexEditor - Left = 0 - Top = 0 - Width = 283 - Height = 300 - 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 = tkAsIs - 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 = 309 - Width = 283 - Height = 114 - Align = alClient - ColCount = 2 - DefaultColWidth = 80 - DefaultRowHeight = 18 - FixedCols = 0 - RowCount = 8 - FixedRows = 0 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing] - ParentFont = False - PopupMenu = value_viewer_context - ScrollBars = ssVertical - TabOrder = 1 - OnDblClick = value_viewerDblClick - OnMouseDown = value_viewerMouseDown - end + object opend: TOpenDialog + Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing] + Left = 88 + Top = 396 end - object value_viewer_context: TPopupMenu [3] + object saved: TSaveDialog + Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing] + Left = 88 + Top = 420 + end + object value_viewer_context: TPopupMenu AutoHotkeys = maManual OnPopup = value_viewer_contextPopup - Left = 368 - Top = 264 + Left = 380 + Top = 388 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 opend: TOpenDialog [4] - Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing] - Left = 128 - Top = 256 - end - object saved: TSaveDialog [5] - Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing] - Left = 128 - Top = 280 - end end