fCanvasC.dfm 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153
  1. object FormCanvas: TFormCanvas
  2. Left = 0
  3. Top = 0
  4. Caption = 'Canvas'
  5. ClientHeight = 367
  6. ClientWidth = 558
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. TextHeight = 13
  14. object Bevel1: TBevel
  15. Left = 270
  16. Top = 67
  17. Width = 2
  18. Height = 273
  19. end
  20. object PaintBox: TPaintBox
  21. Left = 278
  22. Top = 71
  23. Width = 256
  24. Height = 256
  25. end
  26. object GLSceneViewer: TGLSceneViewer
  27. Left = 8
  28. Top = 71
  29. Width = 256
  30. Height = 256
  31. Camera = GLCamera1
  32. Buffer.Lighting = False
  33. FieldOfView = 137.326278686523400000
  34. PenAsTouch = False
  35. TabOrder = 0
  36. end
  37. object Panel1: TPanel
  38. Left = 0
  39. Top = 0
  40. Width = 558
  41. Height = 65
  42. Align = alTop
  43. TabOrder = 1
  44. object LAGLCanvas: TLabel
  45. Left = 8
  46. Top = 48
  47. Width = 73
  48. Height = 13
  49. Caption = 'GLCanvas: N/A'
  50. end
  51. object LAGDI: TLabel
  52. Left = 272
  53. Top = 48
  54. Width = 43
  55. Height = 13
  56. Caption = 'GDI: N/A'
  57. end
  58. object BULines: TButton
  59. Left = 8
  60. Top = 8
  61. Width = 73
  62. Height = 25
  63. Caption = '20k Lines'
  64. TabOrder = 0
  65. OnClick = BULinesClick
  66. end
  67. object BUEllipses: TButton
  68. Left = 88
  69. Top = 8
  70. Width = 73
  71. Height = 25
  72. Caption = '20k Ellipses'
  73. TabOrder = 1
  74. OnClick = BUEllipsesClick
  75. end
  76. object BURects: TButton
  77. Left = 168
  78. Top = 8
  79. Width = 73
  80. Height = 25
  81. Caption = '20k Rects'
  82. TabOrder = 2
  83. OnClick = BURectsClick
  84. end
  85. object BUArc: TButton
  86. Left = 168
  87. Top = 35
  88. Width = 73
  89. Height = 25
  90. Caption = '20k Arcs'
  91. TabOrder = 3
  92. OnClick = BUArcClick
  93. end
  94. object BUPoints: TButton
  95. Left = 248
  96. Top = 8
  97. Width = 73
  98. Height = 25
  99. Caption = '200k Points'
  100. TabOrder = 4
  101. OnClick = BUPointsClick
  102. end
  103. object BUTextOut: TButton
  104. Left = 328
  105. Top = 8
  106. Width = 73
  107. Height = 25
  108. Caption = '20k TextOut'
  109. TabOrder = 5
  110. OnClick = BUTextOutClick
  111. end
  112. object RBPenWidth1: TRadioButton
  113. Left = 432
  114. Top = 8
  115. Width = 89
  116. Height = 17
  117. Caption = 'Pen Width = 1'
  118. Checked = True
  119. TabOrder = 6
  120. TabStop = True
  121. end
  122. object RBPenWidth2: TRadioButton
  123. Left = 432
  124. Top = 24
  125. Width = 89
  126. Height = 17
  127. Caption = 'Pen Width = 2'
  128. TabOrder = 7
  129. end
  130. end
  131. object GLScene1: TGLScene
  132. Left = 48
  133. Top = 88
  134. object GLDirectOpenGL1: TGLDirectOpenGL
  135. UseBuildList = False
  136. OnRender = GLDirectOpenGL1Render
  137. Blend = False
  138. end
  139. object GLCamera1: TGLCamera
  140. DepthOfView = 100.000000000000000000
  141. FocalLength = 50.000000000000000000
  142. end
  143. end
  144. object WindowsBitmapFont: TGLWindowsBitmapFont
  145. Font.Charset = DEFAULT_CHARSET
  146. Font.Color = clWhite
  147. Font.Height = -11
  148. Font.Name = 'Arial'
  149. Font.Style = []
  150. Left = 136
  151. Top = 88
  152. end
  153. end