fdScreenSaver2.dfm 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132
  1. object Form2: TForm2
  2. Left = 209
  3. Top = 124
  4. Margins.Left = 2
  5. Margins.Top = 2
  6. Margins.Right = 2
  7. Margins.Bottom = 2
  8. BorderStyle = bsNone
  9. BorderWidth = 2
  10. Caption = 'Form2'
  11. ClientHeight = 277
  12. ClientWidth = 472
  13. Color = clBtnShadow
  14. Font.Charset = DEFAULT_CHARSET
  15. Font.Color = clWindowText
  16. Font.Height = -11
  17. Font.Name = 'MS Sans Serif'
  18. Font.Style = []
  19. Position = poScreenCenter
  20. OnCreate = FormCreate
  21. TextHeight = 13
  22. object GLSceneViewer1: TGLSceneViewer
  23. Left = 0
  24. Top = 0
  25. Width = 472
  26. Height = 277
  27. Camera = GLCamera1
  28. Buffer.BackgroundColor = clBlack
  29. FieldOfView = 140.299743652343800000
  30. PenAsTouch = False
  31. Align = alClient
  32. OnMouseDown = GLSceneViewer1MouseDown
  33. OnMouseMove = GLSceneViewer1MouseMove
  34. TabOrder = 0
  35. end
  36. object Button1: TButton
  37. Left = 280
  38. Top = 184
  39. Width = 75
  40. Height = 25
  41. Cancel = True
  42. Caption = 'Ok'
  43. Default = True
  44. ModalResult = 1
  45. ParentShowHint = False
  46. ShowHint = True
  47. TabOrder = 1
  48. end
  49. object Button2: TButton
  50. Left = 144
  51. Top = 188
  52. Width = 97
  53. Height = 19
  54. Caption = 'Define Password'
  55. ParentShowHint = False
  56. ShowHint = False
  57. TabOrder = 2
  58. OnClick = Button2Click
  59. end
  60. object GLScene1: TGLScene
  61. Left = 32
  62. Top = 24
  63. object GLLightSource1: TGLLightSource
  64. ConstAttenuation = 1.000000000000000000
  65. Position.Coordinates = {000048C200004842000048420000803F}
  66. SpotCutOff = 180.000000000000000000
  67. end
  68. object DummyCube1: TGLDummyCube
  69. CubeSize = 1.000000000000000000
  70. object SpaceText4: TGLSpaceText
  71. Material.FrontProperties.Diffuse.Color = {0000803F0000803FD1D0D03D0000803F}
  72. Material.FrontProperties.Emission.Color = {14AE073F8FC2F53DD7A3F03E0000803F}
  73. Position.Coordinates = {0000A0C000008040000000000000803F}
  74. Scale.Coordinates = {00000040000000400000803F00000000}
  75. Extrusion = 1.000000000000000000
  76. Font.Charset = DEFAULT_CHARSET
  77. Font.Color = clWindowText
  78. Font.Height = -11
  79. Font.Name = 'Arial'
  80. Font.Style = []
  81. Lines.Strings = (
  82. 'Screen Saver')
  83. allowedDeviation = 1.000000000000000000
  84. CharacterRange = stcrAlphaNum
  85. end
  86. object Torus1: TGLTorus
  87. Tag = 1
  88. Direction.Coordinates = {FFFFFF3E71C41C3F71C41C3F00000000}
  89. Position.Coordinates = {000080C000000000000000000000803F}
  90. Scale.Coordinates = {00000040000000400000004000000000}
  91. Up.Coordinates = {EA5EAA32F304353FF30435BF00000000}
  92. MajorRadius = 1.000000000000000000
  93. MinorRadius = 0.300000011920929000
  94. Rings = 8
  95. Sides = 6
  96. StopAngle = 360.000000000000000000
  97. Parts = [toSides, toStartDisk, toStopDisk]
  98. BehavioursData = {
  99. 0458434F4C02010201060B54474C42496E657274696102001200000000020002
  100. 00050000000000000080FF3F0200080500000000000000F00340050000000000
  101. 0000000000050000000000000000000009020008020008}
  102. end
  103. object Torus2: TGLTorus
  104. Tag = 2
  105. Direction.Coordinates = {00000000F304353FF304353F00000000}
  106. Position.Coordinates = {0000804000000000000000000000803F}
  107. Scale.Coordinates = {00000040000000400000004000000000}
  108. Up.Coordinates = {00000000F304353FF30435BF00000000}
  109. MajorRadius = 1.000000000000000000
  110. MinorRadius = 0.300000011920929000
  111. StopAngle = 360.000000000000000000
  112. Parts = [toSides, toStartDisk, toStopDisk]
  113. BehavioursData = {
  114. 0458434F4C02010201060B54474C42496E657274696102001200000000020002
  115. 00050000000000000080FF3F0200080500000000000000C80340050000000000
  116. 0000000000050000000000000000000009020008020008}
  117. end
  118. end
  119. object GLCamera1: TGLCamera
  120. DepthOfView = 100.000000000000000000
  121. FocalLength = 50.000000000000000000
  122. TargetObject = DummyCube1
  123. Position.Coordinates = {000000000000803F0000A0410000803F}
  124. end
  125. end
  126. object GLCadencer1: TGLCadencer
  127. Scene = GLScene1
  128. SleepLength = 1
  129. Left = 32
  130. Top = 144
  131. end
  132. end