unitmultiskin.dfm

I mComputermaster programmisDelphi+pascal

object FormMultiSkin: TFormMultiSkin
  Left = 198
  Top = 121
  AutoScroll = False
  Caption = 'Sample of multi-skinnig'
  ClientHeight = 425
  ClientWidth = 581
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object sLabelFX1: TsLabelFX
    Left = 152
    Top = 373
    Width = 278
    Height = 28
    Caption = 'Please select directory with skins!'
    ParentFont = False
    Font.Charset = DEFAULT_CHARSET
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Kind.KindType = ktCustom
  end
  object sPanel1: TsPanel
    Left = 16
    Top = 16
    Width = 265
    Height = 353
    Caption = ' '
    TabOrder = 0
    SkinData.SkinManager = sSkinManager1
    SkinData.SkinSection = 'PANEL'
    object sButton1: TsButton
      Left = 8
      Top = 296
      Width = 75
      Height = 25
      Caption = 'sButton1'
      TabOrder = 0
      SkinData.SkinManager = sSkinManager1
      SkinData.SkinSection = 'BUTTON'
    end
    object sButton2: TsButton
      Left = 88
      Top = 296
      Width = 75
      Height = 25
      Caption = 'sButton2'
      TabOrder = 1
      SkinData.SkinManager = sSkinManager1
      SkinData.SkinSection = 'BUTTON'
    end
    object sListBox1: TsListBox
      Left = 16
      Top = 16
      Width = 225
      Height = 273
      AutoCompleteDelay = 500
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
      SkinData.SkinManager = sSkinManager1
      SkinData.SkinSection = 'EDIT'
      ItemHeight = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = sListBox1Click
    end
    object sStatusBar2: TsStatusBar
      Left = 1
      Top = 333
      Width = 263
      Height = 19
      Panels = <>
      SkinData.SkinManager = sSkinManager1
      SkinData.SkinSection = 'STATUSBAR'
    end
    object sBitBtn1: TsBitBtn
      Left = 168
      Top = 296
      Width = 75
      Height = 25
      TabOrder = 4
      Kind = bkCancel
      SkinData.SkinManager = sSkinManager1
      SkinData.SkinSection = 'BUTTON'
      ShowFocus = False
    end
  end
  object sStatusBar1: TsStatusBar
    Left = 0
    Top = 406
    Width = 581
    Height = 19
    Panels = <>
    SkinData.SkinManager = sSkinManager2
    SkinData.SkinSection = 'STATUSBAR'
  end
  object sPanel2: TsPanel
    Left = 296
    Top = 16
    Width = 265
    Height = 353
    Caption = ' '
    TabOrder = 2
    SkinData.SkinManager = sSkinManager2
    SkinData.SkinSection = 'PANEL'
    object sButton4: TsButton
      Left = 8
      Top = 296
      Width = 75
      Height = 25
      Caption = 'sButton1'
      TabOrder = 0
      SkinData.SkinManager = sSkinManager2
      SkinData.SkinSection = 'BUTTON'
    end
    object sButton5: TsButton
      Left = 88
      Top = 296
      Width = 75
      Height = 25
      Caption = 'sButton2'
      TabOrder = 1
      SkinData.SkinManager = sSkinManager2
      SkinData.SkinSection = 'BUTTON'
    end
    object sListBox2: TsListBox
      Left = 16
      Top = 16
      Width = 225
      Height = 273
      AutoCompleteDelay = 500
      BoundLabel.Indent = 0
      BoundLabel.Font.Charset = DEFAULT_CHARSET
      BoundLabel.Font.Color = clWindowText
      BoundLabel.Font.Height = -11
      BoundLabel.Font.Name = 'MS Sans Serif'
      BoundLabel.Font.Style = []
      BoundLabel.Layout = sclLeft
      BoundLabel.MaxWidth = 0
      BoundLabel.UseSkinColor = True
      SkinData.SkinManager = sSkinManager2
      SkinData.SkinSection = 'EDIT'
      ItemHeight = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = sListBox1Click
    end
    object sStatusBar3: TsStatusBar
      Left = 1
      Top = 333
      Width = 263
      Height = 19
      Panels = <>
      SkinData.SkinManager = sSkinManager2
      SkinData.SkinSection = 'STATUSBAR'
    end
    object sBitBtn2: TsBitBtn
      Left = 168
      Top = 296
      Width = 75
      Height = 25
      TabOrder = 4
      Kind = bkOK
      SkinData.SkinManager = sSkinManager2
      SkinData.SkinSection = 'BUTTON'
      ShowFocus = False
    end
  end
  object sSkinManager1: TsSkinManager
    AnimEffects.FormShow.Active = False
    IsDefault = False
    InternalSkins = <
      item
        Name = 'WLM (internal)'
        GeneralData = <>
        Images = <>
        Patterns = <>
        Shadow1Color = clBlack