fMegaglassD.dfm 2.0 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. object FormMegaglasscube: TFormMegaglasscube
  2. Left = 198
  3. Top = 107
  4. Margins.Left = 5
  5. Margins.Top = 5
  6. Margins.Right = 5
  7. Margins.Bottom = 5
  8. Caption = 'Megaglasscube'
  9. ClientHeight = 613
  10. ClientWidth = 872
  11. Color = clBtnFace
  12. Font.Charset = DEFAULT_CHARSET
  13. Font.Color = clWindowText
  14. Font.Height = -19
  15. Font.Name = 'MS Sans Serif'
  16. Font.Style = []
  17. OnCreate = FormCreate
  18. PixelsPerInch = 168
  19. TextHeight = 24
  20. object GLSceneViewer1: TGLSceneViewer
  21. Left = 0
  22. Top = 0
  23. Width = 872
  24. Height = 613
  25. Margins.Left = 5
  26. Margins.Top = 5
  27. Margins.Right = 5
  28. Margins.Bottom = 5
  29. Camera = GLCamera1
  30. Buffer.BackgroundColor = clBlack
  31. FieldOfView = 161.469665527343800000
  32. PenAsTouch = False
  33. Align = alClient
  34. TabOrder = 0
  35. end
  36. object GLScene1: TGLScene
  37. ObjectsSorting = osNone
  38. Left = 8
  39. Top = 8
  40. object DummyCube1: TGLDummyCube
  41. ObjectsSorting = osRenderBlendedLast
  42. CubeSize = 10.000000000000000000
  43. end
  44. object GLLightSource1: TGLLightSource
  45. ConstAttenuation = 1.000000000000000000
  46. Position.Coordinates = {0000C842000048420000C8420000803F}
  47. LightStyle = lsOmni
  48. SpotCutOff = 180.000000000000000000
  49. end
  50. object GLCamera1: TGLCamera
  51. DepthOfView = 500.000000000000000000
  52. FocalLength = 50.000000000000000000
  53. TargetObject = DummyCube1
  54. Position.Coordinates = {000048420000C8410000C8420000803F}
  55. end
  56. end
  57. object GLCadencer1: TGLCadencer
  58. Scene = GLScene1
  59. OnProgress = GLCadencer1Progress
  60. Left = 88
  61. Top = 8
  62. end
  63. object GLSimpleNavigation1: TGLSimpleNavigation
  64. Form = Owner
  65. GLSceneViewer = GLSceneViewer1
  66. FormCaption = 'Megaglasscube - %FPS'
  67. KeyCombinations = <
  68. item
  69. ShiftState = [ssLeft, ssRight]
  70. Action = snaZoom
  71. end
  72. item
  73. ShiftState = [ssLeft]
  74. Action = snaMoveAroundTarget
  75. end
  76. item
  77. ShiftState = [ssRight]
  78. Action = snaMoveAroundTarget
  79. end>
  80. Left = 184
  81. Top = 8
  82. end
  83. end