Регионы

← →
arcoant (2002-08-27 21:41) [0]

Здрасте! Никто случайно не знает два региона которые не соприкасаются склеить в один...

← →
Ученик (2002-08-27 22:40) [1]

CombineRgn

← →
arcoant (2002-08-27 23:22) [2]

Какой третий параметр? Я пробовал все но в результате CombineRgn не возвращала СOMPLEXREGION...

← →
Ученик (2002-08-27 23:51) [3]

procedure TForm1.Button2Click(Sender: TObject);
var
Rgn1, Rgn2, Rgn3 : HRgn;
begin
Rgn1 := CreateRectRgn(10, 10, 100, 100);
Rgn2 := CreateRectRgn(210, 10, 300, 100);
Rgn3 := CreateRectRgn(0, 0, 0, 0);
try
CombineRgn(Rgn3, Rgn1, Rgn2, RGN_XOR);
FillRgn(Canvas.Handle, Rgn3, GetStockObject(WHITE_BRUSH))
finally
DeleteObject(Rgn1);
DeleteObject(Rgn2);
DeleteObject(Rgn3);
end
end;

← →
Ученик (2002-08-27 23:54) [4]

Опечатка,
...
CombineRgn(Rgn3, Rgn1, Rgn2, RGN_OR);
...

← →
arcoant (2002-08-27 23:59) [5]

Pasibo, Pasibo, Pasibo, Pasibo, Pasibo, Pasibo !!!!!

Регионы Найти похожие ветки