Unit1.dfm 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475
  1. object Form1: TForm1
  2. Left = 209
  3. Top = 108
  4. Caption = 'Key Map'
  5. ClientHeight = 128
  6. ClientWidth = 286
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. FormStyle = fsStayOnTop
  14. OldCreateOrder = False
  15. OnCreate = FormCreate
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object Label1: TLabel
  19. Left = 8
  20. Top = 32
  21. Width = 265
  22. Height = 13
  23. Alignment = taCenter
  24. AutoSize = False
  25. Caption = 'Type key to map to this panel...'
  26. end
  27. object Label2: TLabel
  28. Left = 8
  29. Top = 8
  30. Width = 265
  31. Height = 13
  32. Alignment = taCenter
  33. AutoSize = False
  34. Caption = 'Click a panel to choose the key'
  35. Font.Charset = ANSI_CHARSET
  36. Font.Color = clWindowText
  37. Font.Height = -12
  38. Font.Name = 'Arial'
  39. Font.Style = [fsItalic]
  40. ParentFont = False
  41. end
  42. object PAUp: TPanel
  43. Left = 88
  44. Top = 64
  45. Width = 105
  46. Height = 25
  47. Caption = 'MBUTTON'
  48. TabOrder = 0
  49. OnClick = PAUpClick
  50. end
  51. object PALeft: TPanel
  52. Left = 8
  53. Top = 96
  54. Width = 97
  55. Height = 25
  56. Caption = 'LBUTTON'
  57. TabOrder = 1
  58. OnClick = PAUpClick
  59. end
  60. object PARight: TPanel
  61. Left = 176
  62. Top = 96
  63. Width = 97
  64. Height = 25
  65. Caption = 'RBUTTON'
  66. TabOrder = 2
  67. OnClick = PAUpClick
  68. end
  69. object Timer1: TTimer
  70. Interval = 50
  71. OnTimer = Timer1Timer
  72. Left = 8
  73. Top = 56
  74. end
  75. end