FMxShaderUniformEditor.fmx 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353
  1. object ShaderUniformEditorForm: TShaderUniformEditorForm
  2. Left = 0
  3. Top = 0
  4. Caption = 'Autofill of uniforms'
  5. ClientHeight = 428
  6. ClientWidth = 548
  7. FormFactor.Width = 320
  8. FormFactor.Height = 480
  9. FormFactor.Devices = [Desktop]
  10. OnDestroy = FormDestroy
  11. DesignerMasterStyle = 0
  12. object Label1: TLabel
  13. Position.X = 16.000000000000000000
  14. Position.Y = 16.000000000000000000
  15. Text = 'Available Uniforms'
  16. TabOrder = 0
  17. end
  18. object LBUniforms: TListBox
  19. Position.X = 16.000000000000000000
  20. Position.Y = 40.000000000000000000
  21. Size.Width = 241.000000000000000000
  22. Size.Height = 361.000000000000000000
  23. Size.PlatformDefault = False
  24. TabOrder = 1
  25. OnClick = LBUniformsClick
  26. DisableFocusEffect = True
  27. DefaultItemStyles.ItemStyle = ''
  28. DefaultItemStyles.GroupHeaderStyle = ''
  29. DefaultItemStyles.GroupFooterStyle = ''
  30. OnKeyDown = LBUniformsKeyDown
  31. Viewport.Width = 237.000000000000000000
  32. Viewport.Height = 357.000000000000000000
  33. end
  34. object Label2: TLabel
  35. Position.X = 280.000000000000000000
  36. Position.Y = 16.000000000000000000
  37. Size.Width = 217.000000000000000000
  38. Size.Height = 17.000000000000000000
  39. Size.PlatformDefault = False
  40. Text = 'Avaiblable Value'
  41. TabOrder = 2
  42. end
  43. object AutoSetBox: TComboBox
  44. Position.X = 280.000000000000000000
  45. Position.Y = 40.000000000000000000
  46. Size.Width = 241.000000000000000000
  47. Size.Height = 22.000000000000000000
  48. Size.PlatformDefault = False
  49. TabOrder = 5
  50. OnChange = AutoSetBoxChange
  51. end
  52. object Label3: TLabel
  53. Position.X = 280.000000000000000000
  54. Position.Y = 80.000000000000000000
  55. Size.Width = 217.000000000000000000
  56. Size.Height = 17.000000000000000000
  57. Size.PlatformDefault = False
  58. Text = 'Texture Image/Attachment'
  59. TabOrder = 6
  60. end
  61. object Label4: TLabel
  62. Position.X = 280.000000000000000000
  63. Position.Y = 144.000000000000000000
  64. Size.Width = 217.000000000000000000
  65. Size.Height = 17.000000000000000000
  66. Size.PlatformDefault = False
  67. Text = 'Texture Sampler'
  68. TabOrder = 7
  69. end
  70. object TextureBox: TComboBox
  71. Position.X = 280.000000000000000000
  72. Position.Y = 104.000000000000000000
  73. Size.Width = 241.000000000000000000
  74. Size.Height = 22.000000000000000000
  75. Size.PlatformDefault = False
  76. TabOrder = 4
  77. OnChange = TextureBoxChange
  78. end
  79. object SamplerBox: TComboBox
  80. Position.X = 280.000000000000000000
  81. Position.Y = 168.000000000000000000
  82. Size.Width = 241.000000000000000000
  83. Size.Height = 22.000000000000000000
  84. Size.PlatformDefault = False
  85. TabOrder = 3
  86. OnChange = SamplerBoxChange
  87. end
  88. object RedGroup: TGroupBox
  89. Position.X = 280.000000000000000000
  90. Position.Y = 232.000000000000000000
  91. Size.Width = 65.000000000000000000
  92. Size.Height = 169.000000000000000000
  93. Size.PlatformDefault = False
  94. Text = 'RED'
  95. TabOrder = 11
  96. OnClick = ColorGroupClick
  97. object RadioButton1: TRadioButton
  98. Position.X = 8.000000000000000000
  99. Position.Y = 24.000000000000000000
  100. Size.Width = 41.000000000000000000
  101. Size.Height = 19.000000000000000000
  102. Size.PlatformDefault = False
  103. TabOrder = 5
  104. Text = 'R'
  105. end
  106. object RadioButton2: TRadioButton
  107. Position.X = 8.000000000000000000
  108. Position.Y = 48.000000000000000000
  109. Size.Width = 41.000000000000000000
  110. Size.Height = 19.000000000000000000
  111. Size.PlatformDefault = False
  112. TabOrder = 4
  113. Text = 'G'
  114. end
  115. object RadioButton3: TRadioButton
  116. Position.X = 8.000000000000000000
  117. Position.Y = 72.000000000000000000
  118. Size.Width = 41.000000000000000000
  119. Size.Height = 19.000000000000000000
  120. Size.PlatformDefault = False
  121. TabOrder = 3
  122. Text = 'B'
  123. end
  124. object RadioButton4: TRadioButton
  125. Position.X = 8.000000000000000000
  126. Position.Y = 96.000000000000000000
  127. Size.Width = 41.000000000000000000
  128. Size.Height = 19.000000000000000000
  129. Size.PlatformDefault = False
  130. TabOrder = 2
  131. Text = 'A'
  132. end
  133. object RadioButton5: TRadioButton
  134. Position.X = 8.000000000000000000
  135. Position.Y = 120.000000000000000000
  136. Size.Width = 41.000000000000000000
  137. Size.Height = 19.000000000000000000
  138. Size.PlatformDefault = False
  139. TabOrder = 1
  140. Text = '0'
  141. end
  142. object RadioButton6: TRadioButton
  143. Position.X = 8.000000000000000000
  144. Position.Y = 144.000000000000000000
  145. Size.Width = 41.000000000000000000
  146. Size.Height = 19.000000000000000000
  147. Size.PlatformDefault = False
  148. TabOrder = 0
  149. Text = '1'
  150. end
  151. end
  152. object Label5: TLabel
  153. Position.X = 280.000000000000000000
  154. Position.Y = 208.000000000000000000
  155. Size.Width = 217.000000000000000000
  156. Size.Height = 17.000000000000000000
  157. Size.PlatformDefault = False
  158. Text = 'Swizzle of texture color components '
  159. TabOrder = 12
  160. end
  161. object GreenGroup: TGroupBox
  162. Position.X = 341.000000000000000000
  163. Position.Y = 232.000000000000000000
  164. Size.Width = 65.000000000000000000
  165. Size.Height = 169.000000000000000000
  166. Size.PlatformDefault = False
  167. Text = 'GREEN'
  168. TabOrder = 10
  169. OnClick = ColorGroupClick
  170. object RadioButton7: TRadioButton
  171. Position.X = 8.000000000000000000
  172. Position.Y = 24.000000000000000000
  173. Size.Width = 41.000000000000000000
  174. Size.Height = 19.000000000000000000
  175. Size.PlatformDefault = False
  176. TabOrder = 5
  177. Text = 'R'
  178. end
  179. object RadioButton8: TRadioButton
  180. Position.X = 8.000000000000000000
  181. Position.Y = 48.000000000000000000
  182. Size.Width = 41.000000000000000000
  183. Size.Height = 19.000000000000000000
  184. Size.PlatformDefault = False
  185. TabOrder = 4
  186. Text = 'G'
  187. end
  188. object RadioButton9: TRadioButton
  189. Position.X = 8.000000000000000000
  190. Position.Y = 72.000000000000000000
  191. Size.Width = 41.000000000000000000
  192. Size.Height = 19.000000000000000000
  193. Size.PlatformDefault = False
  194. TabOrder = 3
  195. Text = 'B'
  196. end
  197. object RadioButton10: TRadioButton
  198. Position.X = 8.000000000000000000
  199. Position.Y = 96.000000000000000000
  200. Size.Width = 41.000000000000000000
  201. Size.Height = 19.000000000000000000
  202. Size.PlatformDefault = False
  203. TabOrder = 2
  204. Text = 'A'
  205. end
  206. object RadioButton11: TRadioButton
  207. Position.X = 8.000000000000000000
  208. Position.Y = 120.000000000000000000
  209. Size.Width = 41.000000000000000000
  210. Size.Height = 19.000000000000000000
  211. Size.PlatformDefault = False
  212. TabOrder = 1
  213. Text = '0'
  214. end
  215. object RadioButton12: TRadioButton
  216. Position.X = 8.000000000000000000
  217. Position.Y = 144.000000000000000000
  218. Size.Width = 41.000000000000000000
  219. Size.Height = 19.000000000000000000
  220. Size.PlatformDefault = False
  221. TabOrder = 0
  222. Text = '1'
  223. end
  224. end
  225. object BlueGroup: TGroupBox
  226. Position.X = 401.000000000000000000
  227. Position.Y = 232.000000000000000000
  228. Size.Width = 65.000000000000000000
  229. Size.Height = 169.000000000000000000
  230. Size.PlatformDefault = False
  231. Text = 'BLUE'
  232. TabOrder = 9
  233. OnClick = ColorGroupClick
  234. object RadioButton13: TRadioButton
  235. Position.X = 8.000000000000000000
  236. Position.Y = 24.000000000000000000
  237. Size.Width = 41.000000000000000000
  238. Size.Height = 19.000000000000000000
  239. Size.PlatformDefault = False
  240. TabOrder = 5
  241. Text = 'R'
  242. end
  243. object RadioButton14: TRadioButton
  244. Position.X = 8.000000000000000000
  245. Position.Y = 48.000000000000000000
  246. Size.Width = 41.000000000000000000
  247. Size.Height = 19.000000000000000000
  248. Size.PlatformDefault = False
  249. TabOrder = 4
  250. Text = 'G'
  251. end
  252. object RadioButton15: TRadioButton
  253. Position.X = 8.000000000000000000
  254. Position.Y = 72.000000000000000000
  255. Size.Width = 41.000000000000000000
  256. Size.Height = 19.000000000000000000
  257. Size.PlatformDefault = False
  258. TabOrder = 3
  259. Text = 'B'
  260. end
  261. object RadioButton16: TRadioButton
  262. Position.X = 8.000000000000000000
  263. Position.Y = 96.000000000000000000
  264. Size.Width = 41.000000000000000000
  265. Size.Height = 19.000000000000000000
  266. Size.PlatformDefault = False
  267. TabOrder = 2
  268. Text = 'A'
  269. end
  270. object RadioButton17: TRadioButton
  271. Position.X = 8.000000000000000000
  272. Position.Y = 120.000000000000000000
  273. Size.Width = 41.000000000000000000
  274. Size.Height = 19.000000000000000000
  275. Size.PlatformDefault = False
  276. TabOrder = 1
  277. Text = '0'
  278. end
  279. object RadioButton18: TRadioButton
  280. Position.X = 8.000000000000000000
  281. Position.Y = 144.000000000000000000
  282. Size.Width = 41.000000000000000000
  283. Size.Height = 19.000000000000000000
  284. Size.PlatformDefault = False
  285. TabOrder = 0
  286. Text = '1'
  287. end
  288. end
  289. object AlphaGroup: TGroupBox
  290. Position.X = 461.000000000000000000
  291. Position.Y = 231.000000000000000000
  292. Size.Width = 65.000000000000000000
  293. Size.Height = 169.000000000000000000
  294. Size.PlatformDefault = False
  295. Text = 'ALPHA'
  296. TabOrder = 8
  297. OnClick = ColorGroupClick
  298. object RadioButton19: TRadioButton
  299. Position.X = 8.000000000000000000
  300. Position.Y = 24.000000000000000000
  301. Size.Width = 41.000000000000000000
  302. Size.Height = 19.000000000000000000
  303. Size.PlatformDefault = False
  304. TabOrder = 5
  305. Text = 'R'
  306. end
  307. object RadioButton20: TRadioButton
  308. Position.X = 8.000000000000000000
  309. Position.Y = 48.000000000000000000
  310. Size.Width = 41.000000000000000000
  311. Size.Height = 19.000000000000000000
  312. Size.PlatformDefault = False
  313. TabOrder = 4
  314. Text = 'G'
  315. end
  316. object RadioButton21: TRadioButton
  317. Position.X = 8.000000000000000000
  318. Position.Y = 72.000000000000000000
  319. Size.Width = 41.000000000000000000
  320. Size.Height = 19.000000000000000000
  321. Size.PlatformDefault = False
  322. TabOrder = 3
  323. Text = 'B'
  324. end
  325. object RadioButton22: TRadioButton
  326. Position.X = 8.000000000000000000
  327. Position.Y = 96.000000000000000000
  328. Size.Width = 41.000000000000000000
  329. Size.Height = 19.000000000000000000
  330. Size.PlatformDefault = False
  331. TabOrder = 2
  332. Text = 'A'
  333. end
  334. object RadioButton23: TRadioButton
  335. Position.X = 8.000000000000000000
  336. Position.Y = 120.000000000000000000
  337. Size.Width = 41.000000000000000000
  338. Size.Height = 19.000000000000000000
  339. Size.PlatformDefault = False
  340. TabOrder = 1
  341. Text = '0'
  342. end
  343. object RadioButton24: TRadioButton
  344. Position.X = 8.000000000000000000
  345. Position.Y = 144.000000000000000000
  346. Size.Width = 41.000000000000000000
  347. Size.Height = 19.000000000000000000
  348. Size.PlatformDefault = False
  349. TabOrder = 0
  350. Text = '1'
  351. end
  352. end
  353. end