2
0

FMxLibMaterialPicker.fmx 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169
  1. object LibMaterialPicker: TLibMaterialPicker
  2. Left = 0
  3. Top = 0
  4. Caption = 'LibMaterial Picker'
  5. ClientHeight = 296
  6. ClientWidth = 480
  7. FormFactor.Width = 320
  8. FormFactor.Height = 480
  9. FormFactor.Devices = [Desktop]
  10. DesignerMasterStyle = 0
  11. object Label1: TLabel
  12. Position.X = 8.000000000000000000
  13. Position.Y = 24.000000000000000000
  14. Text = 'Available Material'
  15. end
  16. object Label2: TLabel
  17. Position.X = 168.000000000000000000
  18. Position.Y = 24.000000000000000000
  19. Text = 'Material Preview'
  20. end
  21. object LBMaterials: TListBox
  22. Position.X = 8.000000000000000000
  23. Position.Y = 48.000000000000000000
  24. Size.Width = 145.000000000000000000
  25. Size.Height = 225.000000000000000000
  26. Size.PlatformDefault = False
  27. TabOrder = 2
  28. OnClick = LBMaterialsClick
  29. OnDblClick = LBMaterialsDblClick
  30. DisableFocusEffect = True
  31. DefaultItemStyles.ItemStyle = ''
  32. DefaultItemStyles.GroupHeaderStyle = ''
  33. DefaultItemStyles.GroupFooterStyle = ''
  34. Viewport.Width = 141.000000000000000000
  35. Viewport.Height = 221.000000000000000000
  36. end
  37. object BBOK: TButton
  38. ModalResult = 1
  39. Position.X = 392.000000000000000000
  40. Position.Y = 48.000000000000000000
  41. Size.Width = 80.000000000000000000
  42. Size.Height = 25.000000000000000000
  43. Size.PlatformDefault = False
  44. StyleLookup = 'cornerbuttonstyle'
  45. TabOrder = 8
  46. Text = 'OK'
  47. object ImageOK: TImage
  48. MultiResBitmap.Height = 16
  49. MultiResBitmap.Width = 16
  50. MultiResBitmap.TransparentColor = 32896
  51. MultiResBitmap = <
  52. item
  53. Width = 16
  54. Height = 16
  55. PNG = {
  56. 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
  57. 61000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
  58. 007349444154384F9D8F810E802008058D2FA72F379E9A43C7043957BAC95DEB
  59. 2959AA2C211780FCF6E37D40C9E02EB0C9201ED865E6B6C502A6CCCDF5030719
  60. 507B63C8C29101CDA13D129001CD211D09CA80FAE5E08F68D96154B92E21CDE1
  61. EB405D1811473640447E010FCE3920A6E55B4AF900199E3F8185674CC3000000
  62. 0049454E44AE426082}
  63. FileName = 'D:\Library\GLScene\Source\Resources\bitmaps\Done.bmp'
  64. end>
  65. Align = FitLeft
  66. Size.Width = 25.000000000000000000
  67. Size.Height = 25.000000000000000000
  68. Size.PlatformDefault = False
  69. end
  70. end
  71. object BBCancel: TButton
  72. ModalResult = 2
  73. Position.X = 392.000000000000000000
  74. Position.Y = 88.000000000000000000
  75. Size.Width = 80.000000000000000000
  76. Size.Height = 25.000000000000000000
  77. Size.PlatformDefault = False
  78. StyleLookup = 'cornerbuttonstyle'
  79. TabOrder = 9
  80. Text = 'Cancel'
  81. object ImageCancel: TImage
  82. MultiResBitmap.Height = 18
  83. MultiResBitmap.Width = 19
  84. MultiResBitmap.TransparentColor = 32896
  85. MultiResBitmap = <
  86. item
  87. Width = 19
  88. Height = 18
  89. PNG = {
  90. 89504E470D0A1A0A0000000D4948445200000013000000120806000000B90CE5
  91. 69000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
  92. 00A649444154384FDD93C10E84300844EBFEB8F8E5CAB060201D9A5EF6B22F9A
  93. 52998C5074FC17B75EA237567F647C7C2D84D8B705E42E8F630D26B32C169162
  94. 987386E82B13B4B21715872133D2DCE13BA36C025A41AE8218016A0626C3A031
  95. 026D9BAA3E4E8F77599E19AD6C416B86363DAC7CDBA4B9BD0130C8D92DBFB397
  96. 3CC9805458CC3A2354B0338CE500C208E1345DD2660195E19FB4BB3964D334B9
  97. 0908B7C5BF638C0756E6577F8D03BECA0000000049454E44AE426082}
  98. FileName = 'D:\Library\GLScene\Source\Resources\bitmaps\Cancel1.bmp'
  99. end>
  100. Align = FitLeft
  101. Size.Width = 25.000000000000000000
  102. Size.Height = 25.000000000000000000
  103. Size.PlatformDefault = False
  104. end
  105. end
  106. object Light: TDummy
  107. Width = 1.000000000000000000
  108. Height = 1.000000000000000000
  109. Depth = 1.000000000000000000
  110. object LightSource: TLight
  111. Color = claWhite
  112. LightType = Directional
  113. SpotCutOff = 180.000000000000000000
  114. Width = 1.000000000000000000
  115. Height = 1.000000000000000000
  116. Depth = 1.000000000000000000
  117. end
  118. object FireSphere: TSphere
  119. Width = 1.000000000000000000
  120. Height = 1.000000000000000000
  121. Depth = 1.000000000000000000
  122. end
  123. end
  124. object World: TDummy
  125. Width = 1.000000000000000000
  126. Height = 1.000000000000000000
  127. Depth = 1.000000000000000000
  128. object Cube: TCube
  129. Width = 1.000000000000000000
  130. Height = 1.000000000000000000
  131. Depth = 1.000000000000000000
  132. end
  133. object Sphere: TSphere
  134. Width = 1.000000000000000000
  135. Height = 1.000000000000000000
  136. Depth = 1.000000000000000000
  137. end
  138. object Cone: TCone
  139. Width = 1.000000000000000000
  140. Height = 1.000000000000000000
  141. Depth = 1.000000000000000000
  142. SubdivisionsCap = 3
  143. end
  144. end
  145. inline MPPreview: TMaterialPreviewFrame
  146. Position.X = 160.000000000000000000
  147. Position.Y = 48.000000000000000000
  148. Size.Width = 211.000000000000000000
  149. Size.Height = 228.000000000000000000
  150. Size.PlatformDefault = False
  151. TabOrder = 14
  152. inherited GLSViewer: TViewport3D
  153. Size.Height = 201.000000000000000000
  154. end
  155. inherited LightMaterialSource: TLightMaterialSource
  156. Left = 251
  157. Top = 176
  158. end
  159. inherited World: TDummy
  160. inherited Teapot: TModel3D
  161. Data = {0000}
  162. end
  163. end
  164. inherited Camera: TCamera
  165. Left = 248
  166. Top = 112
  167. end
  168. end
  169. end