Unit1.dfm 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181
  1. object Form1: TForm1
  2. Left = 201
  3. Top = 129
  4. Caption = 'Simple Spherical Pano Viewer - Use mouse or arrow keys to pan'
  5. ClientHeight = 345
  6. ClientWidth = 634
  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. KeyPreview = True
  14. OldCreateOrder = False
  15. Position = poScreenCenter
  16. WindowState = wsMaximized
  17. OnKeyDown = FormKeyDown
  18. OnMouseWheel = FormMouseWheel
  19. PixelsPerInch = 96
  20. TextHeight = 13
  21. object GLSceneViewer1: TGLSceneViewer
  22. Left = 0
  23. Top = 46
  24. Width = 634
  25. Height = 299
  26. Cursor = crHandPoint
  27. Margins.Left = 2
  28. Margins.Top = 2
  29. Margins.Right = 2
  30. Margins.Bottom = 2
  31. Camera = GLCamera1
  32. Buffer.FaceCulling = False
  33. Buffer.Lighting = False
  34. FieldOfView = 150.041778564453100000
  35. PenAsTouch = False
  36. Align = alClient
  37. OnMouseDown = GLSceneViewer1MouseDown
  38. OnMouseMove = GLSceneViewer1MouseMove
  39. TabOrder = 0
  40. end
  41. object Panel1: TPanel
  42. Left = 0
  43. Top = 0
  44. Width = 634
  45. Height = 46
  46. Margins.Left = 2
  47. Margins.Top = 2
  48. Margins.Right = 2
  49. Margins.Bottom = 2
  50. Align = alTop
  51. BevelInner = bvRaised
  52. BevelOuter = bvLowered
  53. Font.Charset = DEFAULT_CHARSET
  54. Font.Color = clWindowText
  55. Font.Height = -12
  56. Font.Name = 'Arial'
  57. Font.Style = []
  58. ParentFont = False
  59. TabOrder = 1
  60. object LabelYaw: TLabel
  61. Left = 249
  62. Top = 8
  63. Width = 35
  64. Height = 15
  65. Margins.Left = 2
  66. Margins.Top = 2
  67. Margins.Right = 2
  68. Margins.Bottom = 2
  69. Caption = 'Yaw: 0'
  70. end
  71. object LabelPitch: TLabel
  72. Left = 249
  73. Top = 24
  74. Width = 40
  75. Height = 15
  76. Margins.Left = 2
  77. Margins.Top = 2
  78. Margins.Right = 2
  79. Margins.Bottom = 2
  80. Caption = 'Pitch: 0'
  81. end
  82. object Label1: TLabel
  83. Left = 113
  84. Top = 8
  85. Width = 71
  86. Height = 15
  87. Margins.Left = 2
  88. Margins.Top = 2
  89. Margins.Right = 2
  90. Margins.Bottom = 2
  91. Caption = 'Focal Length'
  92. end
  93. object Label2: TLabel
  94. Left = 329
  95. Top = 8
  96. Width = 188
  97. Height = 30
  98. Margins.Left = 2
  99. Margins.Top = 2
  100. Margins.Right = 2
  101. Margins.Bottom = 2
  102. Caption = 'Hold left mouse button to pan'#13#10'Zoom in/out with the mouse wheel'
  103. end
  104. object BtnLoad: TButton
  105. Left = 8
  106. Top = 8
  107. Width = 89
  108. Height = 30
  109. Margins.Left = 2
  110. Margins.Top = 2
  111. Margins.Right = 2
  112. Margins.Bottom = 2
  113. Caption = 'Load Image...'
  114. TabOrder = 0
  115. OnClick = BtnLoadClick
  116. end
  117. object TrackBar1: TTrackBar
  118. Left = 108
  119. Top = 23
  120. Width = 126
  121. Height = 16
  122. Margins.Left = 2
  123. Margins.Top = 2
  124. Margins.Right = 2
  125. Margins.Bottom = 2
  126. Max = 100
  127. Min = 10
  128. Frequency = 10
  129. Position = 40
  130. TabOrder = 1
  131. ThumbLength = 10
  132. TickMarks = tmBoth
  133. TickStyle = tsNone
  134. OnChange = TrackBar1Change
  135. end
  136. end
  137. object GLScene1: TGLScene
  138. Left = 48
  139. Top = 64
  140. object GLCamera1: TGLCamera
  141. DepthOfView = 200.000000000000000000
  142. FocalLength = 40.000000000000000000
  143. Left = 328
  144. Top = 216
  145. end
  146. object Sphere1: TGLSphere
  147. Material.MaterialLibrary = GLMaterialLibrary1
  148. Material.LibMaterialName = 'LibMaterial'
  149. Normals = nsFlat
  150. Radius = 2.000000000000000000
  151. Slices = 64
  152. end
  153. end
  154. object OpenPictureDialog1: TOpenPictureDialog
  155. DefaultExt = '*.jpg'
  156. Left = 136
  157. Top = 64
  158. end
  159. object GLMaterialLibrary1: TGLMaterialLibrary
  160. Materials = <
  161. item
  162. Name = 'LibMaterial'
  163. Tag = 0
  164. Material.Texture.MinFilter = miLinear
  165. Material.Texture.TextureMode = tmReplace
  166. Material.Texture.TextureFormat = tfRGB
  167. Material.Texture.FilteringQuality = tfAnisotropic
  168. Material.Texture.Disabled = False
  169. TextureOffset.Coordinates = {000000000000803F0000000000000000}
  170. TextureScale.Coordinates = {000080BF0000803F0000803F00000000}
  171. end>
  172. Left = 48
  173. Top = 128
  174. end
  175. object GLCadencer1: TGLCadencer
  176. Scene = GLScene1
  177. OnProgress = GLCadencer1Progress
  178. Left = 136
  179. Top = 128
  180. end
  181. end