fCanvasD.dfm 2.8 KB

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