Delphi XE2 之 FireMonkey 入門(15)

1、delphi xe2 之 firemonkey 入門(15)/下面例子首先會用到 fmx.filter 單元的四個公用辦法: procere fillcategory(alist: tsings); procure fillfiltersincategory(const category: string; alist: tstrings); fution filterbyname(const aname: string): tfilter; function filterclassbyname(const aname: string): tfilterclass; 通過 fillcategor

2、y()辦法可以獵取濾鏡的分類列表: fillcategory(listbox1.items); 通過 fillfiltersincategory()辦法可以獵取某個類別的濾鏡列表: fillfiltersincategory('分類名稱', listbox2.items); 通過 filterbyname()辦法可以獵取濾鏡對象: filter: tfilter; begin filter := filterbyname('濾鏡名稱'); /這很便利, 省得手動建立了 通過 tfilter 的 filterattr()辦法可以獵取濾鏡的信息: filter: t

3、filter; filterrec: tfilterrec; /濾鏡信息被包裝在 tfilterrec 類型的結(jié)構(gòu)體中 begin filter := filterbyname('濾鏡名稱'); filterrec := filter.filterattr; 由于 filterattr 是 class 辦法, 所以也可以如下獵取 filterrec := filterclassbyname('濾鏡名稱').filterattr; tfilterrec 結(jié)構(gòu): tfilterrec = record name: string; /濾鏡名稱 desc: string

4、; /濾鏡描述 values: tshadervaluerecarray; /濾鏡的參數(shù)數(shù)組, tshadervaluerec 類型 tshadervaluerec 結(jié)構(gòu): tshadervaluerec = record name: string; /參數(shù)名稱 desc: string; /參數(shù)描述 valuetype: tshadervaluetype; /參數(shù)類型: vtfloat, vtpoint, vtcolor, vtbitmap(數(shù)值、點、色彩值、圖像) value: variant; /參數(shù)值 min, max, default: variant; /參數(shù)的最小、最大及默認值

5、測試: 需要兩個 tlistbox、一個 tmemo, 還有 oncreate 大事和 tlistbox 的 onclick 大事. uses system.typinfo; /用于獵取枚舉名稱 procedure tfo1.formcreate(sender: tobject); begin fillcategory(listbox1.items); /獵取分類名稱列表 procedure tform1.listbox1click(sender: tobject); stritem1: string; begin stritem1 := listbox1.itemslistbox1.item

6、ind; fillfiltersincategory(stritem1, listbox2.items); /獵取指定類別的濾鏡列表 listbox2.itemindex := 0; listbox2.onclick(nil); procedure tform1.listbox2click(sender: tobject); stritem2: string; filter: tfilter; filterrec: tfilterrec; shadervaluerec: tshadervaluerec; begin stritem2 := listbox2.itemslistbox2.item

7、index; filter := filterbyname(stritem2); /通過濾鏡名稱獵取濾鏡對象 filterrec := filter.filterattr; /獵取濾鏡對象的信息 / filterrec := filterclassbyname(stritem).filterattr; /同上一行 memo1.text := '濾鏡類名: ' + filter.tostring; /classname memo1.lines.a('濾鏡名稱: ' + filterrec.name); memo1.lines.add('濾鏡描述: '

8、; + filterrec.desc); memo1.lines.add('-'); for shadervaluerec in filterrec.values do begin memo1.lines.add('參數(shù)名稱: ' + shadervaluerec.name); memo1.lines.add('參數(shù)描述: ' + shadervaluerec.desc); memo1.lines.add('參數(shù)類型: ' + getenumname(typeinfo(tshadervaluetype), integer(shadervaluerec.valuetype); if shadervaluerec.valuetype tshadervaluetype.vtbitmap then begin memo1.lines.add('當前值: ' + string(shadervaluerec.value); memo1.lines.add('最小值: ' + string(shadervaluerec.min); memo1.lines.add('默認值: ' + st