fGameMenuD.dfm 2.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122
  1. object FormGameMenu: TFormGameMenu
  2. Left = 192
  3. Top = 114
  4. Caption = 'Game Menu'
  5. ClientHeight = 561
  6. ClientWidth = 698
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -14
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. Position = poScreenCenter
  14. OnCreate = FormCreate
  15. OnKeyPress = FormKeyPress
  16. PixelsPerInch = 120
  17. TextHeight = 16
  18. object GLSceneViewer1: TGLSceneViewer
  19. Left = 0
  20. Top = 0
  21. Width = 698
  22. Height = 528
  23. Margins.Left = 4
  24. Margins.Top = 4
  25. Margins.Right = 4
  26. Margins.Bottom = 4
  27. Camera = GLCamera1
  28. Buffer.BackgroundColor = clGray
  29. FieldOfView = 158.551101684570300000
  30. PenAsTouch = False
  31. Align = alClient
  32. OnMouseDown = GLSceneViewer1MouseDown
  33. OnMouseMove = GLSceneViewer1MouseMove
  34. TabOrder = 0
  35. end
  36. object MainPanel: TPanel
  37. Left = 0
  38. Top = 528
  39. Width = 698
  40. Height = 33
  41. Margins.Left = 4
  42. Margins.Top = 4
  43. Margins.Right = 4
  44. Margins.Bottom = 4
  45. Align = alBottom
  46. TabOrder = 1
  47. OnResize = MainPanelResize
  48. object Label1: TLabel
  49. Left = 180
  50. Top = 8
  51. Width = 282
  52. Height = 16
  53. Margins.Left = 4
  54. Margins.Top = 4
  55. Margins.Right = 4
  56. Margins.Bottom = 4
  57. Caption = 'Press "W" or "S" to navigate or "Enter" to select '
  58. end
  59. object ShowTitleCheckbox: TCheckBox
  60. Left = 10
  61. Top = 8
  62. Width = 101
  63. Height = 21
  64. Margins.Left = 4
  65. Margins.Top = 4
  66. Margins.Right = 4
  67. Margins.Bottom = 4
  68. Caption = 'Show Title'
  69. Checked = True
  70. State = cbChecked
  71. TabOrder = 0
  72. OnClick = ShowTitleCheckboxClick
  73. OnKeyPress = FormKeyPress
  74. end
  75. end
  76. object GLScene1: TGLScene
  77. Left = 40
  78. Top = 8
  79. object GLDummyCube1: TGLDummyCube
  80. CubeSize = 1.000000000000000000
  81. object GLCube1: TGLCube
  82. Position.Coordinates = {0000803F00000000000000000000803F}
  83. end
  84. end
  85. object GLCamera1: TGLCamera
  86. DepthOfView = 100.000000000000000000
  87. FocalLength = 50.000000000000000000
  88. TargetObject = GLDummyCube1
  89. Position.Coordinates = {0000404000004040000040400000803F}
  90. object GLLightSource1: TGLLightSource
  91. ConstAttenuation = 1.000000000000000000
  92. Position.Coordinates = {0000204100002041000020410000803F}
  93. SpotCutOff = 180.000000000000000000
  94. end
  95. end
  96. end
  97. object GLWindowsBitmapFont1: TGLWindowsBitmapFont
  98. Font.Charset = DEFAULT_CHARSET
  99. Font.Color = clWhite
  100. Font.Height = -32
  101. Font.Name = 'MS Sans Serif'
  102. Font.Style = []
  103. Left = 128
  104. Top = 8
  105. end
  106. object GLCadencer1: TGLCadencer
  107. Scene = GLScene1
  108. OnProgress = GLCadencer1Progress
  109. Left = 40
  110. Top = 72
  111. end
  112. object GLMaterialLibrary1: TGLMaterialLibrary
  113. Materials = <
  114. item
  115. Name = 'LibMaterial'
  116. Tag = 0
  117. Material.Texture.Disabled = False
  118. end>
  119. Left = 128
  120. Top = 72
  121. end
  122. end