unit1.dfm

BusinessSkinForm教案与实例

object Form1: TForm1
  Left = 224
  Top = 114
  AutoScroll = False
  BorderIcons = []
  Caption = 'Compressed skins'
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object bsSkinTextLabel1: TbsSkinTextLabel
    Left = 232
    Top = 56
    Width = 238
    Height = 78
    UseSkinFont = True
    Lines.Strings = (
      'You can stored compressed skins in *.exe file with '
      'TbsCompressStoredSkin component ! '
      ''
      'TbsCompressStoredSkin component '
      'use Zlib-compression.')
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -11
    DefaultFont.Name = 'MS Sans Serif'
    DefaultFont.Style = []
    SkinData = bsSkinData1
    SkinDataName = 'stdlabel'
  end
  object bsSkinRadioGroup1: TbsSkinRadioGroup
    Left = 8
    Top = 8
    Width = 201
    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
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvFrame
    CaptionMode = True
    RollUpMode = False
    RollUpState = False
    NumGlyphs = 1
    Spacing = 2
    Caption = 'Stored skins'
    OnClick = bsSkinRadioGroup1Click
    ButtonSkinDataName = 'radiobox'
    ButtonDefaultFont.Charset = DEFAULT_CHARSET
    ButtonDefaultFont.Color = clWindowText
    ButtonDefaultFont.Height = 14
    ButtonDefaultFont.Name = 'Arial'
    ButtonDefaultFont.Style = []
    ItemIndex = 0
    Items.Strings = (
      'BlueMorph'
      'ExOs'
      'Circuit'
      'Modern'
      'Corner')
  end
  object bsBusinessSkinForm1: TbsBusinessSkinForm
    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 = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = 'Arial'
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SkinData = bsSkinData1
    MinHeight = 0
    MinWidth = 0
    Magnetic = False
    MagneticSize = 10
    BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
    Left = 232
    Top = 16
  end
  object bsSkinData1: TbsSkinData
    CompressedStoredSkin = BlueMorph
    Left = 272
    Top = 16
  end
  object ExOS: TbsCompressedStoredSkin
    FileName = 'skin.ini'
    Left = 344
    Top = 16
    CompressedData = {
      78DAEC5D07401447F77F27A24140101044140554A2A95F124D4C9448A226266A
      D4C458A28926A6A889188D1501C58622022ABD2A60411114044544050B52A473
      1CF5E8704AB3604DFEFF37B37B953B9AA8E1FB78C7EECEBC7933F3F8DDDC9BD9
      D9373B1C40FA64DAC9B940C95A09E055BC9EC3E32F3C38F00AE5BF3D1B20BE2F
      7364007310FABFFFFB3F10D4D4401E2F0F32D233202D350D929392E14AFC15B8
      74F1121C0E3A8C693C4C4BC7B4544C4B82C41B3720E1FA75948947998B70F4C8
      1130351E0AFE5E1EE0E9B21F927F791752977F0019AB2680B1E120F043FECDDF
      31BEFA63E06EFA1C722C3F87826DB3E0E3570D60BCA9018C31190005DB67423E
      3D6641B1C37CE0DACD818CEDB321C5F66B48DC3C0B126C66C235AB1970158FD3
      7F7E0E61169FC1D16513E1F0D24F21088F83BF9883EF9209C077F80EF87BBF83
      623C0AF7CC877CFB7990BB6B2E64EF9C03993BBE85B46DB3E1A6ED377069E374
      B8B07E1A9C5F3715CEAEF91222577F0167F038B5F27338FEC764F0FFD91C7CB0
      3CF74566C0775C0825CE3FE0B1084AF62D86D2033F41C9FE9FE0E39183603CFE
      0FA52E3FC368FC1F4A5D7F8509A3064399FB5228F3580E659E7F40B9D70A28F7
      5909E5BEABA1C27F0D541C5A0F95011BA1326813541DB6868BBB9742ECAEDF20
      62EB128873F803C26D97C0499B1FE184F56288DFB71AAE1C580B575C37E0B111
      4277FC0157DDADE0C2FE0D70CD672B9C76588BD76D30C2C810F11F02AE3BAD21
      E0B74FA0DCF5273C96C0986103A0DAEF77B8ECB412AE7A6D866BBEDB50C60A5C
      50AEDAFF77A83DBA066A8FAD853BA76C60D8D0C1C8B702875D3BC0DF1BBF47D7
      FD70E7B40D34625A235E9BA277E26107F7F17AFFBC1D3CBEEC088FE31CE1115E
      1FE1F5E9F503E087F9F2F2B0AD64605B494B85C4C41B70E50AB6914B17213AFA
      1C9C3E7D0A42434F020F65D251261565929293E006CAC5A3DC45948BB9100351
      67A320E87010CAE5A15C06CAA561FA154CBF0427424280876D351DDB6A2AB6D5
      246CAB376E24423CB6D78BD85ECF9D8B8623478EA21E7928C7839C9C1CC8CECE
      86CCCC4CD40BDB3796954ADA7132C987ED382101AE5DBB0657AF5EC53288AE97
      B01CA26F349C3D7B16A2A2A2E0CC993370ECD831080A0A8243870E818F8F0F78
      7979C19E3D7BE8EF8743E8ADADFA5D88DEA53A474646E279C2D6ADEF7C3EA5EB
      90BEFE67A8357E991CCEC8ADE69F7CF2C9A75D84264E9ABCE63D02BDA1A121E7
      835566A3469ABDDA65C8EC75F349FFD9FA3667D1A2459C5523C68EFDE08B2FA7
      7611FAF28B0F3E1AF5C9E4AD9CD5AB57CF5A3D6DEA57DFCC99DB8568CEB471E6
      5BDFDCBE7DFBEA39B366CDF9EEFB455D89167E33FE93ADCECECEB3E7CFF9E6B7
      E596167F761DDA64B1FC8B8F8D3C3D3DB5BFFB76498FAE467F4C7F7DEBE1C387
      B5E77FF56397D37DF957AF6FC54E567BEE989FBB9CEE4BA7BDB1B5A6A6467BEE
      D85FBAACEE734C7FEDD6BD5BF76EDDBB75EFD6BD5BF76EDDBB75EFD6BD5BF76E
      DDBB75EFD6BD5BF76EDDBB75EFD6BD5BF76EDDBB75EFD6BD5BF76EDD3B51F741
      86465D567743A3415D5677CEA5F55D567725F8A3CBEAAE3C617197D5BDF7E6D9
      5D5677954B53BAACEE7DC0ACCBEAAE36E19D2EAB7BDFCD23BAACEE9A97067659
      DDB540A3CBEAAE3341A9EBDA77B35E5D56F77EBDFA7659DD0D52FB7759DD87BB
      0FEEB2BABFB9787897D5FD83516F7459DD3FB9FB5E97D57D6ACCB82EABFBB7DB
      267659DD174D9BDA65755FA6FB4D97D57DCDD6AE3B9E59B6B17797D5FDFB3F55
      BBACEEB37EEBBAE3F7C98BB4BBACEE1FCDD1EBB2BABF35DD407BCE875D537793
      4943667755DDF5C6997459DDD5DE35EDB2BAC3A8D7BAACEE0D7AD065753FA0D5
      75751FABDE75752FECDD657537B2ED01B3E78EED82BA7FF59A91C74E98BD60DA
      4F5D4EF765733E9AD9E37798FDC3BCC55D4EF73F164C1BBA7C06CC5EB96263D7
      D37DC5EF43B3DE83D97FB164FDD75F56F8C18095906565454F56DBAC992849B6
      922F22CB93884946E4245A758030E78CF1FA609C969AD2F52835CD38F74B30BE
      1992D8F528E4A671D278304EBE71E2AAE755A413570303C9F9AA6760BF139E27
      4E785EED8781575E41D689081288B81A8182274EC81391E649C5C411B989247A
      9596FBCAD5082CC9138F7EAF104E3F54E795AB819E115785F4CAD56B9E44FCC4
      8D64E30B6F8171A4D715A4E3E157AEE0DFF12B9A57F02FE04AB8476F0C858763
      102940535333FC0AA5000CCB1191E649C5C411058994138ED50784132D0202C2
      8F7B840768A2C815CDE3577AF70E200298AA89EA91D42B1E57CE681987198171
      52507C5C57A3F8A024E343DA601C72EDF22542A72F49535FE67C5A146C4E1222
      323CB9B1BE72134F4BC60EE14714A54177895451F6CBD7428C5D94C1D8E74AAF
      8B5D8DD4AFF818AF5EBDDAD83B3E56F9825BD805FFE0B0B00B61B1CAFEFE616E
      6EC1FECACA6AB11790D482FDD58283FDFD95DDC230A81CEBEF1F2C4F449A2715
      1347E426AAC586C5C6AAF96331B4AC58353565E5B06035AC2A0CEB0C560BBB10
      1C86CC30B7E0304C0F8BBD801AC4C67B1B6FDEBCD938F172CCF97F13C5B0474B
      74EC7222D5FDF0A9E8735D8DA20FDE3076717131BE1E7BF6E8599793BE67954E
      F6513A7BF2A48BD2D93E27957CCF1E5552EAE3EBEB7234EAEC59DF3EBE2E2E67
      FB1C75F1ED1385C2F244A479523171446EE24925D4C2C5176B3F7BD6E5689FB3
      478F9E8C3AE91B7552E9E849AC4DE9A8D2D9A8B32E7D5041DFB3BE27FB605EA5
      932E6763AF336D462346B5A75FCF9E7EAAC7427BF67455750D75F553758D7175
      75F53B16138AA1D0633DFD5C8FC5B8FA85AAFAA9AAF6748D912722CD938A4944
      E425C6904A63A80E7E7E3D5563FC90AFEAE7DA3326E6989FAB5F4F4C5675ED89
      1942FDB02A3FBF63AE3D4355633498367324E15AD7A3C32AC6868686C6DB77EE
      F857908EE8AAA323626090C475761C1878401823D7FEDB8D57FD3CD458B76B12
      FDADEA1132600F3C1988E306344C82C28094A4B488144F32268E284A942C5E1C
      14E6912211CBD8F7E0C1AF070C1AC01206063111BC0CA20C7A1D244C1D201190
      2B22E4358F0D62059B278ACA15A7B11222D141123906B0957E2D1008D60F1E3C
      D8D090FCB164C8309883C6492A3D0C99B87C11299E644C1C919F28AC80496114