| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122 |
- object FormGameMenu: TFormGameMenu
- Left = 192
- Top = 114
- Caption = 'Game Menu'
- ClientHeight = 561
- ClientWidth = 698
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- PixelsPerInch = 120
- TextHeight = 16
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 0
- Width = 698
- Height = 528
- Margins.Left = 4
- Margins.Top = 4
- Margins.Right = 4
- Margins.Bottom = 4
- Camera = GLCamera1
- Buffer.BackgroundColor = clGray
- FieldOfView = 158.551101684570300000
- PenAsTouch = False
- Align = alClient
- OnMouseDown = GLSceneViewer1MouseDown
- OnMouseMove = GLSceneViewer1MouseMove
- TabOrder = 0
- end
- object MainPanel: TPanel
- Left = 0
- Top = 528
- Width = 698
- Height = 33
- Margins.Left = 4
- Margins.Top = 4
- Margins.Right = 4
- Margins.Bottom = 4
- Align = alBottom
- TabOrder = 1
- OnResize = MainPanelResize
- object Label1: TLabel
- Left = 180
- Top = 8
- Width = 282
- Height = 16
- Margins.Left = 4
- Margins.Top = 4
- Margins.Right = 4
- Margins.Bottom = 4
- Caption = 'Press "W" or "S" to navigate or "Enter" to select '
- end
- object ShowTitleCheckbox: TCheckBox
- Left = 10
- Top = 8
- Width = 101
- Height = 21
- Margins.Left = 4
- Margins.Top = 4
- Margins.Right = 4
- Margins.Bottom = 4
- Caption = 'Show Title'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = ShowTitleCheckboxClick
- OnKeyPress = FormKeyPress
- end
- end
- object GLScene1: TGLScene
- Left = 40
- Top = 8
- object GLDummyCube1: TGLDummyCube
- CubeSize = 1.000000000000000000
- object GLCube1: TGLCube
- Position.Coordinates = {0000803F00000000000000000000803F}
- end
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- TargetObject = GLDummyCube1
- Position.Coordinates = {0000404000004040000040400000803F}
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000204100002041000020410000803F}
- SpotCutOff = 180.000000000000000000
- end
- end
- end
- object GLWindowsBitmapFont1: TGLWindowsBitmapFont
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -32
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Left = 128
- Top = 8
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 40
- Top = 72
- end
- object GLMaterialLibrary1: TGLMaterialLibrary
- Materials = <
- item
- Name = 'LibMaterial'
- Tag = 0
- Material.Texture.Disabled = False
- end>
- Left = 128
- Top = 72
- end
- end
|