Delphi and DirectX Delphix (): Tdirectdrawsurface.blur;

This example effect chart:

Code files:

Unit Unit1
Interface
uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms ,
Dialogs, Dxdraws, Stdctrls;
Type
TForm1 = Class (Tform)
Dxdraw1:tdxdraw;
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}
Const
ImgPath1 = ' C:\Temp\DelphiX.bmp ';
procedu Re Tform1.button1click (Sender:tobject);
Begin
DXDraw1.Surface.Fill (0);
DXDraw1.Surface.LoadFromFile (IMGPATH1);
Dxdraw1.flip;
End;
Procedure Tform1.button2click (sender:tobject);
Begin
DXDraw1.Surface.Fill (0);
DXDraw1.Surface.LoadFromFile (IMGPATH1);
DXDraw1.Surface.Lock;
DXDraw1.Surface.Blur;
DXDraw1.Surface.UnLock;
Dxdraw1.flip;
End;
Procedure Tform1.button3click (sender:tobject);
Begin
With Dxdraw1.surface do begin
Fill (0);
LoadFromFile (IMGPATH1);
Lock;
Blur; Blur;
UnLock;
End;
Dxdraw1.flip;
End;
End.