Unit1.dfm 2.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091
  1. object Form1: TForm1
  2. Left = 192
  3. Top = 119
  4. Caption = 'Ducky'
  5. ClientHeight = 420
  6. ClientWidth = 652
  7. Color = clBtnFace
  8. Font.Charset = DEFAULT_CHARSET
  9. Font.Color = clWindowText
  10. Font.Height = -11
  11. Font.Name = 'MS Sans Serif'
  12. Font.Style = []
  13. OldCreateOrder = False
  14. PixelsPerInch = 96
  15. TextHeight = 13
  16. object Panel1: TPanel
  17. Left = 0
  18. Top = 0
  19. Width = 161
  20. Height = 420
  21. Align = alLeft
  22. TabOrder = 0
  23. object Label1: TLabel
  24. Left = 16
  25. Top = 32
  26. Width = 50
  27. Height = 13
  28. Caption = 'Resolution'
  29. end
  30. object TrackBar1: TTrackBar
  31. Left = 16
  32. Top = 48
  33. Width = 129
  34. Height = 25
  35. Max = 50
  36. Min = 1
  37. Position = 20
  38. TabOrder = 0
  39. ThumbLength = 10
  40. TickStyle = tsManual
  41. OnChange = TrackBar1Change
  42. end
  43. object CheckBox1: TCheckBox
  44. Left = 24
  45. Top = 136
  46. Width = 97
  47. Height = 17
  48. Caption = 'WireFrame'
  49. TabOrder = 1
  50. OnClick = CheckBox1Click
  51. end
  52. end
  53. object GLSceneViewer1: TGLSceneViewer
  54. Left = 161
  55. Top = 0
  56. Width = 491
  57. Height = 420
  58. Camera = GLCamera1
  59. Buffer.AntiAliasing = aa4xHQ
  60. FieldOfView = 153.215011596679700000
  61. Align = alClient
  62. OnMouseDown = GLSceneViewer1MouseDown
  63. OnMouseMove = GLSceneViewer1MouseMove
  64. TabOrder = 1
  65. end
  66. object GLScene1: TGLScene
  67. Left = 176
  68. Top = 16
  69. object GLDummyCube1: TGLDummyCube
  70. CubeSize = 1.000000000000000000
  71. object GLCamera1: TGLCamera
  72. DepthOfView = 100.000000000000000000
  73. FocalLength = 50.000000000000000000
  74. TargetObject = GLDummyCube1
  75. Position.Coordinates = {000040C000004040000040400000803F}
  76. Direction.Coordinates = {00000000000080BF0000000000000000}
  77. Up.Coordinates = {00000000000000000000803F00000000}
  78. object GLLightSource1: TGLLightSource
  79. ConstAttenuation = 1.000000000000000000
  80. SpotCutOff = 180.000000000000000000
  81. end
  82. end
  83. end
  84. object GLActor1: TGLActor
  85. Material.FrontProperties.Diffuse.Color = {0000803F0000803F000000000000803F}
  86. Material.FrontProperties.Shininess = 50
  87. Material.FrontProperties.Specular.Color = {0000803F0000803F0000803F0000803F}
  88. Interval = 100
  89. end
  90. end
  91. end