winampctrdemo1unit1.dfm

来自「WinAmp Control A Component that can con」· DFM 代码 · 共 355 行

object Form1: TForm1
  Left = 217
  Top = 108
  Width = 359
  Height = 201
  Caption = 'WinAmpCtr Demo1'
  Color = clBtnFace
  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 Panel1: TPanel
    Left = 248
    Top = 8
    Width = 97
    Height = 57
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 48
      Top = 8
      Width = 41
      Height = 41
      BiDiMode = bdLeftToRight
      Caption = 'Skip fw'
      ParentBiDiMode = False
      TabOrder = 0
      OnMouseDown = BitBtn1MouseDown
      OnMouseUp = BitBtn1MouseUp
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 8
      Top = 8
      Width = 41
      Height = 41
      BiDiMode = bdLeftToRight
      Caption = 'Skip bk'
      ParentBiDiMode = False
      TabOrder = 1
      OnMouseDown = BitBtn2MouseDown
      OnMouseUp = BitBtn2MouseUp
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC3333333333333773}
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 8
    Width = 233
    Height = 57
    BevelOuter = bvLowered
    TabOrder = 1
    object BitBtn5: TBitBtn
      Left = 48
      Top = 8
      Width = 41
      Height = 41
      BiDiMode = bdLeftToRight
      Caption = 'Next'
      ParentBiDiMode = False
      TabOrder = 0
      OnClick = BitBtn5Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333
        70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003
        70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333
        70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object BitBtn6: TBitBtn
      Left = 8
      Top = 8
      Width = 41
      Height = 41
      BiDiMode = bdLeftToRight
      Caption = 'Prev'
      ParentBiDiMode = False
      TabOrder = 1
      OnClick = BitBtn6Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033
        70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033
        70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033
        70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object BitBtn7: TBitBtn
      Left = 96
      Top = 8
      Width = 41
      Height = 41
      BiDiMode = bdLeftToRight
      Caption = 'Play'
      ParentBiDiMode = False
      TabOrder = 2
      OnClick = BitBtn7Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
        70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
        70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
        70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object BitBtn8: TBitBtn
      Left = 136
      Top = 8
      Width = 41
      Height = 41
      BiDiMode = bdLeftToRight
      Caption = 'Stop'
      ParentBiDiMode = False
      TabOrder = 3
      OnClick = BitBtn8Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
    object BitBtn9: TBitBtn
      Left = 184
      Top = 8
      Width = 41
      Height = 41
      BiDiMode = bdLeftToRight
      Caption = 'Pause'
      ParentBiDiMode = False
      TabOrder = 4
      OnClick = BitBtn9Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033
        70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
        70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
        70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      Layout = blGlyphBottom
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 8
    Top = 72
    Width = 337
    Height = 97
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 24
      Top = 4
      Width = 48
      Height = 13
      Alignment = taRightJustify
      Caption = 'Track No:'
    end
    object Label2: TLabel
      Left = 16
      Top = 16
      Width = 56
      Height = 13
      Alignment = taRightJustify
      Caption = 'Track Path:'
    end
    object Lab_TrackNo: TLabel
      Left = 72
      Top = 4
      Width = 24
      Height = 13
      Caption = '0000'
    end
    object Lab_TrackName: TLabel
      Left = 72
      Top = 16
      Width = 18
      Height = 13
      Caption = '------'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 28
      Width = 321
      Height = 61
      Caption = 'ID3 Tag Info'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label3: TLabel
        Left = 38
        Top = 14
        Width = 26
        Height = 13
        Alignment = taRightJustify
        Caption = 'Artist:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 32
        Top = 26
        Width = 32
        Height = 13
        Alignment = taRightJustify
        Caption = 'Album:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 33
        Top = 38
        Width = 31
        Height = 13
        Alignment = taRightJustify
        BiDiMode = bdRightToLeft
        Caption = 'Track:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentFont = False
      end
      object Lab_Artist: TLabel
        Left = 64
        Top = 14
        Width = 48
        Height = 13
        Caption = 'No Data'
      end
      object Lab_Album: TLabel
        Left = 64
        Top = 26
        Width = 48
        Height = 13
        Caption = 'No Data'
      end
      object Lab_Track: TLabel
        Left = 64
        Top = 38
        Width = 48
        Height = 13
        Caption = 'No Data'
      end
    end
  end
  object WinAmpCtr1: TWinAmpCtr
    TrackNumber = 198
    PlayState = psPlay
    PlaySequence = psqRandom
    Left = 304
    Top = 64
  end
  object Timer1: TTimer
    Interval = 200
    OnTimer = Timer1Timer
    Left = 272
    Top = 64
  end
end