joypadoptions.dfm

一个不出名的GBA模拟器

object JoypadOptionsDialog: TJoypadOptionsDialog
  Left = 484
  Top = 170
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Joypad Options'
  ClientHeight = 281
  ClientWidth = 258
  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
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object keyBindingsGroup: TGroupBox
    Left = 8
    Top = 8
    Width = 241
    Height = 265
    Caption = ' Key Bindings '
    TabOrder = 0
    object lLeft: TLabel
      Left = 8
      Top = 19
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'DPad Left'
    end
    object lRight: TLabel
      Left = 8
      Top = 43
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'DPad Right'
    end
    object lUp: TLabel
      Left = 8
      Top = 67
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'DPad Up'
    end
    object lDown: TLabel
      Left = 8
      Top = 91
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'DPad Down'
    end
    object lStart: TLabel
      Left = 8
      Top = 115
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Start Button'
    end
    object lSelect: TLabel
      Left = 8
      Top = 139
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Select Button'
    end
    object lA: TLabel
      Left = 8
      Top = 163
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'A Button'
    end
    object lB: TLabel
      Left = 8
      Top = 187
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'B Button'
    end
    object lLeftS: TLabel
      Left = 8
      Top = 211
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Left Shoulder'
    end
    object lRightS: TLabel
      Left = 8
      Top = 235
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Right Shoulder'
    end
    object kLeft: TKeyEdit
      Left = 96
      Top = 16
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 0
      Text = '(none)'
      OnChange = changeKeys
    end
    object kRight: TKeyEdit
      Left = 96
      Top = 40
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 1
      Text = '(none)'
      OnChange = changeKeys
    end
    object kUp: TKeyEdit
      Left = 96
      Top = 64
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 2
      Text = '(none)'
      OnChange = changeKeys
    end
    object kDown: TKeyEdit
      Left = 96
      Top = 88
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 3
      Text = '(none)'
      OnChange = changeKeys
    end
    object kStart: TKeyEdit
      Left = 96
      Top = 112
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 4
      Text = '(none)'
      OnChange = changeKeys
    end
    object kSelect: TKeyEdit
      Left = 96
      Top = 136
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 5
      Text = '(none)'
      OnChange = changeKeys
    end
    object kA: TKeyEdit
      Left = 96
      Top = 160
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 6
      Text = '(none)'
      OnChange = changeKeys
    end
    object kB: TKeyEdit
      Left = 96
      Top = 184
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 7
      Text = '(none)'
      OnChange = changeKeys
    end
    object kLeftS: TKeyEdit
      Left = 96
      Top = 208
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 8
      Text = '(none)'
      OnChange = changeKeys
    end
    object kRightS: TKeyEdit
      Left = 96
      Top = 232
      Width = 137
      Height = 21
      VirtualKeyCode = -1
      ExtendedKey = False
      TabOrder = 9
      Text = '(none)'
      OnChange = changeKeys
    end
  end
end