123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Render To Bitmap'
- ClientHeight = 406
- ClientWidth = 489
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 0
- Width = 376
- Height = 406
- Camera = GLCamera1
- Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow]
- Buffer.AntiAliasing = aaNone
- FieldOfView = 150.213058471679700000
- Align = alClient
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 376
- Top = 0
- Width = 113
- Height = 406
- Align = alRight
- TabOrder = 1
- object BUSnapShot: TButton
- Left = 8
- Top = 40
- Width = 97
- Height = 25
- Caption = 'Buffer SnapShot'
- TabOrder = 0
- OnClick = BUSnapShotClick
- end
- object BURenderToBitmap: TButton
- Left = 8
- Top = 72
- Width = 97
- Height = 25
- Caption = 'Render To Bitmap'
- TabOrder = 1
- OnClick = BURenderToBitmapClick
- end
- object BUBitmapx2: TButton
- Left = 8
- Top = 120
- Width = 97
- Height = 25
- Caption = 'Bitmap x2'
- TabOrder = 2
- OnClick = BUBitmapx2Click
- end
- object BUBitmap600: TButton
- Left = 8
- Top = 200
- Width = 97
- Height = 25
- Caption = 'Bitmap 600 dpi'
- TabOrder = 3
- OnClick = BUBitmap600Click
- end
- object BUBitmap300: TButton
- Left = 8
- Top = 160
- Width = 97
- Height = 25
- Caption = 'Bitmap 300 dpi'
- TabOrder = 4
- OnClick = BUBitmap300Click
- end
- object BUViewerSnapShot: TButton
- Left = 8
- Top = 8
- Width = 97
- Height = 25
- Caption = 'Viewer SnapShot'
- TabOrder = 5
- OnClick = BUViewerSnapShotClick
- end
- end
- object GLScene1: TGLScene
- Left = 16
- Top = 16
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000B4420000B442000048420000803F}
- Specular.Color = {B072083FB072083FB072083F0000803F}
- SpotCutOff = 180.000000000000000000
- end
- object HUDSprite1: TGLHUDSprite
- Material.Texture.MinFilter = miLinear
- Material.Texture.Disabled = False
- Rotation = 0.000000000000000000
- end
- object Plane1: TGLPlane
- Material.Texture.MinFilter = miLinear
- Material.Texture.TextureMode = tmReplace
- Material.Texture.Disabled = False
- Direction.Coordinates = {000000000000803F0000000000000000}
- Up.Coordinates = {E9DC72BF000000009BE8A13E00000000}
- Height = 6.000000000000000000
- Width = 6.000000000000000000
- object SpaceText1: TGLSpaceText
- Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F}
- Material.FrontProperties.Specular.Color = {FA7EAA3EFA7EAA3E000000000000803F}
- Position.Coordinates = {000020C000000000CDCC4C3D0000803F}
- Up.Coordinates = {0000803F000000800000000000000000}
- Extrusion = 0.050000000745058060
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -8
- Font.Name = 'Arial'
- Font.Style = []
- Lines.Strings = (
- 'Render to Bitmap')
- allowedDeviation = 1.000000000000000000
- CharacterRange = stcrAlphaNum
- AspectRatio = 1.299999952316284000
- TextHeight = 0.400000005960464500
- Adjust.Horz = haCenter
- Adjust.Vert = vaCenter
- end
- end
- object Sphere1: TGLSphere
- Material.FrontProperties.Diffuse.Color = {9A99393F9A99393F0000803F0000803F}
- Material.Texture.MinFilter = miLinear
- Material.Texture.TextureMode = tmModulate
- Material.Texture.MappingMode = tmmSphere
- Material.Texture.Disabled = False
- OnProgress = Sphere1Progress
- Radius = 1.000000000000000000
- Slices = 24
- end
- object DummyCube1: TGLDummyCube
- Position.Coordinates = {0000000000000040000000000000803F}
- CubeSize = 1.000000000000000000
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- TargetObject = DummyCube1
- Position.Coordinates = {0000E0400000C040000000410000803F}
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- Left = 88
- Top = 16
- end
- end
|