2
0

Unit1.dfm 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Render To Bitmap'
  5. ClientHeight = 406
  6. ClientWidth = 489
  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. OnCreate = FormCreate
  15. OnResize = FormResize
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object GLSceneViewer1: TGLSceneViewer
  19. Left = 0
  20. Top = 0
  21. Width = 376
  22. Height = 406
  23. Camera = GLCamera1
  24. Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
  25. Buffer.AntiAliasing = aaNone
  26. FieldOfView = 150.213058471679700000
  27. Align = alClient
  28. TabOrder = 0
  29. end
  30. object Panel1: TPanel
  31. Left = 376
  32. Top = 0
  33. Width = 113
  34. Height = 406
  35. Align = alRight
  36. TabOrder = 1
  37. object BUSnapShot: TButton
  38. Left = 8
  39. Top = 40
  40. Width = 97
  41. Height = 25
  42. Caption = 'Buffer SnapShot'
  43. TabOrder = 0
  44. OnClick = BUSnapShotClick
  45. end
  46. object BURenderToBitmap: TButton
  47. Left = 8
  48. Top = 72
  49. Width = 97
  50. Height = 25
  51. Caption = 'Render To Bitmap'
  52. TabOrder = 1
  53. OnClick = BURenderToBitmapClick
  54. end
  55. object BUBitmapx2: TButton
  56. Left = 8
  57. Top = 120
  58. Width = 97
  59. Height = 25
  60. Caption = 'Bitmap x2'
  61. TabOrder = 2
  62. OnClick = BUBitmapx2Click
  63. end
  64. object BUBitmap600: TButton
  65. Left = 8
  66. Top = 200
  67. Width = 97
  68. Height = 25
  69. Caption = 'Bitmap 600 dpi'
  70. TabOrder = 3
  71. OnClick = BUBitmap600Click
  72. end
  73. object BUBitmap300: TButton
  74. Left = 8
  75. Top = 160
  76. Width = 97
  77. Height = 25
  78. Caption = 'Bitmap 300 dpi'
  79. TabOrder = 4
  80. OnClick = BUBitmap300Click
  81. end
  82. object BUViewerSnapShot: TButton
  83. Left = 8
  84. Top = 8
  85. Width = 97
  86. Height = 25
  87. Caption = 'Viewer SnapShot'
  88. TabOrder = 5
  89. OnClick = BUViewerSnapShotClick
  90. end
  91. end
  92. object GLScene1: TGLScene
  93. Left = 16
  94. Top = 16
  95. object GLLightSource1: TGLLightSource
  96. ConstAttenuation = 1.000000000000000000
  97. Position.Coordinates = {0000B4420000B442000048420000803F}
  98. Specular.Color = {B072083FB072083FB072083F0000803F}
  99. SpotCutOff = 180.000000000000000000
  100. end
  101. object HUDSprite1: TGLHUDSprite
  102. Material.Texture.MinFilter = miLinear
  103. Material.Texture.Disabled = False
  104. Rotation = 0.000000000000000000
  105. end
  106. object Plane1: TGLPlane
  107. Material.Texture.MinFilter = miLinear
  108. Material.Texture.TextureMode = tmReplace
  109. Material.Texture.Disabled = False
  110. Direction.Coordinates = {000000000000803F0000000000000000}
  111. Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
  112. Height = 6.000000000000000000
  113. Width = 6.000000000000000000
  114. object SpaceText1: TGLSpaceText
  115. Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F}
  116. Material.FrontProperties.Specular.Color = {FA7EAA3EFA7EAA3E000000000000803F}
  117. Position.Coordinates = {000020C000000000CDCC4C3D0000803F}
  118. Up.Coordinates = {0000803F000000800000000000000000}
  119. Extrusion = 0.050000000745058060
  120. Font.Charset = DEFAULT_CHARSET
  121. Font.Color = clWindowText
  122. Font.Height = -8
  123. Font.Name = 'Arial'
  124. Font.Style = []
  125. Lines.Strings = (
  126. 'Render to Bitmap')
  127. allowedDeviation = 1.000000000000000000
  128. CharacterRange = stcrAlphaNum
  129. AspectRatio = 1.299999952316284000
  130. TextHeight = 0.400000005960464500
  131. Adjust.Horz = haCenter
  132. Adjust.Vert = vaCenter
  133. end
  134. end
  135. object Sphere1: TGLSphere
  136. Material.FrontProperties.Diffuse.Color = {9A99393F9A99393F0000803F0000803F}
  137. Material.Texture.MinFilter = miLinear
  138. Material.Texture.TextureMode = tmModulate
  139. Material.Texture.MappingMode = tmmSphere
  140. Material.Texture.Disabled = False
  141. OnProgress = Sphere1Progress
  142. Radius = 1.000000000000000000
  143. Slices = 24
  144. end
  145. object DummyCube1: TGLDummyCube
  146. Position.Coordinates = {0000000000000040000000000000803F}
  147. CubeSize = 1.000000000000000000
  148. end
  149. object GLCamera1: TGLCamera
  150. DepthOfView = 100.000000000000000000
  151. FocalLength = 50.000000000000000000
  152. TargetObject = DummyCube1
  153. Position.Coordinates = {0000E0400000C040000000410000803F}
  154. end
  155. end
  156. object GLCadencer1: TGLCadencer
  157. Scene = GLScene1
  158. Left = 88
  159. Top = 16
  160. end
  161. end