object FormMegaglasscube: TFormMegaglasscube Left = 198 Top = 107 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Caption = 'Megaglasscube' ClientHeight = 613 ClientWidth = 872 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] OnCreate = FormCreate PixelsPerInch = 168 TextHeight = 24 object GLSceneViewer1: TGLSceneViewer Left = 0 Top = 0 Width = 872 Height = 613 Margins.Left = 5 Margins.Top = 5 Margins.Right = 5 Margins.Bottom = 5 Camera = GLCamera1 Buffer.BackgroundColor = clBlack FieldOfView = 161.469665527343800000 PenAsTouch = False Align = alClient TabOrder = 0 end object GLScene1: TGLScene ObjectsSorting = osNone Left = 8 Top = 8 object DummyCube1: TGLDummyCube ObjectsSorting = osRenderBlendedLast CubeSize = 10.000000000000000000 end object GLLightSource1: TGLLightSource ConstAttenuation = 1.000000000000000000 Position.Coordinates = {0000C842000048420000C8420000803F} LightStyle = lsOmni SpotCutOff = 180.000000000000000000 end object GLCamera1: TGLCamera DepthOfView = 500.000000000000000000 FocalLength = 50.000000000000000000 TargetObject = DummyCube1 Position.Coordinates = {000048420000C8410000C8420000803F} end end object GLCadencer1: TGLCadencer Scene = GLScene1 OnProgress = GLCadencer1Progress Left = 88 Top = 8 end object GLSimpleNavigation1: TGLSimpleNavigation Form = Owner GLSceneViewer = GLSceneViewer1 FormCaption = 'Megaglasscube - %FPS' KeyCombinations = < item ShiftState = [ssLeft, ssRight] Action = snaZoom end item ShiftState = [ssLeft] Action = snaMoveAroundTarget end item ShiftState = [ssRight] Action = snaMoveAroundTarget end> Left = 184 Top = 8 end end