frameframebar.dfm

I mComputermaster programmisDelphi+pascal

object FrameBar: TFrameBar
  Left = 0
  Top = 0
  Width = 566
  Height = 426
  TabOrder = 0
  object BarSpeedButton: TsSpeedButton
    Left = 197
    Top = 0
    Width = 15
    Height = 426
    Caption = '<'#13#10'<'#13#10'<'#13#10'<'#13#10'<'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = sSpeedButton2Click
    Align = alLeft
    OnMouseEnter = sSpeedButton2MouseEnter
    SkinData.SkinSection = 'SPEEDBUTTON'
  end
  object sFrameBar1: TsFrameBar
    Tag = 5
    Left = 0
    Top = 0
    Width = 197
    Height = 426
    HorzScrollBar.Visible = False
    VertScrollBar.Range = 458
    VertScrollBar.Tracking = True
    OnMouseLeave = sFrameBar1MouseLeave
    AutoScroll = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    SkinData.SkinSection = 'BAR'
    BorderWidth = 6
    AutoFrameSize = False
    Images = MainForm.ImageList16
    Items = <
      item
        Caption = 'Title button 1'
        ImageIndex = 0
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 2'
        ImageIndex = 1
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 3'
        ImageIndex = 2
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 4'
        ImageIndex = 3
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 5'
        ImageIndex = 0
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 6'
        ImageIndex = 1
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 7'
        ImageIndex = 2
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 8'
        ImageIndex = 3
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 9'
        ImageIndex = 0
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 10'
        ImageIndex = 1
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 11'
        ImageIndex = 2
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 12'
        ImageIndex = 3
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end
      item
        Caption = 'Title button 13'
        ImageIndex = 0
        SkinSection = 'BARTITLE'
        OnCreateFrame = sFrameBar1Items0CreateFrame
      end>
    Spacing = 0
  end
  object sPanel1: TsPanel
    Left = 212
    Top = 0
    Width = 354
    Height = 426
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    SkinData.SkinSection = 'CHECKBOX'
    object sLabel1: TsLabel
      Tag = 5
      Left = 27
      Top = 146
      Width = 59
      Height = 13
      Caption = 'Border width'
      ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
    end
    object sLabel2: TsLabel
      Tag = 5
      Left = 33
      Top = 171
      Width = 52
      Height = 13
      Caption = 'Title height'
      ParentFont = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
    end
    object sSpeedButton1: TsSpeedButton
      Tag = 5
      Left = 38
      Top = 80
      Width = 186
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Down = True
      Caption = 'Animation enabled'
      OnClick = sSpeedButton1Click
      SkinData.SkinSection = 'SPEEDBUTTON'
    end
    object sTrackBar1: TsTrackBar
      Tag = 5
      Left = 96
      Top = 141
      Width = 132
      Height = 26
      Position = 6
      TabOrder = 0
      OnChange = sTrackBar1Change
      SkinData.SkinSection = 'TRACKBAR'
    end
    object sTrackBar2: TsTrackBar
      Tag = 5
      Left = 96
      Top = 167
      Width = 132
      Height = 26
      Max = 64
      Min = 18
      Position = 28
      TabOrder = 1
      OnChange = sTrackBar2Change
      SkinData.SkinSection = 'TRACKBAR'
    end
    object sGroupBox1: TsGroupBox
      Left = 26
      Top = 200
      Width = 210
      Height = 117
      Caption = 'SkinSections'
      TabOrder = 2
      SkinData.SkinSection = 'GROUPBOX'
      object sComboBox1: TsComboBox
        Tag = 5
        Left = 88
        Top = 20
        Width = 110
        Height = 21
        Alignment = taLeftJustify
        BoundLabel.Active = True
        BoundLabel.Caption = 'General'
        BoundLabel.Indent = 0
        BoundLabel.Font.Charset = DEFAULT_CHARSET
        BoundLabel.Font.Color = clWindowText
        BoundLabel.Font.Height = -11
        BoundLabel.Font.Name = 'MS Sans Serif'
        BoundLabel.Font.Style = []
        BoundLabel.Layout = sclLeft
        BoundLabel.MaxWidth = 0
        BoundLabel.UseSkinColor = True
        DropDownCount = 8
        SkinData.SkinSection = 'COMBOBOX'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ItemIndex = -1
        ParentFont = False
        TabOrder = 0
        OnChange = sComboBox1Change
        Items.Strings = (
          'BUTTON_BIG'
          'CHECKBOX'
          'PANEL_LOW'
          'PANEL'
          'BUTTON'
          'SPEEDBUTTON'
          'GROUPBOX'
          'DIALOG'
          'BAR'
          'FORM')
      end
      object sComboBox2: TsComboBox
        Tag = 5
        Left = 88
        Top = 52
        Width = 110
        Height = 21
        Alignment = taLeftJustify
        BoundLabel.Active = True
        BoundLabel.Caption = 'Title buttons'
        BoundLabel.Indent = 0
        BoundLabel.Font.Charset = DEFAULT_CHARSET
        BoundLabel.Font.Color = clWindowText
        BoundLabel.Font.Height = -11
        BoundLabel.Font.Name = 'MS Sans Serif'
        BoundLabel.Font.Style = []
        BoundLabel.Layout = sclLeft
        BoundLabel.MaxWidth = 0
        BoundLabel.UseSkinColor = True
        DropDownCount = 8
        SkinData.SkinSection = 'COMBOBOX'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ItemIndex = -1
        ParentFont = False
        TabOrder = 1
        OnChange = sComboBox2Change
        Items.Strings = (
          'BUTTON_BIG'
          'MENUITEM'
          'PANEL_LOW'
          'PANEL'
          'BUTTON'
          'SPEEDBUTTON'
          'TOOLBUTTON'
          'BARTITLE'
          'FORM')
      end
      object sComboBox3: TsComboBox
        Tag = 5
        Left = 88
        Top = 84
        Width = 110
        Height = 21
        Alignment = taLeftJustify
        BoundLabel.Active = True
        BoundLabel.Caption = 'Frame'
        BoundLabel.Indent = 0
        BoundLabel.Font.Charset = DEFAULT_CHARSET
        BoundLabel.Font.Color = clWindowText
        BoundLabel.Font.Height = -11
        BoundLabel.Font.Name = 'MS Sans Serif'
        BoundLabel.Font.Style = []
        BoundLabel.Layout = sclLeft
        BoundLabel.MaxWidth = 0
        BoundLabel.UseSkinColor = True
        DropDownCount = 8
        SkinData.SkinSection = 'COMBOBOX'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ItemIndex = -1
        ParentFont = False
        TabOrder = 2
        OnChange = sComboBox3Change
        Items.Strings = (
          'BUTTON_BIG'
          'CHECKBOX'
          'PANEL_LOW'
          'PANEL'
          'BUTTON'
          'SPEEDBUTTON'
          'TOOLBUTTON'
          'GROUPBOX'
          'DIALOG'
          'BARPANEL'
          'FORM')
      end
    end
    object sCheckBox1: TsCheckBox
      Left = 35
      Top = 112
      Width = 82
      Height = 20
      Caption = 'AllowAllClose'
      TabOrder = 3
      OnClick = sCheckBox1Click
      SkinData.SkinSection = 'CHECKBOX'
      ImgChecked = 0
      ImgUnchecked = 0
    end
    object sCheckBox2: TsCheckBox
      Left = 139
      Top = 112
      Width = 82
      Height = 20
      Caption = 'AllowAllOpen'
      TabOrder = 4
      OnClick = sCheckBox2Click
      SkinData.SkinSection = 'CHECKBOX'
      ImgChecked = 0
      ImgUnchecked = 0
    end
    object sGroupBox2: TsGroupBox
      Left = 26
      Top = 8
      Width = 210
      Height = 53
      Caption = 'AutoHide'
      TabOrder = 5
      SkinData.SkinSection = 'GROUPBOX'
      object sCheckBox3: TsCheckBox
        Left = 12
        Top = 20
        Width = 59
        Height = 20
        Caption = 'Enabled'
        TabOrder = 0
        OnClick = sCheckBox3Click
        SkinData.SkinSection = 'CHECKBOX'
        ImgChecked = 0
        ImgUnchecked = 0
      end
    end
  end
  object sFrameAdapter1: TsFrameAdapter
    SkinData.SkinSection = 'CHECKBOX'
    Left = 15
    Top = 13
  end
end