Unit1.dfm 1.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Column'
  5. ClientHeight = 392
  6. ClientWidth = 448
  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. OnCreate = FormCreate
  15. PixelsPerInch = 96
  16. TextHeight = 13
  17. object GLSceneViewer1: TGLSceneViewer
  18. Left = 0
  19. Top = 0
  20. Width = 448
  21. Height = 375
  22. Camera = GLCamera1
  23. Buffer.BackgroundColor = clBlack
  24. FieldOfView = 123.855026245117200000
  25. Align = alClient
  26. TabOrder = 0
  27. end
  28. object StaticText1: TStaticText
  29. Left = 0
  30. Top = 375
  31. Width = 448
  32. Height = 17
  33. Align = alBottom
  34. Alignment = taCenter
  35. AutoSize = False
  36. BorderStyle = sbsSingle
  37. Caption = '???.? FPS'
  38. TabOrder = 1
  39. end
  40. object GLScene1: TGLScene
  41. Left = 24
  42. Top = 8
  43. object DummyCube1: TGLDummyCube
  44. CubeSize = 1.000000000000000000
  45. end
  46. object GLCamera1: TGLCamera
  47. DepthOfView = 100.000000000000000000
  48. FocalLength = 100.000000000000000000
  49. TargetObject = DummyCube1
  50. Position.Coordinates = {0000A04100002041000020410000803F}
  51. end
  52. end
  53. object Timer1: TTimer
  54. OnTimer = Timer1Timer
  55. Left = 208
  56. Top = 8
  57. end
  58. object GLCadencer1: TGLCadencer
  59. Scene = GLScene1
  60. OnProgress = GLCadencer1Progress
  61. Left = 104
  62. Top = 8
  63. end
  64. end