var
rgn: TGPRegion;
path: TGPGraphicsPath;
begin
path := TGPGraphicsPath.Create;
rgn := TGPRegion.Create(path);
path.StartFigure;
path.AddRectangle(MakeRect(30,20,90,40));
rgn.Union(path);
path.AddEllipse(MakeRect(30,20,90,180));
rgn.Union(path);
path.CloseFigure; //请问有哪位知道怎样得到 rgn 各点的 Point[]end
rgn: TGPRegion;
path: TGPGraphicsPath;
begin
path := TGPGraphicsPath.Create;
rgn := TGPRegion.Create(path);
path.StartFigure;
path.AddRectangle(MakeRect(30,20,90,40));
rgn.Union(path);
path.AddEllipse(MakeRect(30,20,90,180));
rgn.Union(path);
path.CloseFigure; //请问有哪位知道怎样得到 rgn 各点的 Point[]end
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货