equalyzer.dfm

Some source code for creating a media player in delphi

object FormEQ: TFormEQ
  Left = 330
  Top = 240
  BorderStyle = bsNone
  Caption = 'EQ'
  ClientHeight = 162
  ClientWidth = 446
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object mainSkin: TVsSkin
    Left = 0
    Top = 0
    Width = 275
    Height = 105
    MaskColor = clFuchsia
    GraphicName = 'eqmain.bmp'
    Composer = VsComposer
    object VsImage5: TVsImage
      Left = 100
      Top = 24
      Width = 3
      Height = 54
      GraphicName = 'slider.bmp'
      ClipRect.Width = 3
      ClipRect.Height = 70
      Stretch = True
    end
    object VsImage4: TVsImage
      Left = 220
      Top = 24
      Width = 3
      Height = 54
      GraphicName = 'slider.bmp'
      ClipRect.Width = 3
      ClipRect.Height = 70
      Stretch = True
    end
    object VsImage3: TVsImage
      Left = 196
      Top = 24
      Width = 3
      Height = 54
      GraphicName = 'slider.bmp'
      ClipRect.Width = 3
      ClipRect.Height = 70
      Stretch = True
    end
    object VsImage2: TVsImage
      Left = 172
      Top = 24
      Width = 3
      Height = 54
      GraphicName = 'slider.bmp'
      ClipRect.Width = 3
      ClipRect.Height = 70
      Stretch = True
    end
    object VsImage1: TVsImage
      Left = 148
      Top = 24
      Width = 3
      Height = 54
      GraphicName = 'slider.bmp'
      ClipRect.Width = 3
      ClipRect.Height = 70
      Stretch = True
    end
    object ListSlBack: TVsImage
      Left = 124
      Top = 24
      Width = 3
      Height = 54
      GraphicName = 'slider.bmp'
      ClipRect.Width = 3
      ClipRect.Height = 70
      Stretch = True
    end
    object VsButton1: TVsButton
      Left = 238
      Top = 5
      Width = 9
      Height = 9
      GraphicName = 'closemin.bmp'
      ClipRect.Top = 9
      ClipRect.Width = 45
      ClipRect.Height = 9
      MaskColor = clBlack
      OnClick = VsButton1Click
    end
    object VsButton2: TVsButton
      Left = 247
      Top = 5
      Width = 9
      Height = 9
      GraphicName = 'closemin.bmp'
      ClipRect.Width = 45
      ClipRect.Height = 9
      MaskColor = clBlack
      OnClick = VsButton2Click
    end
    object Slide1: TVsSlider
      Left = 121
      Top = 26
      Width = 10
      Height = 55
      DesignColor = clBlack
      GraphicName = 'volbal.bmp'
      ClipRect.Width = 16
      ClipRect.Height = 8
      MaxValue = 15
      MinValue = -15
      Position = 0
      Direction = sdVert
      MaskColor = clFuchsia
      OnChange = GainSliderChange
    end
    object Slide2: TVsSlider
      Left = 145
      Top = 26
      Width = 10
      Height = 55
      DesignColor = clBlack
      GraphicName = 'volbal.bmp'
      ClipRect.Width = 16
      ClipRect.Height = 8
      MaxValue = 15
      MinValue = -15
      Position = 0
      Direction = sdVert
      MaskColor = clFuchsia
      OnChange = GainSliderChange
    end
    object Slide3: TVsSlider
      Left = 169
      Top = 26
      Width = 10
      Height = 55
      DesignColor = clBlack
      GraphicName = 'volbal.bmp'
      ClipRect.Width = 16
      ClipRect.Height = 8
      MaxValue = 15
      MinValue = -15
      Position = 0
      Direction = sdVert
      MaskColor = clFuchsia
      OnChange = GainSliderChange
    end
    object Slide4: TVsSlider
      Left = 193
      Top = 26
      Width = 10
      Height = 55
      DesignColor = clBlack
      GraphicName = 'volbal.bmp'
      ClipRect.Width = 16
      ClipRect.Height = 8
      MaxValue = 15
      MinValue = -15
      Position = 0
      Direction = sdVert
      MaskColor = clFuchsia
      OnChange = GainSliderChange
    end
    object Slide5: TVsSlider
      Left = 217
      Top = 26
      Width = 10
      Height = 55
      DesignColor = clBlack
      GraphicName = 'volbal.bmp'
      ClipRect.Width = 16
      ClipRect.Height = 8
      MaxValue = 15
      MinValue = -15
      Position = 0
      Direction = sdVert
      MaskColor = clFuchsia
      OnChange = GainSliderChange
    end
    object GainSlider: TVsSlider
      Left = 97
      Top = 26
      Width = 10
      Height = 55
      DesignColor = clBlack
      GraphicName = 'volbal.bmp'
      ClipRect.Width = 16
      ClipRect.Height = 8
      MaxValue = 100
      MinValue = 0
      Position = 50
      Direction = sdVert
      MaskColor = clFuchsia
      OnChange = GainSliderChange
    end
    object EqOnCheck: TVsCheckBox
      Left = 20
      Top = 64
      Width = 20
      Height = 12
      GraphicName = 'eqon.bmp'
      ClipRect.Width = 120
      ClipRect.Height = 12
      Checked = False
      OnClick = EqOnCheckClick