fCanvasD.dfm 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204
  1. object FormCanvas: TFormCanvas
  2. Left = 151
  3. Top = 105
  4. Margins.Left = 5
  5. Margins.Top = 5
  6. Margins.Right = 5
  7. Margins.Bottom = 5
  8. BorderStyle = bsSizeToolWin
  9. Caption = 'GLCanvas vs GDI'
  10. ClientHeight = 592
  11. ClientWidth = 950
  12. Color = clBtnFace
  13. Font.Charset = DEFAULT_CHARSET
  14. Font.Color = clWindowText
  15. Font.Height = -19
  16. Font.Name = 'MS Sans Serif'
  17. Font.Style = []
  18. Position = poScreenCenter
  19. PixelsPerInch = 168
  20. TextHeight = 24
  21. object PaintBox: TPaintBox
  22. Left = 476
  23. Top = 114
  24. Width = 448
  25. Height = 448
  26. Margins.Left = 5
  27. Margins.Top = 5
  28. Margins.Right = 5
  29. Margins.Bottom = 5
  30. end
  31. object lbGLCanvas: TLabel
  32. Left = 14
  33. Top = 81
  34. Width = 128
  35. Height = 24
  36. Margins.Left = 5
  37. Margins.Top = 5
  38. Margins.Right = 5
  39. Margins.Bottom = 5
  40. Caption = 'GLCanvas: N/A'
  41. end
  42. object lbGDI: TLabel
  43. Left = 476
  44. Top = 79
  45. Width = 73
  46. Height = 24
  47. Margins.Left = 5
  48. Margins.Top = 5
  49. Margins.Right = 5
  50. Margins.Bottom = 5
  51. Caption = 'GDI: N/A'
  52. end
  53. object Bevel1: TBevel
  54. Left = 467
  55. Top = 84
  56. Width = 4
  57. Height = 478
  58. Margins.Left = 5
  59. Margins.Top = 5
  60. Margins.Right = 5
  61. Margins.Bottom = 5
  62. end
  63. object BULines: TButton
  64. Left = 14
  65. Top = 14
  66. Width = 128
  67. Height = 44
  68. Margins.Left = 5
  69. Margins.Top = 5
  70. Margins.Right = 5
  71. Margins.Bottom = 5
  72. Caption = '20k Lines'
  73. TabOrder = 0
  74. OnClick = BULinesClick
  75. end
  76. object BUEllipses: TButton
  77. Left = 154
  78. Top = 14
  79. Width = 128
  80. Height = 44
  81. Margins.Left = 5
  82. Margins.Top = 5
  83. Margins.Right = 5
  84. Margins.Bottom = 5
  85. Caption = '20k Ellipses'
  86. TabOrder = 1
  87. OnClick = BUEllipsesClick
  88. end
  89. object GLSceneViewer: TGLSceneViewer
  90. Left = 18
  91. Top = 114
  92. Width = 448
  93. Height = 448
  94. Margins.Left = 5
  95. Margins.Top = 5
  96. Margins.Right = 5
  97. Margins.Bottom = 5
  98. Camera = GLCamera1
  99. Buffer.Lighting = False
  100. FieldOfView = 154.834075927734400000
  101. PenAsTouch = False
  102. TabOrder = 2
  103. end
  104. object RBPenWidth1: TRadioButton
  105. Left = 756
  106. Top = 14
  107. Width = 156
  108. Height = 30
  109. Margins.Left = 5
  110. Margins.Top = 5
  111. Margins.Right = 5
  112. Margins.Bottom = 5
  113. Caption = 'Pen Width = 1'
  114. Checked = True
  115. TabOrder = 3
  116. TabStop = True
  117. end
  118. object RBPenWidth2: TRadioButton
  119. Left = 756
  120. Top = 42
  121. Width = 156
  122. Height = 30
  123. Margins.Left = 5
  124. Margins.Top = 5
  125. Margins.Right = 5
  126. Margins.Bottom = 5
  127. Caption = 'Pen Width = 2'
  128. TabOrder = 4
  129. end
  130. object BUArc: TButton
  131. Left = 294
  132. Top = 61
  133. Width = 128
  134. Height = 44
  135. Margins.Left = 5
  136. Margins.Top = 5
  137. Margins.Right = 5
  138. Margins.Bottom = 5
  139. Caption = '20k Arcs'
  140. TabOrder = 8
  141. OnClick = BUArcClick
  142. end
  143. object BUPoints: TButton
  144. Left = 434
  145. Top = 14
  146. Width = 128
  147. Height = 44
  148. Margins.Left = 5
  149. Margins.Top = 5
  150. Margins.Right = 5
  151. Margins.Bottom = 5
  152. Caption = '200k Points'
  153. TabOrder = 5
  154. OnClick = BUPointsClick
  155. end
  156. object BURects: TButton
  157. Left = 294
  158. Top = 14
  159. Width = 128
  160. Height = 44
  161. Margins.Left = 5
  162. Margins.Top = 5
  163. Margins.Right = 5
  164. Margins.Bottom = 5
  165. Caption = '20k Rects'
  166. TabOrder = 6
  167. OnClick = BURectsClick
  168. end
  169. object BUTextOut: TButton
  170. Left = 572
  171. Top = 14
  172. Width = 128
  173. Height = 44
  174. Margins.Left = 5
  175. Margins.Top = 5
  176. Margins.Right = 5
  177. Margins.Bottom = 5
  178. Caption = '20k TextOut'
  179. TabOrder = 7
  180. OnClick = BUTextOutClick
  181. end
  182. object GLScene1: TGLScene
  183. Left = 16
  184. Top = 72
  185. object GLDirectOpenGL1: TGLDirectOpenGL
  186. UseBuildList = False
  187. OnRender = GLDirectOpenGL1Render
  188. Blend = False
  189. end
  190. object GLCamera1: TGLCamera
  191. DepthOfView = 100.000000000000000000
  192. FocalLength = 50.000000000000000000
  193. end
  194. end
  195. object WindowsBitmapFont: TGLWindowsBitmapFont
  196. Font.Charset = DEFAULT_CHARSET
  197. Font.Color = clWhite
  198. Font.Height = -11
  199. Font.Name = 'Arial'
  200. Font.Style = []
  201. Left = 96
  202. Top = 72
  203. end
  204. end