main.dfm

来自「delphi2007写的播放器源码。效果类似于千千静听。」· DFM 代码 · 共 354 行

object Form1: TForm1
  Left = 0
  Top = 0
  BorderStyle = bsNone
  Caption = 'myPlayer'
  ClientHeight = 319
  ClientWidth = 540
  Color = clBtnFace
  TransparentColor = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object imgPanel: TImage
    Left = 8
    Top = 8
    Width = 461
    Height = 225
    OnMouseDown = imgPanelMouseDown
    OnMouseMove = imgPanelMouseMove
  end
  object imgPlay: TImage
    Left = 2
    Top = 160
    Width = 25
    Height = 33
    Hint = #25773#25918'/'#26242#20572
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgPlayClick
    OnMouseDown = imgPlayMouseDown
    OnMouseLeave = imgPlayMouseLeave
    OnMouseMove = imgPlayMouseMove
  end
  object imgPrevious: TImage
    Left = 64
    Top = 159
    Width = 25
    Height = 33
    Hint = #19978#19968#20010
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgPreviousClick
    OnMouseDown = imgPreviousMouseDown
    OnMouseLeave = imgPreviousMouseLeave
    OnMouseMove = imgPreviousMouseMove
  end
  object imgStop: TImage
    Left = 97
    Top = 159
    Width = 25
    Height = 33
    Hint = #20572#27490
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgStopClick
    OnMouseDown = imgStopMouseDown
    OnMouseLeave = imgStopMouseLeave
    OnMouseMove = imgStopMouseMove
  end
  object imgNext: TImage
    Left = 128
    Top = 160
    Width = 25
    Height = 33
    Hint = #19979#19968#20010
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgNextClick
    OnMouseDown = imgNextMouseDown
    OnMouseLeave = imgNextMouseLeave
    OnMouseMove = imgNextMouseMove
  end
  object imgSpeaker: TImage
    Left = 345
    Top = 160
    Width = 25
    Height = 33
    Hint = #38899#37327
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgSpeakerClick
    OnMouseLeave = imgSpeakerMouseLeave
    OnMouseMove = imgSpeakerMouseMove
  end
  object imgMin: TImage
    Left = 384
    Top = 8
    Width = 17
    Height = 17
    Hint = #38544#34255#20027#30028#38754
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgMinClick
    OnMouseDown = imgMinMouseDown
    OnMouseLeave = imgMinMouseLeave
    OnMouseMove = imgMinMouseMove
  end
  object imgExit: TImage
    Left = 407
    Top = 8
    Width = 25
    Height = 17
    Hint = #20851#38381
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgExitClick
    OnMouseDown = imgExitMouseDown
    OnMouseLeave = imgExitMouseLeave
    OnMouseMove = imgExitMouseMove
  end
  object imgG_Ntrack: TImage
    Left = 184
    Top = 168
    Width = 137
    Height = 9
    Stretch = True
    Transparent = True
  end
  object imgG_Track: TImage
    Left = 184
    Top = 183
    Width = 137
    Height = 9
    Stretch = True
    Transparent = True
  end
  object imgG_BarPosition: TImage
    Left = 216
    Top = 160
    Width = 17
    Height = 41
    Hint = #25773#25918#36827#24230
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnMouseDown = imgG_BarPositionMouseDown
    OnMouseLeave = imgG_BarPositionMouseLeave
    OnMouseMove = imgG_BarPositionMouseMove
    OnMouseUp = imgG_BarPositionMouseUp
  end
  object imgV_Ntrack: TImage
    Left = 376
    Top = 168
    Width = 56
    Height = 9
    Stretch = True
    Transparent = True
  end
  object imgV_Track: TImage
    Left = 376
    Top = 184
    Width = 57
    Height = 9
    Stretch = True
    Transparent = True
  end
  object imgV_BarPosition: TImage
    Left = 407
    Top = 160
    Width = 9
    Height = 41
    Hint = #38899#37327
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnMouseDown = imgV_BarPositionMouseDown
    OnMouseLeave = imgV_BarPositionMouseLeave
    OnMouseMove = imgV_BarPositionMouseMove
  end
  object imgPlayList: TImage
    Left = 8
    Top = 32
    Width = 65
    Height = 33
    Hint = #38899#20048#21015#34920
    ParentShowHint = False
    ShowHint = True
    OnClick = imgPlayListClick
    OnMouseDown = imgPlayListMouseDown
    OnMouseLeave = imgPlayListMouseLeave
    OnMouseMove = imgPlayListMouseMove
  end
  object imgNowTime: TImage
    Left = 95
    Top = 88
    Width = 57
    Height = 25
    Transparent = True
  end
  object BackImage: TImage
    Left = 192
    Top = 88
    Width = 153
    Height = 49
  end
  object PaintFrame: TPaintBox
    Left = 192
    Top = 93
    Width = 130
    Height = 50
  end
  object imgRightSpeaker: TImage
    Left = 380
    Top = 81
    Width = 81
    Height = 49
    Transparent = True
  end
  object imgLeftSpeaker: TImage
    Left = 24
    Top = 88
    Width = 81
    Height = 49
    Transparent = True
  end
  object lbltime: TLabel
    Left = 345
    Top = 44
    Width = 60
    Height = 13
    Caption = '00:00/00:00'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindow
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object imgCapture: TImage
    Left = 33
    Top = 159
    Width = 25
    Height = 33
    Hint = #25130#22270
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = imgCaptureClick
    OnMouseDown = imgCaptureMouseDown
    OnMouseLeave = imgCaptureMouseLeave
    OnMouseMove = imgCaptureMouseMove
  end
  object imgTagTitle: TImage
    Left = 159
    Top = 143
    Width = 89
    Height = 17
    Transparent = True
  end
  object TimerRender: TTimer
    Enabled = False
    Interval = 33
    OnTimer = TimerRenderTimer
    Left = 216
    Top = 232
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 288
    Top = 232
    object Nrenew: TMenuItem
      Caption = #24674#22797#20027#31383#20307
      OnClick = NrenewClick
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N10: TMenuItem
      Caption = #32534#36753#27468#35789
      OnClick = N10Click
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object NskinMenu: TMenuItem
      Caption = #30382#32932#26356#25442
    end
    object Visual1: TMenuItem
      Caption = 'Visual'#25511#21046
      OnClick = Visual1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N4561: TMenuItem
      Caption = #25773#25918#25511#21046
      object N1: TMenuItem
        Caption = #25773#25918'|'#26242#20572
        OnClick = imgPlayClick
      end
      object N2: TMenuItem
        Caption = #20572#27490
        OnClick = imgStopClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Caption = #19978#19968#20010
        OnClick = imgPreviousClick
      end
      object N7: TMenuItem
        Caption = #19979#19968#20010
        OnClick = imgNextClick
      end
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Nexit: TMenuItem
      Caption = #36864#20986
      OnClick = imgExitClick
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 250
    OnTimer = Timer1Timer
    Left = 248
    Top = 232
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Bitmap (*.bmp)|*.bmp'
    Left = 320
    Top = 232
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 184
    Top = 232
  end
  object Timer3: TTimer
    Interval = 50
    OnTimer = Timer3Timer
    Left = 144
    Top = 232
  end
end