fCanvasC.dfm 4.4 KB

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