visual.dfm.~6~

delphi2007写的播放器源码。效果类似于千千静听。

object Form4: TForm4
  Left = 329
  Top = 192
  BorderStyle = bsNone
  Caption = 'Form4'
  ClientHeight = 359
  ClientWidth = 608
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 450
    Height = 289
    TabOrder = 0
    object PaintFrame: TPaintBox
      Left = 7
      Top = 9
      Width = 150
      Height = 80
    end
    object BackImageRes: TImage
      Left = 7
      Top = 9
      Width = 150
      Height = 80
      AutoSize = True
      Visible = False
    end
    object RadioDraw: TRadioGroup
      Left = 7
      Top = 95
      Width = 109
      Height = 95
      Caption = #21487#35270#21270#31867#22411
      ItemIndex = 0
      Items.Strings = (
        #22278#24418
        #31034#27874#24418
        #39057#35889#24418)
      TabOrder = 0
    end
    object RadioMode: TRadioGroup
      Left = 119
      Top = 95
      Width = 104
      Height = 95
      Caption = #21487#35270#21270#27169#24335
      ItemIndex = 0
      Items.Strings = (
        #32447#26465
        #23454#20307
        #20687#32032)
      TabOrder = 1
      OnClick = RadioModeClick
    end
    object GroupBox1: TGroupBox
      Left = 229
      Top = 9
      Width = 214
      Height = 200
      Caption = #36890#29992#23646#24615
      TabOrder = 2
      object Label1: TLabel
        Left = 10
        Top = 24
        Width = 34
        Height = 13
        Caption = #22352#26631':X'
      end
      object Label2: TLabel
        Left = 10
        Top = 53
        Width = 34
        Height = 13
        Caption = #22352#26631':Y'
      end
      object Label3: TLabel
        Left = 10
        Top = 83
        Width = 24
        Height = 13
        Caption = #20559#31227
      end
      object Label4: TLabel
        Left = 10
        Top = 113
        Width = 18
        Height = 13
        Caption = 'Res'
      end
      object Label6: TLabel
        Left = 10
        Top = 145
        Width = 36
        Height = 13
        Caption = #32972#26223#33394
      end
      object Label7: TLabel
        Left = 110
        Top = 145
        Width = 36
        Height = 13
        Caption = #21069#26223#33394
      end
      object TrackOff: TTrackBar
        Left = 48
        Top = 75
        Width = 160
        Height = 33
        Max = 120
        Frequency = 5
        Position = 20
        TabOrder = 0
        ThumbLength = 12
        TickMarks = tmBoth
        OnChange = TrackOffChange
      end
      object TrackRes: TTrackBar
        Left = 48
        Top = 105
        Width = 160
        Height = 33
        Max = 2
        Min = 1
        Position = 2
        TabOrder = 1
        ThumbLength = 12
        TickMarks = tmBoth
        OnChange = TrackResChange
      end
      object TrackY: TTrackBar
        Left = 48
        Top = 45
        Width = 160
        Height = 33
        Max = 100
        Frequency = 10
        Position = 50
        TabOrder = 2
        ThumbLength = 12
        TickMarks = tmBoth
      end
      object TrackX: TTrackBar
        Left = 48
        Top = 16
        Width = 160
        Height = 33
        Max = 100
        Frequency = 10
        Position = 50
        TabOrder = 3
        ThumbLength = 12
        TickMarks = tmBoth
      end
      object PanelBkg: TPanel
        Left = 64
        Top = 140
        Width = 33
        Height = 25
        BevelOuter = bvLowered
        Color = clBlack
        TabOrder = 4
        OnClick = PanelBkgClick
      end
      object PanelPen: TPanel
        Left = 165
        Top = 140
        Width = 33
        Height = 25
        BevelOuter = bvLowered
        Color = clWhite
        TabOrder = 5
        OnClick = PanelPenClick
      end
      object CheckTran: TCheckBox
        Left = 10
        Top = 171
        Width = 89
        Height = 17
        Caption = #32972#26223#36879#26126#21270
        TabOrder = 6
        OnClick = CheckTranClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 7
      Top = 190
      Width = 216
      Height = 94
      Caption = #39057#35889#23646#24615
      TabOrder = 3
      object Label8: TLabel
        Left = 8
        Top = 66
        Width = 24
        Height = 13
        Caption = #23485#24230
      end
      object Label9: TLabel
        Left = 8
        Top = 40
        Width = 48
        Height = 13
        Caption = #39030#28857#39068#33394
      end
      object Label10: TLabel
        Left = 105
        Top = 16
        Width = 48
        Height = 13
        Caption = #39057#35889#36895#24230
      end
      object Label11: TLabel
        Left = 162
        Top = 16
        Width = 48
        Height = 13
        Caption = #39030#28857#36895#24230
      end
      object SpecTrackWidth: TTrackBar
        Left = 38
        Top = 58
        Width = 172
        Height = 33
        Max = 12
        Min = 1
        Position = 5
        TabOrder = 0
        ThumbLength = 12
        TickMarks = tmBoth
        OnChange = SpecTrackWidthChange
      end
      object PanelPeakColor: TPanel
        Left = 60
        Top = 35
        Width = 33
        Height = 25
        BevelOuter = bvLowered
        Color = clYellow
        TabOrder = 1
        OnClick = PanelPeakColorClick
      end
      object CheckSpecPeaks: TCheckBox
        Left = 8
        Top = 16
        Width = 91
        Height = 17
        Caption = #26174#31034#39057#35889#39030#28857
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = CheckSpecPeaksClick
      end
      object SpinLineFall: TUpDown
        Left = 138
        Top = 35
        Width = 15
        Height = 21
        Associate = EditLineFall
        Min = 1
        Max = 10
        Position = 3
        TabOrder = 5
        OnClick = SpinLineFallClick
      end
      object SpinPeakFall: TUpDown
        Left = 195
        Top = 35
        Width = 15
        Height = 21
        Associate = EditPeakFall
        Min = 1
        Max = 10
        Position = 1
        TabOrder = 6
        OnClick = SpinPeakFallClick
      end
      object EditLineFall: TEdit
        Left = 105
        Top = 35
        Width = 33
        Height = 21
        Color = clBtnShadow
        ReadOnly = True
        TabOrder = 2
        Text = '3'
      end
      object EditPeakFall: TEdit
        Left = 162
        Top = 35
        Width = 33
        Height = 21
        Color = clBtnShadow
        ReadOnly = True
        TabOrder = 3
        Text = '1'
      end
    end
    object GroupBox2: TGroupBox
      Left = 229
      Top = 211
      Width = 215
      Height = 73
      Caption = #22278#30340#23646#24615'--'#21322#24452
      TabOrder = 4
      object TrackRad: TTrackBar
        Left = 3
        Top = 16
        Width = 209
        Height = 41
        Max = 50
        Min = 10
        Position = 30
        TabOrder = 0
        ThumbLength = 12
        TickMarks = tmBoth
        OnChange = TrackRadChange
      end
    end
    object Button3: TButton
      Left = 163
      Top = 65
      Width = 60
      Height = 25
      Caption = #21462#28040#22270#29255
      TabOrder = 5
      OnClick = Button3Click
    end
    object Button2: TButton
      Left = 163
      Top = 34
      Width = 60
      Height = 25
      Caption = #28155#21152#22270#29255
      TabOrder = 6
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 163
      Top = 9
      Width = 60
      Height = 25
      Caption = #20851#38381
      TabOrder = 7
      OnClick = Button1Click
    end
  end
  object OpenDialog: TOpenDialog
    Left = 504
    Top = 184
  end
  object ColorDialog: TColorDialog
    Left = 536
    Top = 184
  end
  object OpenPictureDialog: TOpenPictureDialog
    Left = 568
    Top = 184
  end
end