fPanoViewer.dfm 3.3 KB

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