object frmPrefs: TfrmPrefs Left = 448 Top = 281 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = '_Preferences' ClientHeight = 446 ClientWidth = 612 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] KeyPreview = True OldCreateOrder = False OnClose = TntFormClose OnCreate = TntFormCreate OnDestroy = TntFormDestroy OnKeyDown = TntFormKeyDown PixelsPerInch = 96 TextHeight = 13 object VSTMenu: TVirtualStringTree Left = 6 Top = 8 Width = 137 Height = 401 BevelInner = bvNone BevelOuter = bvNone DefaultNodeHeight = 28 DragOperations = [] Header.AutoSizeIndex = 0 Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'MS Sans Serif' Header.Font.Style = [] Header.MainColumn = -1 Header.Options = [hoColumnResize, hoDrag] ScrollBarOptions.ScrollBars = ssNone TabOrder = 0 TextMargin = 20 TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toVariableNodeHeight] TreeOptions.PaintOptions = [toHideFocusRect, toShowDropmark, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused] TreeOptions.SelectionOptions = [toFullRowSelect, toMiddleClickSelect, toRightClickSelect] OnAfterCellPaint = VSTMenuAfterCellPaint OnChange = VSTMenuChange OnFocusChanging = VSTMenuFocusChanging OnGetText = VSTMenuGetText OnPaintText = VSTMenuPaintText OnMeasureItem = VSTMenuMeasureItem Columns = <> end object BitBtnRestDefs: TInfuBitBtn Left = 6 Top = 416 Width = 137 Height = 25 Caption = '_Restore defaults' TabOrder = 5 OnClick = BitBtnRestDefsClick end object PanelCont: TInfuPanel Left = 148 Top = 36 Width = 459 Height = 373 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 end object BitBtnApply: TInfuBitBtn Left = 510 Top = 416 Width = 97 Height = 25 Action = acApply Enabled = False TabOrder = 4 end object BitBtnCancel: TInfuBitBtn Left = 406 Top = 416 Width = 97 Height = 25 Caption = '_Cancel' TabOrder = 3 OnClick = BitBtnCancelClick end object BitBtnOK: TInfuBitBtn Left = 302 Top = 416 Width = 97 Height = 25 Caption = '_OK' Default = True TabOrder = 2 OnClick = BitBtnOKClick end object PaintBoxTop: TInfuPaintBox Left = 148 Top = 8 Width = 459 Height = 22 OnPaint = PaintBoxTopPaint end object ActionList: TTntActionList OnUpdate = ActionListUpdate Left = 270 Top = 416 object acApply: TTntAction Caption = '_Apply' OnExecute = acApplyExecute end end end