Unit1.dfm 3.2 KB

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