--- oup/current/Tools/MetaEditor.dfm 2007/06/29 12:38:24 233 +++ oup/current/Tools/MetaEditor.dfm 2009/05/06 13:47:23 321 @@ -39,6 +39,10 @@ inherited Form_Meta: TForm_Meta Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Options = [hoColumnResize, hoDrag, hoVisible] + HintAnimation = hatNone + HintMode = hmHint + ParentShowHint = False + ShowHint = True TabOrder = 0 TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoDeleteMovedNodes] TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] @@ -46,24 +50,24 @@ inherited Form_Meta: TForm_Meta OnFocusChanging = VSTFocusChanging OnGetText = VSTGetText OnPaintText = VSTPaintText + OnGetHint = VSTGetHint + OnGetPopupMenu = VSTGetPopupMenu OnInitChildren = VSTInitChildren Columns = < item Position = 0 Width = 250 - WideText = 'FName' + WideText = 'Name' end item Position = 1 - WideText = 'FType' + Width = 100 + WideText = 'Type' end item Position = 2 - WideText = 'FID' - end - item - Position = 3 - WideText = 'Data' + Width = 150 + WideText = 'Value' end> end object rightPages: TPageControl @@ -71,7 +75,7 @@ inherited Form_Meta: TForm_Meta Top = 0 Width = 400 Height = 424 - ActivePage = tab_hex + ActivePage = tab_meta Align = alRight TabOrder = 1 object tab_meta: TTabSheet @@ -84,6 +88,10 @@ inherited Form_Meta: TForm_Meta end object tab_hex: TTabSheet Caption = 'Binary Edit' + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object splitter_hex_1: TSplitter Left = 0 Top = 100 @@ -311,4 +319,17 @@ inherited Form_Meta: TForm_Meta Left = 292 Top = 340 end + object vst_popup: TPopupMenu + AutoHotkeys = maManual + Left = 80 + Top = 204 + object vst_newRoot: TMenuItem + Caption = 'Set as root element in new window' + OnClick = vst_newRootClick + end + object vst_setRoot: TMenuItem + Caption = 'Set as root element here' + OnClick = vst_setRootClick + end + end end