fTobitmapD.dfm 4.5 KB

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