fCanvasC.dfm 3.0 KB

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