窗体上需要 TImage、TOpenDialog 和六个按钮.
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects;
type
TForm1 = class(TForm)
Image1: TImage;
OpenDialog1: TOpenDialog;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
uses FMX.Filter;
var
bit: TBitmap;
procedure TForm1.FormCreate(Sender: TObject);
begin
bit := TBitmap.Create(0, 0);
if not OpenDialog1.Execute then Exit;
bit.LoadFromFile(OpenDialog1.FileName);
Image1.Bitmap.Assign(bit);
Image1.SetBounds(10, 10, bit.Width, bit.Height);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
bit.Free;
end;
{高斯模糊: 一个参数}
procedure TForm1.Button1Click(Sender: TObject);
var
filter: TFilter;
begin
filter := FilterByName('GaussianBlur'); //GaussianBlur 是高斯模糊滤镜的名称
filter.Values['BlurAmount'] := 0.25; //BlurAmount 是高斯模糊参数的名称, 默认值是 1(0.1..10)
filter.ValuesAsBitmap['input'] := bit; //input 是给输入图片约定的索引名称, 不区分大小写
Image1.Bitmap := filter.ValuesAsBitmap['output']; //output 是给输出图片约定的索引名称
end;
{颜色翻转: 无参数}
procedure TForm1.Button2Click(Sender: TObject);
var
filter: TFilter;
begin
filter := FilterByName('Invert'); //颜色翻转
filter.ValuesAsBitmap['input'] := bit;
Image1.Bitmap := filter.ValuesAsBitmap['output'];
end;
{灰度: 无参数}
procedure TForm1.Button3Click(Sender: TObject);
var
filter: TFilter;
begin
filter := FilterByName('Monochrome');
filter.ValuesAsBitmap['input'] := bit;
Image1.Bitmap := filter.ValuesAsBitmap['output'];
end;
{马赛克: 一个参数}
procedure TForm1.Button4Click(Sender: TObject);
var
filter: TFilter;
begin
filter := FilterByName('Pixelate');
filter.Values['BlockCount'] := 30; {25 : 1..1000}
filter.ValuesAsBitmap['input'] := bit;
Image1.Bitmap := filter.ValuesAsBitmap['output'];
end;
{对比度: 两个参数}
procedure TForm1.Button5Click(Sender: TObject);
var
filter: TFilter;
begin
filter := FilterByName('Contrast');
filter.Values['Brightness'] := -0.5; {-1..1}
filter.Values['Contrast'] := 1.5; {0..2}
filter.ValuesAsBitmap['input'] := bit;
Image1.Bitmap := filter.ValuesAsBitmap['output'];
end;
{透视: 参数是四个点}
procedure TForm1.Button6Click(Sender: TObject);
var
filter: TFilter;
begin
filter := FilterByName('PerspectiveTransform');
filter.Values['TopLeft'] := VarFromPointXY(0, 0);
filter.Values['TopRight'] := VarFromPointXY(bit.Width, 0);
filter.Values['BottomRight'] := VarFromPointXY(bit.Width * 2, bit.Height * 2);
filter.Values['BottomLeft'] := VarFromPointXY(0, bit.Height);
filter.ValuesAsBitmap['input'] := bit;
Image1.Bitmap := filter.ValuesAsBitmap['output'];
Image1.SetBounds(10, 10, bit.Width * 2, bit.Height * 2);
end;
end.
Transition 分类的滤镜需要两张图片:
uses FMX.Filter;
var
bit1,bit2: TBitmap;
{百叶窗效果}
procedure TForm1.FormCreate(Sender: TObject);
var
filter: TFilter;
begin
bit1 := TBitmap.Create(0, 0);
bit2 := TBitmap.Create(0, 0);
bit1.LoadFromFile('C:\Temp\test1.jpg');
bit2.LoadFromFile('C:\Temp\test2.jpg');
filter := FilterByName('BlindTransition');
filter.Values['Progress'] := 50; //变换进度: 0..100; 当以此进度做动画时, PropertyName := 'Value'
filter.Values['NumberOfBlinds'] := 10; //分叶数: 2..15
filter.ValuesAsBitmap['input'] := bit1;
filter.ValuesAsBitmap['target'] := bit2; //target 也是约定的索引名称
Image1.Bitmap := filter.ValuesAsBitmap['output'];
Image1.SetBounds(10, 10, bit1.Width, bit1.Height);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
bit1.Free;
bit2.Free;
end;