Delphi and DirectX (Delphix): Tdib.fisheye ();

This example effect chart:

Code files:

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 (Se Nder: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.