fToBitmapC.dfm 4.4 KB

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