DelphiX 實戰：TDIB.DrawOn 畫布直接繪製範例

TDIB.DrawOn 將 DIB 內容直接繪製到指定的 TCanvas 上，支援偏移座標，適合將遊戲畫面輸出到表單、列印或其它畫布物件。本文提供滑鼠點擊位置動態偏移繪製的互動範例。

效果預覽

核心程式碼

unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DIB, StdCtrls;
type
  TForm1 = class(TForm)
    DXPaintBox1: TDXPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure DXPaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  end;
var Form1: TForm1;
implementation {$R *.dfm}
var dib: TDIB;

procedure TForm1.DXPaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  DXPaintBox1.DIB.Fill(clGray); // 清灰底
  // DrawOn(SrcRect, DestCanvas, OffsetX, OffsetY)
  dib.DrawOn(dib.ClientRect, DXPaintBox1.DIB.Canvas, -X, -Y);
  DXPaintBox1.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
const ImgPath1 = 'C:\Temp\DX.jpg';
begin
  dib := TDIB.Create;
  dib.LoadFromFile(ImgPath1);
  DXPaintBox1.Width := dib.Width;
  DXPaintBox1.Height := dib.Height;
  DXPaintBox1.DIB.SetSize(dib.Width, dib.Height, 24);
  DXPaintBox1.DIB.Fill(clGray);
end;

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

關鍵參數

DrawOn(SrcRect, DestCanvas, OffsetX, OffsetY)

• SrcRect：來源 DIB 要繪製的區域（此處用 ClientRect 全圖）
• DestCanvas：目標畫布（此處為 DXPaintBox1.DIB.Canvas）
• OffsetX, OffsetY：繪製位移，負值表示向左/上移動
• 範例中 -X, -Y 使圖像中心對準滑鼠點擊點

應用場景

• 將 DirectX 渲染結果輸出到 VCL 畫布（列印、存檔、預覽）
• 多層合成：先在記憶體 DIB 合成，再一次 DrawOn 到螢幕
• 座標系轉換：DirectX 座標 ↔ VCL 畫布座標
• 截圖功能：DrawOn 到 TBitmap.Canvas 後存檔

注意事項

• 目標畫布必須已正確初始化並具有有效大小
• 偏移超出邊界會自動裁剪，不會報錯
• 若目標為 TPrinter.Canvas，可直接實現高品質列印