--- oup/current/Tools/MetaEditor.dfm 2007/07/14 20:22:05 239 +++ oup/current/Tools/MetaEditor.dfm 2007/11/26 11:02:28 248 @@ -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,26 +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 @@ -73,15 +75,23 @@ 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 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 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 @@ -159,7 +169,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 @@ -168,7 +178,7 @@ inherited Form_Meta: TForm_Meta NoSizeChange = True AllowInsertMode = False DrawGridLines = False - Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de' + Version = 'september 30, 2007; '#169' markus stephany, vcl[at]mirkes[dot]de' ShowPositionIfNotFocused = True end object value_viewer: TWrapGrid