Скачать: CL | DM;

Создание полигонов 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 вот в чем ошибка

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c