mainunit.dfm

BusinessSkinForm教案与实例

        Checked = False
        GroupIndex = 0
        Caption = 'MultiSelect'
        OnClick = bsSkinCheckRadioBox2Click
      end
    end
    object bsSkinTabSheet2: TbsSkinTabSheet
      Caption = 'Database #2'
      object bsSkinTextLabel2: TbsSkinTextLabel
        Left = 16
        Top = 248
        Width = 472
        Height = 78
        UseSkinFont = True
        Lines.Strings = (
          'See also:'
          ''
          'TbsSkinDBRichEdit, TbsSkinDBCheckRadioBox,  TbsSkinDBRadioGroup '
          'TbsSkinDBCalcEdit, TbsSkinDBDateEdit, TbsSkinDBTimeEdit,'
          
            'TbsSkinPasswordEdit, TbsSkinDBNumericEdit, TbsSkinDBImage and ot' +
            'hers omponents in the VCL.')
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = bsSkinData1
        SkinDataName = 'stdlabel'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object bsSkinGroupBox2: TbsSkinGroupBox
        Left = 0
        Top = 0
        Width = 734
        Height = 225
        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 = 'Vendors'
        Align = alTop
        object bsSkinDBNavigator2: TbsSkinDBNavigator
          Left = 1
          Top = 23
          Width = 732
          Height = 25
          TabOrder = 0
          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
          AdditionalGlyphs = False
          DataSource = DataSource3
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          BtnSkinDataName = 'toolbutton'
        end
        object bsSkinDBGrid2: TbsSkinDBGrid
          Left = 1
          Top = 48
          Width = 713
          Height = 157
          TabOrder = 1
          SkinData = bsSkinData1
          SkinDataName = 'grid'
          UseSkinFont = False
          UseSkinCellHeight = False
          HScrollBar = bsSkinScrollBar3
          VScrollBar = bsSkinScrollBar4
          GridLineColor = clWindowText
          DefaultCellHeight = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBtnText
          Font.Height = 14
          Font.Name = 'Arial'
          Font.Style = []
          DefaultRowHeight = 21
          MouseWheelSupport = True
          SaveMultiSelection = False
          PickListBoxSkinDataName = 'listbox'
          PickListBoxCaptionMode = False
          Align = alClient
          DataSource = DataSource3
          ParentFont = False
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBtnText
          TitleFont.Height = -15
          TitleFont.Name = 'Arial'
          TitleFont.Style = [fsBold]
        end
        object bsSkinScrollBar3: TbsSkinScrollBar
          Left = 1
          Top = 205
          Width = 732
          Height = 19
          TabOrder = 2
          Visible = False
          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 = False
          BothMarkerWidth = 19
          BothSkinDataName = 'bothhscrollbar'
          CanFocused = False
          Align = alBottom
          Kind = sbHorizontal
          PageSize = 0
          Min = 0
          Max = 127
          Position = 0
          SmallChange = 25
          LargeChange = 25
        end
        object bsSkinScrollBar4: TbsSkinScrollBar
          Left = 714
          Top = 48
          Width = 19
          Height = 157
          TabOrder = 3
          Visible = False
          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 = 19
          BothSkinDataName = 'bothhscrollbar'
          CanFocused = False
          Align = alRight
          Kind = sbVertical
          PageSize = 6
          Min = 1
          Max = 28
          Position = 1
          SmallChange = 1
          LargeChange = 1
        end
      end
    end
  end
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = True
    MaximizeOnFullScreen = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 0
    SkinHint = bsSkinHint1
    ShowObjectHint = True
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 0
    DefCaptionFont.Charset = DEFAULT_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = 14
    DefCaptionFont.Name = 'Arial'
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = 14
    DefInActiveCaptionFont.Name = 'Arial'
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = 'Arial'
    DefMenuItemFont.Style = []
    TrayIcon = bsTrayIcon1
    UseDefaultSysMenu = True
    SystemMenu = bsSkinPopupMenu1
    SkinData = bsSkinData1
    MinHeight = 0
    MinWidth = 0
    Magnetic = True
    MagneticSize = 10
    BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp, biMinimizeToTray]
    Left = 112
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 176
    Top = 104
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 176
    Top = 72
  end
  object bsSkinData1: TbsSkinData
    CompressedStoredSkin = bsCompressedStoredSkin1
    Left = 144
    Top = 24
  end
  object OD: TOpenDialog
    Filter = 'UnCompressed skin (*.ini)|*.ini|Compressed skin (*.bskn)|*.bskn'
    Left = 240
    Top = 72
  end
  object bsSkinPopupMenu1: TbsSkinPopupMenu
    SkinData = bsSkinData1
    Left = 240
    Top = 24
    object N1: TMenuItem
      Caption = '-'
    end
    object LoadSkin1: TMenuItem
      Caption = 'Load skin...'
      OnClick = LoadSkin1Click
    end
    object Loadstoredskin1: TMenuItem
      Caption = 'Load stored skin'
      OnClick = Loadstoredskin1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'country.db'
    Left = 112
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 144
    Top = 104
  end
  object bsSkinHint1: TbsSkinHint