Delphi XE2 之 FireMonkey 入门(15) - 滤镜: 获取滤镜信息

滤镜类的继承关系:

TObject -> TPersistent -> TFilter -> TShaderFilter -> { 具体的滤镜类 }

//下面例子首先会用到 FMX.Filter 单元的四个公用方法:
procedure FillCategory(AList: TStrings);
procedure FillFiltersInCategory(const Category: string; AList: TStrings);
function FilterByName(const AName: string): TFilter;
function FilterClassByName(const AName: string): TFilterClass;

通过 FillCategory()方法可以获取滤镜的分类列表:

FillCategory(ListBox1.Items);

通过 FillFiltersInCategory()方法可以获取某个类别的滤镜列表:

FillFiltersInCategory('分类名称', ListBox2.Items);

通过 FilterByName()方法可以获取滤镜对象:

var
filter: TFilter;
begin
filter := FilterByName('滤镜名称'); //这很方便, 省得手动建立了
end;

通过 TFilter 的 FilterAttr()方法可以获取滤镜的信息:

var
filter: TFilter;
filterRec: TFilterRec; //滤镜信息被包装在 TFilterRec 类型的结构体中
begin
filter := FilterByName('滤镜名称');
filterRec := filter.FilterAttr;
{因为 FilterAttr 是 class 方法, 所以也可以如下获取}
filterRec := FilterClassByName('滤镜名称').FilterAttr;
end;

TFilterRec 结构:

TFilterRec = record
Name: string;                 //滤镜名称
Desc: string;                 //滤镜描述
Values: TShaderValueRecArray; //滤镜的参数数组, TShaderValueRec 类型
end;

TShaderValueRec 结构:

TShaderValueRec = record
Name: string;                //参数名称
Desc: string;                //参数描述
ValueType: TShaderValueType; //参数类型: vtFloat, vtPoint, vtColor, vtBitmap(数值、点、颜色值、图像)
Value: Variant;              //参数值
Min, Max, Default: Variant;  //参数的最小、最大及默认值
end;

测试: 需要两个 TListBox、一个 TMemo, 还有 OnCreate 事件和 TListBox 的 OnClick 事件.

uses System.TypInfo; //用于获取枚举名称

procedure TForm1.FormCreate(Sender: TObject);
begin
FillCategory(ListBox1.Items); //获取分类名称列表
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
strItem1: string;
begin
strItem1 := ListBox1.Items[ListBox1.ItemIndex];
FillFiltersInCategory(strItem1, ListBox2.Items); //获取指定类别的滤镜列表

ListBox2.ItemIndex := 0;
ListBox2.OnClick(nil);
end;

procedure TForm1.ListBox2Click(Sender: TObject);
var
strItem2: string;
filter: TFilter;
filterRec: TFilterRec;
shaderValueRec: TShaderValueRec;
begin
strItem2 := ListBox2.Items[ListBox2.ItemIndex];
filter := FilterByName(strItem2); //通过滤镜名称获取滤镜对象
filterRec := filter.FilterAttr;   //获取滤镜对象的信息
//  filterRec := FilterClassByName(strItem).FilterAttr; //同上一行

Memo1.Text :=   '滤镜类名: ' + filter.ToString; //ClassName
Memo1.Lines.Add('滤镜名称: ' + filterRec.Name);
Memo1.Lines.Add('滤镜描述: ' + filterRec.Desc);
Memo1.Lines.Add('------------------------------------------------');

for shaderValueRec in filterRec.Values do
begin
Memo1.Lines.Add('参数名称: ' + shaderValueRec.Name);
Memo1.Lines.Add('参数描述: ' + shaderValueRec.Desc);
Memo1.Lines.Add('参数类型: ' + 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('默认值: ' + string(shaderValueRec.Default));
Memo1.Lines.Add('最大值: ' + string(shaderValueRec.Max));
end;
Memo1.Lines.Add(EmptyStr);
end;
end;