Создание полигонов CreatePolygonRgn

← →
Frozzen (2004-11-22 18:31) [0]

Господа смотрите

POINT = record
x : Word;
y : Word;
end;

arp = array of POINT;
type parp = ^arp;

var
pol1p, pol2p : arp;
p1, p2 : pArp;

SetLength(pol1p, 10);
SetLength(pol2p, 20);
p1 := @pol1p;
p2 := @pol2p;

Заполняю массивы

hrg1 := CreatePolygonRgn(p1, 10, WINDING);
if hrg1 = 0 then ShowMessage("2");

hrg2 := CreatePolygonRgn(p2, 20, WINDING);

if (CombineRgn(hrgD, hrg1, hrg2, RGN_DIFF) = NULLREGION ) then
ShowMessage("1");

Дак CreatePolygonRgn возвращает 0
Что не так?

← →
Frozzen (2004-11-22 19:29) [1]

CreatePolygonRgn(pol1p[0], pol1.p.Count, WINDING);

так нужно
но вложенность все равно не определяет

← →
wicked © (2004-11-22 21:04) [2]

а может так?
> CreatePolygonRgn(@pol1p[0], pol1.p.Count, WINDING);

← →
Frozzen (2004-11-22 21:27) [3]

нет

← →
Frozzen (2004-11-22 21:29) [4]

все сделал
я не создавал HrgD вот в чем ошибка

Создание полигонов CreatePolygonRgn Найти похожие ветки