fMemViewerD.dfm 4.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190
  1. object FormMemViewer: TFormMemViewer
  2. Left = 173
  3. Top = 99
  4. Caption = 'Memory Viewer'
  5. ClientHeight = 381
  6. ClientWidth = 596
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -14
  11. Font.Name = 'Arial'
  12. Font.Style = []
  13. Position = poScreenCenter
  14. OnCreate = FormCreate
  15. PixelsPerInch = 120
  16. TextHeight = 16
  17. object GLSceneViewer1: TGLSceneViewer
  18. Left = 0
  19. Top = 0
  20. Width = 428
  21. Height = 381
  22. Margins.Left = 4
  23. Margins.Top = 4
  24. Margins.Right = 4
  25. Margins.Bottom = 4
  26. Camera = GLCamera1
  27. AfterRender = GLSceneViewer1AfterRender
  28. Buffer.BackgroundColor = clGray
  29. FieldOfView = 103.566101074218800000
  30. PenAsTouch = False
  31. Align = alClient
  32. TabOrder = 0
  33. end
  34. object Panel1: TPanel
  35. Left = 428
  36. Top = 0
  37. Width = 168
  38. Height = 381
  39. Margins.Left = 4
  40. Margins.Top = 4
  41. Margins.Right = 4
  42. Margins.Bottom = 4
  43. Align = alRight
  44. TabOrder = 1
  45. object Label1: TLabel
  46. Left = 55
  47. Top = 10
  48. Width = 75
  49. Height = 24
  50. Margins.Left = 4
  51. Margins.Top = 4
  52. Margins.Right = 4
  53. Margins.Bottom = 4
  54. Caption = 'Options'
  55. Font.Charset = DEFAULT_CHARSET
  56. Font.Color = clWindowText
  57. Font.Height = -20
  58. Font.Name = 'Arial'
  59. Font.Style = [fsBold]
  60. ParentFont = False
  61. end
  62. object Label2: TLabel
  63. Left = 41
  64. Top = 60
  65. Width = 111
  66. Height = 16
  67. Margins.Left = 4
  68. Margins.Top = 4
  69. Margins.Right = 4
  70. Margins.Bottom = 4
  71. Caption = 'Texture framerate'
  72. end
  73. object LabelFPS: TLabel
  74. Left = 50
  75. Top = 300
  76. Width = 27
  77. Height = 16
  78. Margins.Left = 4
  79. Margins.Top = 4
  80. Margins.Right = 4
  81. Margins.Bottom = 4
  82. Caption = 'FPS'
  83. Font.Charset = DEFAULT_CHARSET
  84. Font.Color = clWindowText
  85. Font.Height = -14
  86. Font.Name = 'Arial'
  87. Font.Style = [fsBold]
  88. ParentFont = False
  89. end
  90. object RB1to1: TRadioButton
  91. Tag = 1
  92. Left = 69
  93. Top = 100
  94. Width = 51
  95. Height = 21
  96. Margins.Left = 4
  97. Margins.Top = 4
  98. Margins.Right = 4
  99. Margins.Bottom = 4
  100. Caption = '1:1'
  101. Checked = True
  102. TabOrder = 0
  103. TabStop = True
  104. OnClick = RB1to1Click
  105. end
  106. object RB1to2: TRadioButton
  107. Tag = 2
  108. Left = 69
  109. Top = 140
  110. Width = 51
  111. Height = 21
  112. Margins.Left = 4
  113. Margins.Top = 4
  114. Margins.Right = 4
  115. Margins.Bottom = 4
  116. Caption = '1:2'
  117. TabOrder = 1
  118. OnClick = RB1to1Click
  119. end
  120. object RB1to10: TRadioButton
  121. Tag = 10
  122. Left = 69
  123. Top = 180
  124. Width = 51
  125. Height = 21
  126. Margins.Left = 4
  127. Margins.Top = 4
  128. Margins.Right = 4
  129. Margins.Bottom = 4
  130. Caption = '1:10'
  131. TabOrder = 2
  132. OnClick = RB1to1Click
  133. end
  134. object CheckBox1: TCheckBox
  135. Left = 69
  136. Top = 250
  137. Width = 71
  138. Height = 21
  139. Margins.Left = 4
  140. Margins.Top = 4
  141. Margins.Right = 4
  142. Margins.Bottom = 4
  143. Caption = 'VSync'
  144. TabOrder = 3
  145. OnClick = CheckBox1Click
  146. end
  147. end
  148. object Timer1: TTimer
  149. OnTimer = Timer1Timer
  150. Left = 144
  151. Top = 16
  152. end
  153. object GLScene1: TGLScene
  154. Left = 16
  155. Top = 16
  156. object DummyCube1: TGLDummyCube
  157. CubeSize = 1.000000000000000000
  158. object Cube1: TGLCube
  159. Material.Texture.ImageClassName = 'TGLBlankImage'
  160. Material.Texture.Image.ColorFormat = 6408
  161. Material.Texture.MinFilter = miLinear
  162. Material.Texture.TextureMode = tmModulate
  163. Material.Texture.Disabled = False
  164. end
  165. end
  166. object GLLightSource1: TGLLightSource
  167. ConstAttenuation = 1.000000000000000000
  168. Position.Coordinates = {0000204100002041000020410000803F}
  169. SpotCutOff = 180.000000000000000000
  170. end
  171. object GLCamera1: TGLCamera
  172. DepthOfView = 100.000000000000000000
  173. FocalLength = 150.000000000000000000
  174. TargetObject = DummyCube1
  175. Position.Coordinates = {0000A040000080400000A0400000803F}
  176. end
  177. end
  178. object GLMemoryViewer1: TGLMemoryViewer
  179. Camera = GLCamera1
  180. Buffer.BackgroundColor = clRed
  181. Left = 72
  182. Top = 16
  183. end
  184. object GLCadencer1: TGLCadencer
  185. Scene = GLScene1
  186. OnProgress = GLCadencer1Progress
  187. Left = 192
  188. Top = 16
  189. end
  190. end