unitfrmplayavi.dfm

《Delphi7编程100例》代码,书配资料

object Form1: TForm1
  Left = 192
  Top = 129
  Width = 454
  Height = 405
  Caption = #25773#25918'AVI'#25991#20214
  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 lblLabel1: TLabel
    Left = 128
    Top = 350
    Width = 72
    Height = 13
    Caption = #36873#25321#25773#25918#20301#32622
  end
  object Animate1: TAnimate
    Left = 16
    Top = 8
    Width = 321
    Height = 321
    Active = False
    StartFrame = 0
    StopFrame = 12
  end
  object btnPlay: TButton
    Left = 360
    Top = 136
    Width = 75
    Height = 25
    Caption = #25773#25918
    TabOrder = 1
    OnClick = btnPlayClick
  end
  object btnStop: TButton
    Left = 360
    Top = 176
    Width = 75
    Height = 25
    Caption = #20572#27490
    TabOrder = 2
    OnClick = btnStopClick
  end
  object btnOpen: TButton
    Left = 360
    Top = 96
    Width = 75
    Height = 25
    Caption = #25171#24320
    TabOrder = 3
    OnClick = btnOpenClick
  end
  object udUpDown1: TUpDown
    Left = 273
    Top = 344
    Width = 15
    Height = 21
    Associate = edtEdit1
    Min = 0
    Position = 0
    TabOrder = 4
    Wrap = False
  end
  object edtEdit1: TEdit
    Left = 240
    Top = 344
    Width = 33
    Height = 21
    TabOrder = 5
    Text = '0'
  end
  object odgOpenDialog1: TOpenDialog
    Filter = 'avi|*.avi'
    Left = 392
    Top = 32
  end
end