
path := TGPGraphicsPath.Create; path.AddEllipse(MakeRect(20,10,ClientWidth-40,ClientHeight-20));
rgn := TGPRegion.Create(path);
Matrix := TGPMatrix.Create; // 掃描需 Matrix 參數 (單位矩陣即可)
count := rgn.GetRegionScansCount(Matrix);
SetLength(rts, count);
rgn.GetRegionScans(Matrix, PGPRect(rts), count); // 取得所有掃描矩形
for i := 0 to count-1 do begin
b.SetColor(ColorRefToARGB(Random($FFFFFF)));
g.FillRectangle(b, rts[i]);
end;
點擊視窗重新隨機著色。展示區域幾何分解為矩形掃描線的能力。