--- oup/current/Tools/MetaEditor.dfm 2007/06/12 17:35:56 214 +++ oup/current/Tools/MetaEditor.dfm 2007/06/15 15:12:11 217 @@ -1,136 +1,87 @@ -object Form_Meta: TForm_Meta - Left = 0 - Top = 0 +inherited Form_Meta: TForm_Meta Caption = 'Form_Meta' - ClientHeight = 393 - ClientWidth = 472 - Color = clBtnFace - Constraints.MinHeight = 100 - Constraints.MinWidth = 200 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' - Font.Style = [] - FormStyle = fsMDIChild - OldCreateOrder = False - Visible = True - WindowState = wsMaximized - OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 - object Splitter1: TSplitter - Left = 384 - Top = 29 - Width = 8 - Height = 364 - Align = alRight - AutoSnap = False - Beveled = True - MinSize = 75 - ExplicitLeft = 301 - ExplicitHeight = 336 - end - object VST: TVirtualStringTree - Left = 0 - Top = 29 - Width = 384 - Height = 364 - Align = alClient - AnimationDuration = 0 - Header.AutoSizeIndex = 0 - Header.Font.Charset = DEFAULT_CHARSET - Header.Font.Color = clWindowText - Header.Font.Height = -11 - Header.Font.Name = 'Tahoma' - Header.Font.Style = [] - Header.Options = [hoColumnResize, hoDrag, hoVisible] - TabOrder = 0 - TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoDeleteMovedNodes] - TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] - OnFocusChanged = VSTFocusChanged - OnFocusChanging = VSTFocusChanging - OnGetText = VSTGetText - OnPaintText = VSTPaintText - OnInitChildren = VSTInitChildren - ExplicitLeft = 4 - ExplicitTop = 44 - ExplicitWidth = 301 - ExplicitHeight = 321 - Columns = < - item - Position = 0 - Width = 150 - WideText = 'FName' - end - item - Position = 1 - WideText = 'FType' - end - item - Position = 2 - WideText = 'FID' - end - item - Position = 3 - WideText = 'Data' - end> + inherited panel_connection: TPanel + ExplicitWidth = 598 + inherited combo_connection: TComboBox + ExplicitWidth = 532 + end end - object Panel1: TPanel - Left = 0 - Top = 0 - Width = 472 - Height = 29 - Align = alTop - BevelOuter = bvNone - TabOrder = 1 - ExplicitWidth = 446 - DesignSize = ( - 472 - 29) - object Label3: TLabel - Left = 3 - Top = 6 - Width = 61 - Height = 13 - Caption = 'Connection: ' + inherited panel_basecontent: TPanel + ExplicitLeft = 0 + ExplicitTop = 25 + ExplicitWidth = 598 + ExplicitHeight = 532 + object splitter: TSplitter + Left = 502 + Top = 0 + Width = 8 + Height = 532 + Align = alRight + AutoSnap = False + Beveled = True + MinSize = 200 + ExplicitLeft = 353 end - object Button1: TButton - Left = 379 - Top = 1 - Width = 75 - Height = 25 - Anchors = [akTop, akRight] - Caption = 'Load' - Default = True + object VST: TVirtualStringTree + Left = 0 + Top = 0 + Width = 502 + Height = 532 + Align = alClient + AnimationDuration = 0 + Header.AutoSizeIndex = 0 + Header.Font.Charset = DEFAULT_CHARSET + Header.Font.Color = clWindowText + Header.Font.Height = -11 + Header.Font.Name = 'Tahoma' + Header.Font.Style = [] + Header.Options = [hoColumnResize, hoDrag, hoVisible] TabOrder = 0 - OnClick = Button1Click - ExplicitLeft = 196 + TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoDeleteMovedNodes] + TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] + OnFocusChanged = VSTFocusChanged + OnFocusChanging = VSTFocusChanging + OnGetText = VSTGetText + OnPaintText = VSTPaintText + OnInitChildren = VSTInitChildren + ExplicitLeft = 8 + ExplicitTop = 60 + ExplicitWidth = 353 + ExplicitHeight = 325 + Columns = < + item + Position = 0 + Width = 250 + WideText = 'FName' + end + item + Position = 1 + WideText = 'FType' + end + item + Position = 2 + WideText = 'FID' + end + item + Position = 3 + WideText = 'Data' + end> end - object combo_connection: TComboBox - Left = 64 - Top = 3 - Width = 309 - Height = 21 - Style = csDropDownList - Anchors = [akLeft, akTop, akRight] - DropDownCount = 12 - ItemHeight = 13 + object Panel2: TPanel + Left = 510 + Top = 0 + Width = 88 + Height = 532 + Align = alRight + BevelOuter = bvNone + Caption = 'Panel2' TabOrder = 1 - ExplicitWidth = 126 + ExplicitLeft = 376 + ExplicitTop = 92 + ExplicitHeight = 285 end end - object Panel2: TPanel - Left = 392 - Top = 29 - Width = 80 - Height = 364 - Align = alRight - BevelOuter = bvNone - Caption = 'Panel2' - TabOrder = 2 - ExplicitLeft = 329 - ExplicitHeight = 336 - end end