--- oup/current/Tools/BinEdit.dfm 2007/06/15 22:12:39 218 +++ oup/current/Tools/BinEdit.dfm 2007/08/18 15:51:42 245 @@ -1,5 +1,6 @@ inherited Form_BinEdit: TForm_BinEdit Caption = 'Form_BinEdit' + KeyPreview = True OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyUp = FormKeyUp @@ -7,41 +8,21 @@ inherited Form_BinEdit: TForm_BinEdit TextHeight = 13 inherited panel_basecontent: TPanel inherited panel_files: TPanel - ExplicitHeight = 532 - inherited filelist: TListBox - Height = 347 - OnClick = nil - OnMouseDown = nil - ExplicitTop = 125 - ExplicitHeight = 407 - end - inherited panel_extension: TPanel - inherited btn_sort_id_asc: TSpeedButton - OnClick = nil - end - inherited btn_sort_id_desc: TSpeedButton - OnClick = nil - end - inherited btn_sort_name_asc: TSpeedButton - OnClick = nil - end - inherited btn_sort_name_desc: TSpeedButton - OnClick = nil - end - inherited btn_sort_ext_asc: TSpeedButton - OnClick = nil - end - inherited btn_sort_ext_desc: TSpeedButton - OnClick = nil - end - inherited combo_extension: TComboBox - OnClick = nil - end - inherited check_zerobyte: TCheckBox - OnClick = nil + inherited FilePages: TPageControl + Height = 471 + ExplicitHeight = 471 + inherited tab_files: TTabSheet + ExplicitHeight = 443 + inherited filelist: TListBox + Height = 318 + ExplicitHeight = 318 + end end - inherited check_filtername: TCheckBox - OnClick = nil + inherited tab_meta: TTabSheet + inherited filelist_meta: TVirtualStringTree + Height = 443 + ExplicitHeight = 443 + end end end object panel_imexport: TPanel @@ -51,8 +32,7 @@ inherited Form_BinEdit: TForm_BinEdit Height = 60 Align = alBottom BevelOuter = bvNone - TabOrder = 2 - ExplicitTop = 363 + TabOrder = 1 DesignSize = ( 200 60) @@ -77,9 +57,6 @@ inherited Form_BinEdit: TForm_BinEdit end end inherited panel_content: TPanel - ExplicitTop = 0 - ExplicitWidth = 390 - ExplicitHeight = 532 object Splitter2: TSplitter Left = 0 Top = 209 @@ -93,16 +70,15 @@ inherited Form_BinEdit: TForm_BinEdit end object Splitter3: TSplitter Left = 0 - Top = 435 + Top = 427 Width = 390 - Height = 0 + Height = 8 Cursor = crVSplit Align = alBottom AutoSnap = False Beveled = True MinSize = 40 - ExplicitLeft = 32 - ExplicitTop = 447 + ExplicitTop = 435 end object hex: TMPHexEditor Left = 0 @@ -143,14 +119,12 @@ inherited Form_BinEdit: TForm_BinEdit OnChange = hexChange ShowPositionIfNotFocused = True OnSelectionChanged = hexSelectionChanged - ExplicitLeft = 32 - ExplicitTop = 12 end object value_viewer: TWrapGrid Left = 0 Top = 217 Width = 390 - Height = 218 + Height = 210 Align = alClient ColCount = 1 DefaultColWidth = 80 @@ -163,9 +137,6 @@ inherited Form_BinEdit: TForm_BinEdit TabOrder = 1 OnDblClick = value_viewerDblClick OnMouseDown = value_viewerMouseDown - ExplicitLeft = 32 - ExplicitTop = 544 - ExplicitHeight = 0 end object VST: TVirtualStringTree Left = 0 @@ -211,8 +182,6 @@ inherited Form_BinEdit: TForm_BinEdit OnFocusChanged = VSTFocusChanged OnGetText = VSTGetText OnHeaderDragged = VSTHeaderDragged - ExplicitLeft = 32 - ExplicitTop = 447 Columns = < item MaxWidth = 300 @@ -264,18 +233,6 @@ inherited Form_BinEdit: TForm_BinEdit end end end - inherited filepopup: TPopupMenu - OnPopup = nil - inherited popup_linkshere: TMenuItem - OnClick = nil - end - inherited popup_import: TMenuItem - OnClick = nil - end - inherited popup_export: TMenuItem - OnClick = nil - end - end object VTHPopup: TVTHeaderPopupMenu OnColumnChange = VTHPopupColumnChange Left = 272