DelphiX 圖像處理：TDIB.Twist 扭曲特效

效果預覽

功能說明

TDIB.Twist(Source: TDIB; Strength: Integer) 產生漩渦扭曲效果。參數 Strength 控制扭曲強度，範例使用 128。同樣採用雙緩衝來源 DIB。

完整程式碼

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 FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var Form1: TForm1;

implementation
{$R *.dfm}

var Dib: TDIB;

procedure TForm1.FormCreate(Sender: TObject);
begin Dib := TDIB.Create; end;

procedure TForm1.FormDestroy(Sender: TObject);
begin Dib.Free; end;

procedure TForm1.Button1Click(Sender: TObject);
const ImgPath = 'C:\Temp\DX.jpg';
begin
  Dib.LoadFromFile(ImgPath);
  DXPaintBox1.DIB.Assign(Dib);
  DXPaintBox1.Width := Dib.Width; DXPaintBox1.Height := Dib.Height;
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DXPaintBox1.DIB.Twist(Dib, 128);
  DXPaintBox1.DIB.Assign(Dib); DXPaintBox1.Repaint;
end;

end.

表單定義 (DFM 節錄)

object Form1: TForm1
  ClientHeight = 142; ClientWidth = 226
  OnCreate = FormCreate; OnDestroy = FormDestroy
  object DXPaintBox1: TDXPaintBox; Left = 8; Top = 8; Width = 81; Height = 73; end
  object Button1: TButton; Left = 143; Top = 78; Caption = 'Load'; end
  object Button2: TButton; Left = 143; Top = 109; Caption = 'Twist'; end
end