Delphi 与 DirectX 之 DelphiX(25): TDIB.Blur();

  • A+
所属分类:[开发技巧]

DelphiX 的组件面板上, 第二个就是 TDXDIB;

TDXDIB.DIB 是 TDXDIB 的唯一属性(其他是 TComponent 固有的);

TDXDIB.DIB 属性是一个 TDIB 对象;

TDIB 和 TBitmap 一样都直接继承自 TGraphic, 是一个图片容器, 它还有个别名: TDIBitmap;

TDIB 和 TDXDraw.Surface 还有 TDXImageList 中的元素(TPictureCollectionItem)功能都差不多, 不过它更强大.

使用 TDIB 需要 uses DIB 单元;
但如果添加了 TDXDIB 组件, DIB 单元会自动添加, 并可以在设计时装载图片.

本例测试了 TDIB 的模糊图像的功能, 效果图如下:

 

 

代码文件:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DXDraws, DIB;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DXDIB1: TDXDIB;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  ImgPath1 = 'C:\Temp\DelphiX.bmp';
procedure TForm1.Button1Click(Sender: TObject);
begin
   DXDraw1.Surface.LoadFromFile(ImgPath1);
   DXDraw1.Flip;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DXDIB1.DIB.LoadFromFile(ImgPath1);
  DXDIB1.DIB.Blur(32,1);
  DXDraw1.Surface.LoadFromDIB(DXDIB1.DIB);
  DXDraw1.Flip;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  DXDIB1.DIB.LoadFromFile(ImgPath1);
  DXDIB1.DIB.Blur(32, 6);
  DXDraw1.Surface.LoadFromDIB(DXDIB1.DIB);
  DXDraw1.Flip;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  DXDIB1.DIB.LoadFromFile(ImgPath1);
  DXDIB1.DIB.Blur(4, 2);
  DXDraw1.Surface.LoadFromDIB(DXDIB1.DIB);
  DXDraw1.Flip;

end;

end.
 

文件下载:

200902111705214011.rar

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: