Delphi 利用 Canvas 複製模式製造圖片特效：十字紋理疊加

效果展示

將來源圖片以 cmMergeCopy 複製模式搭配 bsCross 十字筆刷繪製至目標畫布，產生類似半透明十字紋理疊加的視覺效果。

實作程式碼

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 設定目標畫布筆刷為十字紋理
  Image2.Canvas.Brush.Style := bsCross;
  // 設定複製模式：合併複製（來源與目標像素邏輯合併）
  Image2.Canvas.CopyMode := cmMergeCopy;
  // 將 Image1 圖片繪製至 Image2 (0,0) 處
  Image2.Canvas.Draw(0, 0, Image1.Picture.Graphic);
end;

關鍵屬性說明

• Brush.Style := bsCross：筆刷呈現十字網格狀，繪製時會形成網狀疊加。
• CopyMode := cmMergeCopy：將來源像素與目標畫布現有像素進行邏輯合併（類似 OR 運算），配合筆刷產生特效。
• 其他常用 CopyMode：cmSrcCopy(直接複製)、cmSrcAnd(AND)、cmSrcInvert(XOR)、cmNotSrcCopy(反色複製) 等。

延伸應用

嘗試不同 Brush.Style（bsDiagCross、bsFDiagonal、bsBDiagonal、bsHorizontal、bsVertical）搭配各種 CopyMode，可創造多種圖片濾鏡效果，無需外部圖形庫。