mainunit.dfm

BussinessSkinForm入门教程.doc

object Form1: TForm1
  Left = 242
  Top = 156
  AutoScroll = False
  BorderIcons = []
  Caption = 'Form1'
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinMainMenuBar1: TbsSkinMainMenuBar
    Left = 0
    Top = 0
    Width = 536
    Height = 22
    TabOrder = 0
    SkinData = bsSkinData1
    SkinDataName = 'mainmenubar'
    UseSkinFont = True
    DefItemFont.Charset = DEFAULT_CHARSET
    DefItemFont.Color = clBtnText
    DefItemFont.Height = 14
    DefItemFont.Name = 'Arial'
    DefItemFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 22
    PopupToUp = False
    BusinessSkinForm = bsBusinessSkinForm1
    MainMenu = MainMenu1
  end
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    AlphaBlend = False
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    ShowObjectHint = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    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
    MainMenuBar = bsSkinMainMenuBar1
    SkinData = bsSkinData1
    MinHeight = 0
    MinWidth = 0
    Magnetic = True
    MagneticSize = 10
    BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp, biMinimizeToTray]
    Left = 8
    Top = 32
  end
  object MainMenu1: TMainMenu
    AutoMerge = True
    Images = ImageList1
    Left = 8
    Top = 64
    object N12: TMenuItem
      Caption = '&File'
      object NewItem: TMenuItem
        Caption = 'New'
        ImageIndex = 0
        OnClick = NewItemClick
      end
      object LoadSkinItem: TMenuItem
        Caption = '&Load skin...'
        ImageIndex = 1
        ShortCut = 16463
        OnClick = LoadSkinItemClick
      end
      object Noskin1: TMenuItem
        Caption = 'No skin'
        OnClick = Noskin1Click
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object CloseItem: TMenuItem
        Caption = 'Close'
        ImageIndex = 2
        OnClick = CloseItemClick
      end
    end
    object Windows1: TMenuItem
      Caption = '&Windows'
      object RestoreItem: TMenuItem
        Caption = 'Restore All'
        OnClick = RestoreItemClick
      end
      object MaximizeItem: TMenuItem
        Caption = 'Maximize All'
        OnClick = MaximizeItemClick
      end
      object MinimizeItem: TMenuItem
        Caption = 'Minimize All'
        OnClick = MinimizeItemClick
      end
      object CloseAll1: TMenuItem
        Caption = 'Close All'
        OnClick = CloseAll1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object TileItem: TMenuItem
        Caption = 'Tile'
        ImageIndex = 6
        OnClick = TileItemClick
      end
      object CascadeItem: TMenuItem
        Caption = 'Cascade'
        ImageIndex = 5
        OnClick = CascadeItemClick
      end
    end
    object N22: TMenuItem
      Caption = 'About'
      object AboutItem: TMenuItem
        Caption = 'About BusinessSkinForm'
        ImageIndex = 3
      end
      object HomeItem: TMenuItem
        Caption = 'Almediadev Home'
        ImageIndex = 4
      end
    end
  end
  object bsSkinData1: TbsSkinData
    Left = 40
    Top = 32
  end
  object OD: TOpenDialog
    Filter = 'UnCompressed skin (*.ini)|*.ini|Compressed skin (*.bskn)|*.bskn'
    Left = 40
    Top = 64
  end
  object bsTrayIcon1: TbsTrayIcon
    AnimateTimerInterval = 0
    IconVisible = False
    IconIndex = 0
    Left = 72
    Top = 32
  end
  object ImageList1: TImageList
    Left = 72
    Top = 64
    Bitmap = {
      494C010107000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000