DelphiX 實戰：TDIB.DrawTo 矩形區域複製範例

TDIB.DrawTo 將來源 DIB 的指定矩形區域複製到目標 DIB 的指定位置，支援縮放與裁剪，是 2D 遊戲精靈繪製、圖塊地圖渲染的核心方法。本文提供兩種複製方向的對比範例。

效果預覽

核心程式碼

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.Button1Click(Sender: TObject); // 來源縮小 1/3 複製到目標中心
begin
  DXPaintBox1.DIB.Fill(clGray);
  DXPaintBox1.DIB.DrawTo(dib,
    dib.Width div 3, dib.Height div 3,  // 來源矩形左上
    dib.Width, dib.Height,              // 來源矩形寬高
    0, 0);                              // 目標位置
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject); // 來源全圖複製到目標偏移 1/3
begin
  DXPaintBox1.DIB.Fill(clGray);
  DXPaintBox1.DIB.DrawTo(dib,
    0, 0,                               // 來源左上
    dib.Width, dib.Height,              // 來源寬高
    dib.Width div 3, dib.Height div 3); // 目標位置
  DXPaintBox1.Repaint;
end;

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

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

參數詳細說明

DrawTo(SrcDIB, SrcX, SrcY, SrcW, SrcH, DstX, DstY)

• SrcDIB：來源圖像
• SrcX, SrcY, SrcW, SrcH：來源矩形區域（支援部分複製）
• DstX, DstY：目標繪製左上角座標
• 自動縮放：若來源矩形與目標繪製區域大小不同，自動雙線性縮放

兩個範例的視覺差異

• Button1：取來源圖中央 1/3 區域，放大繪製到目標全域 → 局部放大效果
• Button2：取來源全圖，縮小繪製到目標右下 1/3 區域 → 縮圖效果

進階用法

• 圖集繪製：大圖集中按精靈框架座標 DrawTo 到畫面
• 地圖渲染：圖塊集合 DrawTo 到大地圖 DIB
• UI 九宮格：按邊角/邊/中九區 DrawTo 實現可縮放 UI 框架
• 縮圖生成：大圖 DrawTo 小 DIB 產生縮圖