| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Создание полигонов CreatePolygonRgn
Frozzen © (2004-11-22 18:31:00)Господа смотрите
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 21:29:00) [1]все сделал
я не создавал HrgD вот в чем ошибка
Frozzen (2004-11-22 21:27:00) [2]нет
wicked (2004-11-22 21:04:00) [3]а может так?
> CreatePolygonRgn( @ pol1p[0], pol1.p.Count, WINDING);
Frozzen (2004-11-22 19:29:00) [4]CreatePolygonRgn(pol1p[0], pol1.p.Count, WINDING);
так нужно
но вложенность все равно не определяет
| |
