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

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, DIB, DXDraws, StdCtrls;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXDIB1: TDXDIB;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  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.

窗体文件:

---

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 151
  ClientWidth = 280
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DXDraw1: TDXDraw
    Left = 8
    Top = 8
    Width = 265
    Height = 105
    AutoInitialize = True
    AutoSize = True
    Color = clBlack
    Display.FixedBitCount = False
    Display.FixedRatio = True
    Display.FixedSize = True
    Options = [doAllowReboot, doWaitVBlank, doCenter, do3D, doDirectX7Mode, doHardware, doSelectDriver]
    SurfaceHeight = 105
    SurfaceWidth = 265
    TabOrder = 0
    Traces = <>
  end
  object Button1: TButton
    Left = 8
    Top = 119
    Width = 60
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 76
    Top = 119
    Width = 60
    Height = 25
    Caption = 'Button2'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 144
    Top = 119
    Width = 60
    Height = 25
    Caption = 'Button3'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 213
    Top = 119
    Width = 60
    Height = 25
    Caption = 'Button4'
    TabOrder = 4
    OnClick = Button4Click
  end
  object DXDIB1: TDXDIB
    Left = 240
    Top = 16
  end
end