mainunit.dfm

MPEG-II播放动态链接库的使用样例

object Form1: TForm1
  Left = 192
  Top = 133
  Width = 510
  Height = 445
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 502
    Height = 29
    ButtonHeight = 21
    ButtonWidth = 19
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object TrackBar2: TTrackBar
      Left = 0
      Top = 2
      Width = 150
      Height = 21
      Max = 128
      Min = -128
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBar2Change
    end
    object TrackBar1: TTrackBar
      Left = 150
      Top = 2
      Width = 217
      Height = 21
      Max = 500
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBar1Change
    end
    object ToolButton1: TToolButton
      Left = 367
      Top = 2
      Caption = '['
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 386
      Top = 2
      Caption = '<<'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 405
      Top = 2
      Caption = '>>'
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 424
      Top = 2
      Caption = ']'
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 72
    Top = 40
  end
  object MainMenu1: TMainMenu
    Left = 80
    Top = 72
    object FileF1: TMenuItem
      Caption = '&File'
      object OpenFileO1: TMenuItem
        Caption = '&Open...'
        ShortCut = 16463
        OnClick = OpenFileO1Click
      end
      object Play1: TMenuItem
        Caption = 'Pl&ay'
        OnClick = Play1Click
      end
      object Pause1: TMenuItem
        Caption = '&Pause'
        ShortCut = 16464
        OnClick = Pause1Click
      end
      object Stop1: TMenuItem
        Caption = '&Stop'
        OnClick = Stop1Click
      end
      object SaveBMP1: TMenuItem
        Caption = 'Save BMP'
        ShortCut = 45
        OnClick = SaveBMP1Click
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
    end
  end
end