DelphiX TDIB.DoTrace 邊緣描邊效果範例

效果展示

一鍵調用

procedure TForm1.Button2Click(Sender: TObject);
begin
  DXPaintBox1.DIB.DoTrace(1); // 參數為描邊寬度/強度
  DXPaintBox1.Repaint;
end;

載入圖片後點擊按鈕即套用邊緣描邊濾鏡，TDIB 封裝了 DirectDraw 表面操作。