DelphiX 圖形教學：使用 TDIB.DoSplitlight 實現分光特效

TDIB.DoSplitlight 是 DelphiX 中一個有趣的視覺特效方法，能將位圖產生類似「分光」或「光束掃過」的動態效果。這在遊戲過場動畫、場景轉場或特殊 UI 表現上頗具應用價值。本文提供完整範例說明其用法。

方法介紹

procedure DoSplitlight(Intensity: Integer)：參數 Intensity 控制分光效果的強度或條數。數值越大，光束條紋越多、越密集，視覺上呈現更強烈的放射狀分割感。方法會直接操作 DIB 像素資料，產生類似全像圖干涉條紋的靜態圖案。

完整範例程式碼

介面佈局與前例相同，僅將第二個按鈕的事件改為呼叫 DoSplitlight。

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);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Button2Click(Sender: TObject);
begin
  // 套用分光特效，強度參數為 1
  DXPaintBox1.DIB.DoSplitlight(1);
  DXPaintBox1.Repaint;
end;

end.

效果觀察

• 載入圖片後，畫面顯示原始影像。
• 點擊「套用特效」按鈕，呼叫 DoSplitlight(1)，圖片會瞬間轉換為帶有放射狀亮暗條紋的風格化圖像，彷彿光線穿過稜鏡折射。
• 嘗試將參數改為 2、3 等更大值，可見條紋密度明顯增加，產生更強烈的視覺衝擊。

開發提示

• 此方法同樣會直接修改 DIB 像素資料，不可逆。建議在套用前備份原圖。
• 結合計時器定期以遞增參數呼叫 DoSplitlight，可製作簡易的「光束掃描」動畫。
• 適合用於科幻風格介面、能量護盾特效、傳送門視覺表現等場合。

TDIB.DoSplitlight 以極簡單的 API 提供了極具辨識度的視覺特效，是 DelphiX 開發者工具箱中的一把利刃。