jdevcapture.dfm

一个不出名的GBA模拟器

object jdevCaptureForm: TjdevCaptureForm
  Left = 580
  Top = 138
  BorderStyle = bsDialog
  Caption = 'Capture Setup'
  ClientHeight = 150
  ClientWidth = 352
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object captureGroup: TGroupBox
    Left = 8
    Top = 0
    Width = 337
    Height = 113
    TabOrder = 0
    object lCaptureFramerateDisplay: TLabel
      Left = 312
      Top = 64
      Width = 3
      Height = 13
      Caption = '-'
    end
    object lFramerate: TLabel
      Left = 171
      Top = 64
      Width = 134
      Height = 13
      Caption = 'Capture Rate (frames / sec):'
    end
    object lToggleCapture: TLabel
      Left = 11
      Top = 64
      Width = 111
      Height = 13
      Caption = 'Hotkey to stop capture:'
    end
    object lFilename: TLabel
      Left = 8
      Top = 16
      Width = 45
      Height = 13
      Caption = 'Filename:'
    end
    object tbFramerate: TTrackBar
      Left = 168
      Top = 80
      Width = 161
      Height = 25
      Hint = 'The number of frames per second to capture'
      Max = 60
      Min = 1
      Orientation = trHorizontal
      Frequency = 5
      Position = 15
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      ThumbLength = 14
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = ChangeFramerate
    end
    object kToggleCapture: TKeyEdit
      Left = 16
      Top = 80
      Width = 145
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 0
      Text = '(none)'
      OnChange = ChangeToggleKey
    end
    object eFilename: TEdit
      Left = 12
      Top = 32
      Width = 277
      Height = 21
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 2
    end
    object eChangeFilename: TButton
      Left = 300
      Top = 32
      Width = 25
      Height = 21
      Caption = '...'
      TabOrder = 3
      OnClick = ChangeFilename
    end
  end
  object bStart: TButton
    Left = 8
    Top = 120
    Width = 81
    Height = 25
    Caption = 'Start Capture'
    Default = True
    TabOrder = 1
    OnClick = StartCapture
  end
  object bStop: TButton
    Left = 96
    Top = 120
    Width = 81
    Height = 25
    Cancel = True
    Caption = 'Stop Capture'
    Enabled = False
    TabOrder = 2
    OnClick = StopCapture
  end
  object bHelp: TButton
    Left = 280
    Top = 120
    Width = 65
    Height = 25
    Caption = 'Help'
    TabOrder = 3
    OnClick = ShowHelp
  end
  object saveDialog: TSaveDialog
    DefaultExt = 'avi'
    Filter = 'AVI Files|*.avi|All Files|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofNoTestFileCreate, ofEnableSizing]
    Left = 248
    Top = 8
  end
end