childunit.dfm

BusinessSkinForm教案与实例

object ChildForm: TChildForm
  Left = 265
  Top = 175
  AutoScroll = False
  BorderIcons = []
  Caption = 'MDIChild'
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    ShowObjectHint = False
    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 = 23
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = 'Arial'
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SkinData = Form1.bsSkinData1
    MinHeight = 0
    MinWidth = 0
    Magnetic = True
    MagneticSize = 5
    BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
    Left = 8
    Top = 8
  end
  object bsSkinMainMenu1: TbsSkinMainMenu
    Left = 40
    Top = 8
    object ChildItem11: TMenuItem
      Caption = 'ChildItem1'
      object ChildItem111: TMenuItem
        Caption = 'ChildItem11'
      end
      object ChildItem121: TMenuItem
        Caption = 'ChildItem12'
      end
      object ChildItem131: TMenuItem
        Caption = 'ChildItem13'
      end
    end
    object ChildItem21: TMenuItem
      Caption = 'ChildItem2'
      object ChildItem211: TMenuItem
        Caption = 'ChildItem21'
      end
      object ChildItem221: TMenuItem
        Caption = 'ChildItem22'
      end
      object ChildItem231: TMenuItem
        Caption = 'ChildItem23'
      end
      object ChildItem241: TMenuItem
        Caption = 'ChildItem24'
      end
      object ChildItem251: TMenuItem
        Caption = 'ChildItem25'
      end
    end
    object ChildItem31: TMenuItem
      Caption = 'ChildItem3'
      object ChildItem311: TMenuItem
        Caption = 'ChildItem31'
      end
      object ChildItem321: TMenuItem
        Caption = 'ChildItem32'
      end
    end
  end
end