fPanoViewerC.dfm 4.1 KB

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