首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
您现在的位置: 程式碼之家 >> 編程語言 >  >> 更多程式語言 >> Delphi

GDI+ GetRegionScans 獲取區域掃描矩形:隨機著色填充範例

     編輯:Delphi

效果展示

掃描矩形隨機色

核心流程


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;

點擊視窗重新隨機著色。展示區域幾何分解為矩形掃描線的能力。

  1. 上一篇文章:
  2. 下一篇文章:
Copyright © 程式碼之家 All Rights Reserved