unit1.dfm

来自「这是一个用Delphi开发的MP3播放器的源码」· DFM 代码 · 共 125 行

object Frm_Main: TFrm_Main
  Left = 335
  Top = 225
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'MP3 player  [Source Code availble]'
  ClientHeight = 252
  ClientWidth = 476
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 24
    Top = 160
    Width = 31
    Height = 16
    Caption = 'Freq:'
  end
  object Label2: TLabel
    Left = 232
    Top = 160
    Width = 43
    Height = 16
    Caption = 'Length:'
  end
  object FreqLabel: TLabel
    Left = 80
    Top = 160
    Width = 40
    Height = 18
    Caption = '0000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Verdana'
    Font.Style = []
    ParentFont = False
  end
  object LengthLabel: TLabel
    Left = 296
    Top = 160
    Width = 60
    Height = 18
    Caption = '000000'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'Verdana'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 24
    Top = 8
    Width = 177
    Height = 145
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 0
  end
  object OpenBtn: TButton
    Left = 24
    Top = 184
    Width = 81
    Height = 25
    Caption = '&Open...'
    TabOrder = 1
    OnClick = OpenBtnClick
  end
  object PlayBtn: TButton
    Left = 112
    Top = 184
    Width = 81
    Height = 25
    Caption = 'Play'
    Enabled = False
    TabOrder = 2
    OnClick = PlayBtnClick
  end
  object PauseBtn: TButton
    Left = 200
    Top = 184
    Width = 81
    Height = 25
    Caption = 'P&ause'
    Enabled = False
    TabOrder = 3
    OnClick = PauseBtnClick
  end
  object StopBtn: TButton
    Left = 288
    Top = 184
    Width = 81
    Height = 25
    Caption = '&Stop'
    Enabled = False
    TabOrder = 4
    OnClick = StopBtnClick
  end
  object ExitBtn: TButton
    Left = 376
    Top = 184
    Width = 81
    Height = 25
    Caption = 'E&xit'
    TabOrder = 5
    OnClick = ExitBtnClick
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.mp3'
    Filter = 'mp3 files(*.mp3)|*.mp3'
    Left = 64
    Top = 56
  end
end