Unit1.dfm 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394
  1. object Form1: TForm1
  2. Left = 0
  3. Top = 0
  4. Caption = 'Texture Animation'
  5. ClientHeight = 372
  6. ClientWidth = 446
  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. OnCloseQuery = FormCloseQuery
  15. PixelsPerInch = 96
  16. TextHeight = 13
  17. object GLSceneViewer1: TGLSceneViewer
  18. Left = 0
  19. Top = 41
  20. Width = 446
  21. Height = 331
  22. Camera = GLCamera1
  23. FieldOfView = 108.110099792480500000
  24. Align = alClient
  25. TabOrder = 0
  26. end
  27. object Panel1: TPanel
  28. Left = 0
  29. Top = 0
  30. Width = 446
  31. Height = 41
  32. Align = alTop
  33. TabOrder = 1
  34. object LabelFPS: TLabel
  35. Left = 320
  36. Top = 13
  37. Width = 18
  38. Height = 13
  39. Caption = 'FPS'
  40. end
  41. object Button1: TButton
  42. Left = 8
  43. Top = 8
  44. Width = 137
  45. Height = 25
  46. Caption = 'Generate Anim Frames'
  47. TabOrder = 0
  48. OnClick = Button1Click
  49. end
  50. object CBAnimate: TCheckBox
  51. Left = 176
  52. Top = 12
  53. Width = 97
  54. Height = 17
  55. Caption = 'Animate'
  56. Enabled = False
  57. TabOrder = 1
  58. end
  59. end
  60. object GLScene1: TGLScene
  61. Left = 32
  62. Top = 80
  63. object Cube1: TGLCube
  64. end
  65. object GLLightSource1: TGLLightSource
  66. ConstAttenuation = 1.000000000000000000
  67. Position.Coordinates = {00007041000020410000E0400000803F}
  68. SpotCutOff = 180.000000000000000000
  69. end
  70. object GLCamera1: TGLCamera
  71. DepthOfView = 100.000000000000000000
  72. FocalLength = 120.000000000000000000
  73. TargetObject = Cube1
  74. Position.Coordinates = {0000A04000008040000040400000803F}
  75. Left = 208
  76. Top = 160
  77. end
  78. end
  79. object GLMaterialLibrary1: TGLMaterialLibrary
  80. Left = 40
  81. Top = 200
  82. end
  83. object GLCadencer1: TGLCadencer
  84. Scene = GLScene1
  85. OnProgress = GLCadencer1Progress
  86. Left = 32
  87. Top = 136
  88. end
  89. object Timer1: TTimer
  90. OnTimer = Timer1Timer
  91. Left = 32
  92. Top = 256
  93. end
  94. end