1. 程式人生 > >2個多邊形,其中一個包圍另一個,如何將中間的環帶區域塗成紅色

2個多邊形,其中一個包圍另一個,如何將中間的環帶區域塗成紅色

eat gin ner 中間 clr 2個 com combiner diff

var a, b, c: HRGN;
hbr: HBRUSH;
begin
// 2個多邊形,其中一個包圍另一個,如何將中間的環帶區域塗成紅色

hbr := CreateSolidBrush(clRed);
a:=CreateRectRgn(100,200,400,400);
b:=CreateRoundRectRgn(120,220,300,350,100,100);
c:=CreateRectRgn(0,0,1,1);
CombineRgn(c, a, b, RGN_DIFF);
FillRgn(Canvas.Handle,c, hbr);


end;

2個多邊形,其中一個包圍另一個,如何將中間的環帶區域塗成紅色