--- oup/current/Tools/MetaEditor.dfm 2007/07/14 14:18:23 237 +++ oup/current/Tools/MetaEditor.dfm 2007/08/10 17:26:03 243 @@ -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,25 +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 Width = 150 - WideText = 'Data' + WideText = 'Value' end> end object rightPages: TPageControl @@ -72,19 +75,19 @@ 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 Caption = 'Meta Edit' ImageIndex = 1 + end + object tab_hex: TTabSheet + Caption = 'Binary Edit' ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 - end - object tab_hex: TTabSheet - Caption = 'Binary Edit' object splitter_hex_1: TSplitter Left = 0 Top = 100 @@ -312,4 +315,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