test.dfm

运行时设计控件的一个小例子

object Form_Test: TForm_Test
  Left = -4
  Top = -4
  Width = 1032
  Height = 748
  Caption = 'Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinSplitter1: TbsSkinSplitter
    Left = 753
    Top = 0
    Height = 721
    DefaultSize = 10
    SkinDataName = 'vsplitter'
  end
  object bsSkinExPanel1: TbsSkinExPanel
    Left = 0
    Top = 0
    Width = 753
    Height = 721
    TabOrder = 0
    SkinDataName = 'expanel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    NumGlyphs = 1
    Spacing = 2
    RealWidth = 0
    RealHeight = 0
    ShowRollButton = True
    ShowCloseButton = False
    DefaultCaptionHeight = 21
    RollState = False
    RollKind = rkRollHorizontal
    Align = alLeft
    Caption = #20219#21153#21015#34920
    object bsSkinDBGrid1: TbsSkinDBGrid
      Left = 1
      Top = 21
      Width = 732
      Height = 680
      TabOrder = 0
      SkinDataName = 'grid'
      UseSkinFont = True
      UseSkinCellHeight = True
      HScrollBar = bsSkinScrollBar3
      VScrollBar = bsSkinScrollBar4
      GridLineColor = clWindowText
      DefaultCellHeight = 20
      UseColumnsFont = False
      DefaultRowHeight = 17
      MouseWheelSupport = True
      SaveMultiSelection = False
      PickListBoxSkinDataName = 'listbox'
      PickListBoxCaptionMode = False
      Align = alClient
      DataSource = DM1.DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = bsSkinDBGrid1CellClick
    end
    object bsSkinScrollBar3: TbsSkinScrollBar
      Left = 1
      Top = 701
      Width = 751
      Height = 19
      TabOrder = 1
      SkinDataName = 'hscrollbar'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 19
      UseSkinFont = True
      Both = True
      BothMarkerWidth = 19
      BothSkinDataName = 'bothhscrollbar'
      CanFocused = False
      Align = alBottom
      Kind = sbHorizontal
      PageSize = 0
      Min = 0
      Max = 127
      Position = 0
      SmallChange = 7
      LargeChange = 7
    end
    object bsSkinScrollBar4: TbsSkinScrollBar
      Left = 733
      Top = 21
      Width = 19
      Height = 680
      TabOrder = 2
      SkinDataName = 'vscrollbar'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 19
      DefaultHeight = 0
      UseSkinFont = True
      Both = False
      BothMarkerWidth = 0
      BothSkinDataName = 'bothhscrollbar'
      CanFocused = False
      Align = alRight
      Kind = sbVertical
      PageSize = 36
      Min = 1
      Max = 209
      Position = 1
      SmallChange = 1
      LargeChange = 1
    end
  end
  object bsSkinExPanel2: TbsSkinExPanel
    Left = 756
    Top = 0
    Width = 268
    Height = 721
    TabOrder = 1
    SkinDataName = 'expanel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    NumGlyphs = 1
    Spacing = 2
    RealWidth = 0
    RealHeight = 0
    ShowRollButton = True
    ShowCloseButton = True
    DefaultCaptionHeight = 21
    RollState = False
    RollKind = rkRollVertical
    Align = alClient
    Caption = 'ExecuteParent'
    object ScrollBox_ArchivesInput: TbsSkinScrollBox
      Left = 1
      Top = 21
      Width = 266
      Height = 699
      TabOrder = 0
      SkinDataName = 'scrollbox'
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinFont = True
      VScrollBar = bsSkinScrollBar10
      BorderStyle = bvFrame
      Align = alClient
      object bsSkinScrollBar10: TbsSkinScrollBar
        Left = 245
        Top = 0
        Width = 19
        Height = 697
        TabOrder = 0
        Visible = False
        SkinDataName = 'vscrollbar'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 19
        DefaultHeight = 0
        UseSkinFont = True
        Both = False
        BothMarkerWidth = 0
        BothSkinDataName = 'bothhscrollbar'
        CanFocused = False
        Align = alRight
        Kind = sbVertical
        PageSize = 0
        Min = 0
        Max = 0
        Position = 0
        SmallChange = 1
        LargeChange = 1
      end
    end
  end
end