Unit1.dfm 2.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Manual'
  5. ClientHeight = 356
  6. ClientWidth = 449
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'Tahoma'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. OnResize = FormResize
  15. DesignSize = (
  16. 449
  17. 356)
  18. PixelsPerInch = 96
  19. TextHeight = 13
  20. object GLSceneViewer1: TGLSceneViewer
  21. Left = 0
  22. Top = 0
  23. Width = 449
  24. Height = 331
  25. Camera = GLCamera1
  26. Buffer.BackgroundColor = clSilver
  27. FieldOfView = 117.716773986816400000
  28. Align = alClient
  29. TabOrder = 0
  30. end
  31. object TrackBar: TTrackBar
  32. Left = 0
  33. Top = 331
  34. Width = 449
  35. Height = 25
  36. Align = alBottom
  37. Max = 360
  38. PageSize = 10
  39. Frequency = 10
  40. TabOrder = 1
  41. ThumbLength = 15
  42. OnChange = TrackBarChange
  43. ExplicitTop = 274
  44. end
  45. object CBPlay: TCheckBox
  46. Left = 6
  47. Top = 277
  48. Width = 41
  49. Height = 17
  50. Anchors = [akLeft, akBottom]
  51. Caption = 'Play'
  52. Checked = True
  53. State = cbChecked
  54. TabOrder = 2
  55. end
  56. object StaticText1: TStaticText
  57. Left = 16
  58. Top = 16
  59. Width = 40
  60. Height = 17
  61. BorderStyle = sbsSingle
  62. Caption = '??? FPS'
  63. TabOrder = 3
  64. end
  65. object GLScene1: TGLScene
  66. Left = 16
  67. Top = 48
  68. object Cube1: TGLCube
  69. Material.FrontProperties.Ambient.Color = {0000000000000000000000000000803F}
  70. Material.FrontProperties.Diffuse.Color = {0000000000000000000000000000803F}
  71. Material.FrontProperties.Emission.Color = {0000803F0000803F000000000000803F}
  72. end
  73. object Cube2: TGLCube
  74. Material.FrontProperties.Diffuse.Color = {8786063F8786063F0000803F0000803F}
  75. Material.FrontProperties.Emission.Color = {0000000000000000A1A0203F0000803F}
  76. Position.Coordinates = {0000404000000000000000000000803F}
  77. CubeSize = {0000003F0000003F0000003F}
  78. end
  79. object Cube3: TGLCube
  80. Position.Coordinates = {000040400000803F000000000000803F}
  81. CubeSize = {CDCC4C3ECDCC4C3ECDCC4C3E}
  82. end
  83. object GLLightSource1: TGLLightSource
  84. ConstAttenuation = 1.000000000000000000
  85. SpotCutOff = 180.000000000000000000
  86. end
  87. object GLCamera1: TGLCamera
  88. DepthOfView = 100.000000000000000000
  89. FocalLength = 100.000000000000000000
  90. TargetObject = Cube1
  91. Position.Coordinates = {000020410000A040000020410000803F}
  92. end
  93. end
  94. object GLCadencer1: TGLCadencer
  95. Scene = GLScene1
  96. OnProgress = GLCadencer1Progress
  97. Left = 16
  98. Top = 80
  99. end
  100. end