123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119 |
- object Form1: TForm1
- Left = 0
- Top = 0
- Caption = 'Windows Font'
- ClientHeight = 387
- ClientWidth = 531
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Menu = MainMenu1
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object GLSceneViewer1: TGLSceneViewer
- Left = 0
- Top = 0
- Width = 531
- Height = 387
- Camera = GLCamera1
- Buffer.BackgroundColor = clBackground
- FieldOfView = 151.023590087890600000
- Align = alClient
- OnClick = GLSceneViewer1Click
- TabOrder = 0
- end
- object GLScene1: TGLScene
- ObjectsSorting = osNone
- Left = 32
- Top = 72
- object GLLightSource1: TGLLightSource
- ConstAttenuation = 1.000000000000000000
- Position.Coordinates = {0000204100002041000020410000803F}
- SpotCutOff = 180.000000000000000000
- end
- object Teapot1: TGLTeapot
- Material.FrontProperties.Diffuse.Color = {ADAC2C3FAAA9293FF0EF6F3F0000803F}
- Direction.Coordinates = {EE83843E00000000EA46773F00000000}
- Scale.Coordinates = {0000A0400000A0400000A04000000000}
- end
- object HUDText1: TGLHUDText
- Position.Coordinates = {0000A0410000C841000000000000803F}
- BitmapFont = WindowsBitmapFont1
- Text = 'Hello World'
- Rotation = 0.000000000000000000
- end
- object HUDText2: TGLHUDText
- Position.Coordinates = {000016430000AF43000000000000803F}
- BitmapFont = WindowsBitmapFont1
- Text = 'Spin'
- Rotation = 0.000000000000000000
- Alignment = taCenter
- Layout = tlCenter
- end
- object HUDText3: TGLHUDText
- Position.Coordinates = {008009440000AF43000000000000803F}
- BitmapFont = WindowsBitmapFont1
- Text = 'Scale'
- Rotation = 0.000000000000000000
- Alignment = taCenter
- Layout = tlCenter
- end
- object GLCamera1: TGLCamera
- DepthOfView = 100.000000000000000000
- FocalLength = 50.000000000000000000
- TargetObject = Teapot1
- Position.Coordinates = {0000A04000004040000080400000803F}
- Left = 240
- Top = 152
- end
- end
- object GLCadencer1: TGLCadencer
- Scene = GLScene1
- OnProgress = GLCadencer1Progress
- Left = 32
- Top = 128
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 112
- Top = 192
- end
- object WindowsBitmapFont1: TGLWindowsBitmapFont
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -20
- Font.Name = '@Arial Unicode MS'
- Font.Style = [fsBold]
- Left = 32
- Top = 192
- end
- object MainMenu1: TMainMenu
- Left = 112
- Top = 72
- object MIPickFont: TMenuItem
- Caption = 'Pick Font'
- OnClick = MIPickFontClick
- end
- object MIViewTexture: TMenuItem
- Caption = 'View Texture'
- OnClick = MIViewTextureClick
- end
- object MIFPS: TMenuItem
- Caption = 'FPS'
- end
- end
- object FontDialog1: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Left = 112
- Top = 128
- end
- end
|