mainunit.dfm

BusinessSkinForm教案与实例

object Form1: TForm1
  Left = 209
  Top = 125
  AutoScroll = False
  BorderIcons = []
  Caption = 'BusinessSkinForm VCL - DB Demo - v.2.52'
  ClientHeight = 485
  ClientWidth = 736
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinPageControl1: TbsSkinPageControl
    Left = 0
    Top = 0
    Width = 736
    Height = 485
    ActivePage = bsSkinTabSheet1
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = 14
    Font.Name = 'Arial'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabOrder = 0
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clBtnText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultItemHeight = 20
    SkinData = bsSkinData1
    SkinDataName = 'tab'
    object bsSkinTabSheet1: TbsSkinTabSheet
      Caption = 'Database #1'
      object bsSkinPanel1: TbsSkinPanel
        Left = 0
        Top = 0
        Width = 734
        Height = 185
        TabOrder = 0
        SkinData = bsSkinData1
        SkinDataName = 'groupbox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        RealHeight = -1
        AutoEnabledControls = True
        CheckedMode = False
        Checked = False
        DefaultAlignment = taLeftJustify
        DefaultCaptionHeight = 22
        BorderStyle = bvFrame
        CaptionMode = True
        RollUpMode = False
        RollUpState = False
        NumGlyphs = 1
        Spacing = 2
        Caption = 'TbsSkinDBGrid'
        Align = alTop
        object bsSkinDBGrid1: TbsSkinDBGrid
          Left = 1
          Top = 23
          Width = 713
          Height = 142
          TabOrder = 0
          SkinData = bsSkinData1
          SkinDataName = 'grid'
          UseSkinFont = True
          UseSkinCellHeight = True
          HScrollBar = bsSkinScrollBar1
          VScrollBar = bsSkinScrollBar2
          GridLineColor = clWindowText
          DefaultCellHeight = 20
          DefaultRowHeight = 18
          MouseWheelSupport = True
          SkinMessage = bsSkinMessage1
          SaveMultiSelection = False
          PickListBoxSkinDataName = 'listbox'
          PickListBoxCaptionMode = False
          Align = alClient
          DataSource = DataSource1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBtnText
          TitleFont.Height = 14
          TitleFont.Name = 'Arial'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'CustNo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Contact'
              Visible = True
            end
            item
              DropDownRows = 5
              Expanded = False
              FieldName = 'Country'
              PickList.Strings = (
                'Bahamas'
                'US'
                'Belize'
                'West Indies'
                'Republic So. Africa'
                'British West Indies'
                'Canada')
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'City'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'State'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Company'
              Visible = True
            end>
        end
        object bsSkinScrollBar1: TbsSkinScrollBar
          Left = 1
          Top = 165
          Width = 732
          Height = 19
          TabOrder = 1
          SkinData = bsSkinData1
          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 = 127
          LargeChange = 127
        end
        object bsSkinScrollBar2: TbsSkinScrollBar
          Left = 714
          Top = 23
          Width = 19
          Height = 142
          TabOrder = 2
          SkinData = bsSkinData1
          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 = 6
          Min = 1
          Max = 60
          Position = 1
          SmallChange = 1
          LargeChange = 1
        end
      end
      object bsSkinDBNavigator1: TbsSkinDBNavigator
        Left = 0
        Top = 185
        Width = 734
        Height = 25
        TabOrder = 1
        SkinData = bsSkinData1
        SkinDataName = 'panel'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 25
        UseSkinFont = True
        RealHeight = -1
        AutoEnabledControls = True
        CheckedMode = False
        Checked = False
        DefaultAlignment = taLeftJustify
        DefaultCaptionHeight = 22
        BorderStyle = bvNone
        CaptionMode = False
        RollUpMode = False
        RollUpState = False
        NumGlyphs = 1
        Spacing = 2
        Align = alTop
        ParentShowHint = False
        ShowHint = True
        AdditionalGlyphs = False
        SkinMessage = bsSkinMessage1
        DataSource = DataSource1
        BtnSkinDataName = 'button'
      end
      object bsSkinDBEdit1: TbsSkinDBEdit
        Left = 8
        Top = 264
        Width = 177
        Height = 21
        Text = 'Kauai Dive Shoppe'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 21
        ButtonMode = False
        SkinData = bsSkinData1
        SkinDataName = 'edit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        AutoSize = False
        DataField = 'Company'
        DataSource = DataSource1
      end
      object bsSkinDBMemo1: TbsSkinDBMemo
        Left = 8
        Top = 296
        Width = 177
        Height = 145
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        Lines.Strings = (
          '4-976 Sugarloaf Hwy')
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 3
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        BitMapBG = True
        SkinData = bsSkinData1
        SkinDataName = 'memo'
        DataField = 'Addr1'
        DataSource = DataSource1
      end