unit1.dfm

谁给看看

object Form1: TForm1
  Left = 263
  Top = 150
  Cursor = crHandPoint
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'SONY'#24405#20687#26426#25511#21046#31243#24207
  ClientHeight = 252
  ClientWidth = 275
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000001001000A80800001600000028000000200000004000
    0000010010000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000C5142821C514C514E71CE71C4A290000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000008B2D4A294A294A298B2DAD354A294A29000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000004A29E71C00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000E71C00000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000E71C4A2900000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000028214A29000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000E71CE71C0000000000000000000000000000
    0000000000000000000000000000C514C9000000000000000000000000000000
    000000000000000000002821E71C4A29000000000000C514C514C90084108410
    620862086208620862086208C900C514C900000000002C7E2C7EB17E00000000
    00000000000000004A29C5144A290000000000000000C514C514C51484108410
    841084108410841084108410C900C514C90000240024E059C87D2C7E00000000
    000000000000E71CC514000000000000000000000000C514C514C5144A298B2D
    5146AD35AD358B2D4A292901C514E71CC900D65AD65A406E406E2C7E00000000
    000000000000C514AD35000000000000000000000000000000000000AD35C514
    C514C514C5142501C514E71CC5142821C900402400240024A47EA47E00000000
    000000004A29C51400000000000000000000000000000000000000004A29C514
    C514C514C514E71C84108410C5142901C9002821C02400240C7FA47E00000000
    000000004A29E71C00000000000000000000000000000000000000004A29E71C
    C514E71CC514AD35AD354A29C9004A29C900F133F133C024517FC87E00000000
    000000000000E71C000000000000000000004A294A294A294A294A294A29E71C
    2501AD35E71C5146C9008B2DC9004A29C900CE02E71C0024517FC87E00000000
    000000000000E71CE71C0000000000000000C514C900E71CC9004A294A29E71C
    2821104229015146C5148B2DC9004A29C900F623F133C024517FC87E00000000
    0000000000000000C514C514E71CC514E71CC51484102901C9004A298B2D2821
    2901514629011042C514AD35C9004A29C900F623AD350024517FC87E00000000
    0000000000000000000000004A298B2DE71C282184104A29C9004A298B2D8B2D
    4A29734E2901AD35C514AD35C9004A29C900F447F133C024517FC87E00000000
    0000000000000000000000000000000000004A298410F75E8410F75EAD358B2D
    4A29744E2821AD35C5148B2DC9004A29C900D65AEE390024517FA47E00000000
    0000000000000000000000000000000000004A292901290129018B2DAD354A29
    4A29AD352901AD3525018B2DC9004A29C900D65AF133C024517FA47E00000000
    00000000000000000000000000000000000000000000000000000000AD354A29
    4A294A2929018B2DAD35AD35C9004A29C900F447AD3500240C7FA47E00000000
    0000000000000000000000000000000000000000000000000000000010428B2D
    4A294A294A2929012501C514C9004A29C900F133F133C024C87EA47E00000000
    000000000000000000000000000000000000000000000000000000005146AD35
    4A294A294A29282128212501C9002821C9008410C0240024A47E447D00000000
    00000000000000000000000000000000000000000000C514C514C514E71C744E
    744E51461042AD35AD358B2D4A292501C900D65AF75EA47E447DC87D00000000
    00000000000000000000000000000000000000000000C514E71CE71CE71CC514
    C514C514C514C514C514C5148410C514C90000240024406EC87D2C7E00000000
    000000000000000000000000000000000000000000002901290128212821E71C
    C514C514C514C514C514C514C5148410C900000000002C7E2C7E2C7E00000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000008410C9000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFE03FFFFFE01FFFFFFFCFFFFFFFEFFFFFFFCF
    FFFFFF9FFFFFFF3FFF3FFC700031F8F00001F3F00001F3FE0001E7FE0001E7FE
    0001F7C00001F3C00001F8000001FE000001FFC00001FFC00001FFFE0001FFFE
    0001FFFE0001FFF00001FFF00001FFF00031FFFFFF3FFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 8
    Top = 64
    Width = 257
    Height = 73
    BevelInner = bvLowered
    TabOrder = 15
    object SHU: TRadioButton
      Left = 56
      Top = 48
      Width = 57
      Height = 17
      Caption = 'Shuttle'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TabStop = True
    end
    object JOG: TRadioButton
      Left = 144
      Top = 48
      Width = 49
      Height = 17
      Caption = 'Jog'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 144
    Width = 257
    Height = 97
    BevelInner = bvLowered
    TabOrder = 13
  end
  object RadioCTL: TRadioButton
    Tag = 1
    Left = 208
    Top = 8
    Width = 49
    Height = 17
    Caption = 'CTL'
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    TabStop = True
    OnClick = RadioCTLClick
  end
  object RadioTC: TRadioButton
    Tag = 1
    Left = 208
    Top = 32
    Width = 49
    Height = 17
    Caption = 'TC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = RadioTCClick
  end
  object TrackBar1: TTrackBar
    Left = 32
    Top = 72
    Width = 217
    Height = 25
    BorderWidth = 2
    Max = 12
    Orientation = trHorizontal
    PageSize = 1
    Frequency = 1
    Position = 6
    SelEnd = 0
    SelStart = 0
    TabOrder = 3
    TickMarks = tmBottomRight
    TickStyle = tsNone
    OnChange = TrackBar1Change
  end
  object stdby: TBitBtn
    Left = 208
    Top = 200
    Width = 49
    Height = 33
    Caption = 'STDBY'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = stdbyClick
  end
  object rew: TBitBtn
    Left = 16
    Top = 152
    Width = 49
    Height = 33
    Caption = 'REV'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = rewClick
  end
  object play: TBitBtn
    Left = 80
    Top = 152
    Width = 49
    Height = 33
    Caption = 'PLAY'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = playClick
  end
  object ff: TBitBtn
    Left = 208
    Top = 152
    Width = 49
    Height = 33
    Caption = 'FF'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnClick = ffClick
  end
  object still: TBitBtn
    Left = 144
    Top = 152
    Width = 49
    Height = 33
    Caption = 'STILL'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = stillClick
  end
  object StaticText1: TStaticText
    Left = 16
    Top = 96
    Width = 29
    Height = 17
    Caption = 'REV'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
  end
  object StaticText2: TStaticText
    Left = 240
    Top = 96
    Width = 18
    Height = 17
    Caption = 'FF'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
  end
  object eject: TBitBtn
    Left = 16
    Top = 200
    Width = 49
    Height = 33
    Caption = 'EJECT'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = ejectClick
  end
  object rec: TBitBtn
    Left = 144
    Top = 200
    Width = 49
    Height = 33
    Caption = 'REC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
    OnClick = recClick
  end
  object stop: TBitBtn
    Left = 80
    Top = 200
    Width = 49
    Height = 33
    Caption = 'STOP'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
    OnClick = stopClick
  end
  object Panel2: TPanel
    Left = 32
    Top = 8
    Width = 169
    Height = 41
    BevelInner = bvLowered
    Color = clSkyBlue
    TabOrder = 14
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 134
      Height = 29
      Alignment = taCenter
      Caption = '00:00:00:00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 40
    OnTimer = Timer1Timer
  end
end