--- oup/current/Tools/MetaEditor.dfm 2007/06/04 22:07:29 209 +++ oup/current/Tools/MetaEditor.dfm 2007/06/12 16:42:53 212 @@ -2,8 +2,8 @@ object Form_Meta: TForm_Meta Left = 0 Top = 0 Caption = 'Form_Meta' - ClientHeight = 293 - ClientWidth = 426 + ClientHeight = 365 + ClientWidth = 446 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -17,15 +17,22 @@ object Form_Meta: TForm_Meta OnClose = FormClose OnCreate = FormCreate DesignSize = ( - 426 - 293) + 446 + 365) PixelsPerInch = 96 TextHeight = 13 + object Label3: TLabel + Left = 3 + Top = 6 + Width = 61 + Height = 13 + Caption = 'Connection: ' + end object VST: TVirtualStringTree - Left = 8 - Top = 8 - Width = 389 - Height = 265 + Left = 4 + Top = 44 + Width = 409 + Height = 321 Anchors = [akLeft, akTop, akRight, akBottom] AnimationDuration = 0 Header.AutoSizeIndex = 0 @@ -36,18 +43,50 @@ object Form_Meta: TForm_Meta Header.Font.Style = [] Header.Options = [hoColumnResize, hoDrag, hoVisible] TabOrder = 0 + TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoDeleteMovedNodes] TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] - TreeOptions.PaintOptions = [toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages] OnGetText = VSTGetText + OnPaintText = VSTPaintText + OnInitChildren = VSTInitChildren Columns = < item Position = 0 Width = 150 - WideText = 'Main' + WideText = 'FName' end item Position = 1 + WideText = 'FType' + end + item + Position = 2 + WideText = 'FID' + end + item + Position = 3 WideText = 'Data' end> end + object Button1: TButton + Left = 204 + Top = 1 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Load' + Default = True + TabOrder = 1 + OnClick = Button1Click + end + object combo_connection: TComboBox + Left = 64 + Top = 3 + Width = 134 + Height = 21 + Style = csDropDownList + Anchors = [akLeft, akTop, akRight] + DropDownCount = 12 + ItemHeight = 13 + TabOrder = 2 + end end