对于Delphi与DirectX之DelphiX(25):TDIB.Blur();感兴趣的读者，本文将提供您所需要的所有信息，我们将详细讲解delphidigital，并且为您提供关于Delphi与D
对于Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();感兴趣的读者，本文将提供您所需要的所有信息，我们将详细讲解delphidigital，并且为您提供关于Delphi 与 DirectX 之 DelphiX (28): TDIB.Emboss;、Delphi 与 DirectX 之 DelphiX (32): TDIB.FishEye ();、Delphi 与 DirectX 之 DelphiX (41): TDIB.SplitBlur ();、Delphi 与 DirectX 之 DelphiX (42): TDIB.GaussianBlur ();的宝贵知识。
本文目录一览：- Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();（delphidigital）
- Delphi 与 DirectX 之 DelphiX (28): TDIB.Emboss;
- Delphi 与 DirectX 之 DelphiX (32): TDIB.FishEye ();
- Delphi 与 DirectX 之 DelphiX (41): TDIB.SplitBlur ();
- Delphi 与 DirectX 之 DelphiX (42): TDIB.GaussianBlur ();
Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();（delphidigital）
总结
以上是小编为你收集整理的Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();全部内容。
如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。
Delphi 与 DirectX 之 DelphiX (28): TDIB.Emboss;
本例效果图:
代码文件:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DIB, StdCtrls;
type
TForm1 = class(TForm)
DXPaintBox1: TDXPaintBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
ImgPath1 = ''C:\Temp\DX.jpg'';
begin
DXPaintBox1.DIB.LoadFromFile(ImgPath1);
DXPaintBox1.Width := DXPaintBox1.DIB.Width;
DXPaintBox1.Height := DXPaintBox1.DIB.Height;
DXPaintBox1.Repaint;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DXPaintBox1.DIB.Emboss;
DXPaintBox1.Repaint;
end;
end.
Delphi 与 DirectX 之 DelphiX (32): TDIB.FishEye ();
本例效果图:
代码文件:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DIB, StdCtrls;
type
TForm1 = class(TForm)
DXPaintBox1: TDXPaintBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
dib: TDIB;
procedure TForm1.Button1Click(Sender: TObject);
const
ImgPath1 = ''C:\Temp\DX.jpg'';
begin
dib.LoadFromFile(ImgPath1);
DXPaintBox1.DIB.Assign(dib);
DXPaintBox1.Width := dib.Width;
DXPaintBox1.Height := dib.Height;
DXPaintBox1.Repaint;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DXPaintBox1.DIB.FishEye(dib);
DXPaintBox1.DIB.Assign(dib);
DXPaintBox1.Repaint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dib := TDIB.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
dib.Free;
end;
end.
Delphi 与 DirectX 之 DelphiX (41): TDIB.SplitBlur ();
本例效果图:
代码文件:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DIB, StdCtrls;
type
TForm1 = class(TForm)
DXPaintBox1: TDXPaintBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
ImgPath1 = ''C:\Temp\DX.jpg'';
begin
DXPaintBox1.DIB.LoadFromFile(ImgPath1);
DXPaintBox1.Width := DXPaintBox1.DIB.Width;
DXPaintBox1.Height := DXPaintBox1.DIB.Height;
DXPaintBox1.Repaint;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DXPaintBox1.DIB.SplitBlur(1);
DXPaintBox1.Repaint;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
DXPaintBox1.DIB.SplitBlur(4);
DXPaintBox1.Repaint;
end;
end.
窗体文件:
object Form1: TForm1
Left = 0
Top = 0
Caption = ''Form1''
ClientHeight = 142
ClientWidth = 226
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ''Tahoma''
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object DXPaintBox1: TDXPaintBox
Left = 8
Top = 8
Width = 81
Height = 73
AutoStretch = False
Center = False
KeepAspect = False
Stretch = False
ViewWidth = 0
ViewHeight = 0
end
object Button1: TButton
Left = 143
Top = 22
Width = 75
Height = 25
Caption = ''Button1''
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 143
Top = 78
Width = 75
Height = 25
Caption = ''Button2''
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 143
Top = 109
Width = 75
Height = 25
Caption = ''Button3''
TabOrder = 2
OnClick = Button3Click
end
end
Delphi 与 DirectX 之 DelphiX (42): TDIB.GaussianBlur ();
本例效果图:
代码文件:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DIB, StdCtrls;
type
TForm1 = class(TForm)
DXPaintBox1: TDXPaintBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
dib: TDIB;
procedure TForm1.Button1Click(Sender: TObject);
const
ImgPath1 = ''C:\Temp\DX.jpg'';
begin
dib.LoadFromFile(ImgPath1);
DXPaintBox1.DIB.Assign(dib);
DXPaintBox1.Width := dib.Width;
DXPaintBox1.Height := dib.Height;
DXPaintBox1.Repaint;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DXPaintBox1.DIB.GaussianBlur(dib, 1);
DXPaintBox1.DIB.Assign(dib);
DXPaintBox1.Repaint;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dib := TDIB.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
dib.Free;
end;
end.
今天关于Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();和delphidigital的分享就到这里，希望大家有所收获，若想了解更多关于Delphi 与 DirectX 之 DelphiX (28): TDIB.Emboss;、Delphi 与 DirectX 之 DelphiX (32): TDIB.FishEye ();、Delphi 与 DirectX 之 DelphiX (41): TDIB.SplitBlur ();、Delphi 与 DirectX 之 DelphiX (42): TDIB.GaussianBlur ();等相关知识，可以在本站进行查询。
本文标签：
