Unit1.dfm 3.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Windows Font'
  5. ClientHeight = 387
  6. ClientWidth = 531
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. Menu = MainMenu1
  14. OldCreateOrder = False
  15. OnCreate = FormCreate
  16. PixelsPerInch = 96
  17. TextHeight = 13
  18. object GLSceneViewer1: TGLSceneViewer
  19. Left = 0
  20. Top = 0
  21. Width = 531
  22. Height = 387
  23. Camera = GLCamera1
  24. Buffer.BackgroundColor = clBackground
  25. FieldOfView = 151.023590087890600000
  26. Align = alClient
  27. OnClick = GLSceneViewer1Click
  28. TabOrder = 0
  29. end
  30. object GLScene1: TGLScene
  31. ObjectsSorting = osNone
  32. Left = 32
  33. Top = 72
  34. object GLLightSource1: TGLLightSource
  35. ConstAttenuation = 1.000000000000000000
  36. Position.Coordinates = {0000204100002041000020410000803F}
  37. SpotCutOff = 180.000000000000000000
  38. end
  39. object Teapot1: TGLTeapot
  40. Material.FrontProperties.Diffuse.Color = {ADAC2C3FAAA9293FF0EF6F3F0000803F}
  41. Direction.Coordinates = {EE83843E00000000EA46773F00000000}
  42. Scale.Coordinates = {0000A0400000A0400000A04000000000}
  43. end
  44. object HUDText1: TGLHUDText
  45. Position.Coordinates = {0000A0410000C841000000000000803F}
  46. BitmapFont = WindowsBitmapFont1
  47. Text = 'Hello World'
  48. Rotation = 0.000000000000000000
  49. end
  50. object HUDText2: TGLHUDText
  51. Position.Coordinates = {000016430000AF43000000000000803F}
  52. BitmapFont = WindowsBitmapFont1
  53. Text = 'Spin'
  54. Rotation = 0.000000000000000000
  55. Alignment = taCenter
  56. Layout = tlCenter
  57. end
  58. object HUDText3: TGLHUDText
  59. Position.Coordinates = {008009440000AF43000000000000803F}
  60. BitmapFont = WindowsBitmapFont1
  61. Text = 'Scale'
  62. Rotation = 0.000000000000000000
  63. Alignment = taCenter
  64. Layout = tlCenter
  65. end
  66. object GLCamera1: TGLCamera
  67. DepthOfView = 100.000000000000000000
  68. FocalLength = 50.000000000000000000
  69. TargetObject = Teapot1
  70. Position.Coordinates = {0000A04000004040000080400000803F}
  71. Left = 240
  72. Top = 152
  73. end
  74. end
  75. object GLCadencer1: TGLCadencer
  76. Scene = GLScene1
  77. OnProgress = GLCadencer1Progress
  78. Left = 32
  79. Top = 128
  80. end
  81. object Timer1: TTimer
  82. OnTimer = Timer1Timer
  83. Left = 112
  84. Top = 192
  85. end
  86. object WindowsBitmapFont1: TGLWindowsBitmapFont
  87. Font.Charset = DEFAULT_CHARSET
  88. Font.Color = clWhite
  89. Font.Height = -20
  90. Font.Name = '@Arial Unicode MS'
  91. Font.Style = [fsBold]
  92. Left = 32
  93. Top = 192
  94. end
  95. object MainMenu1: TMainMenu
  96. Left = 112
  97. Top = 72
  98. object MIPickFont: TMenuItem
  99. Caption = 'Pick Font'
  100. OnClick = MIPickFontClick
  101. end
  102. object MIViewTexture: TMenuItem
  103. Caption = 'View Texture'
  104. OnClick = MIViewTextureClick
  105. end
  106. object MIFPS: TMenuItem
  107. Caption = 'FPS'
  108. end
  109. end
  110. object FontDialog1: TFontDialog
  111. Font.Charset = DEFAULT_CHARSET
  112. Font.Color = clWindowText
  113. Font.Height = -11
  114. Font.Name = 'MS Sans Serif'
  115. Font.Style = []
  116. Left = 112
  117. Top = 128
  118. end
  119. end