| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Массив HRGN [D6, WinXP]

webpauk ©   (2006-10-12 15:23:00) 

type
TmyRec = record
X, Y, Z: Integer;
Rgn: HRGN;
end;
var
fArr: array of TmyRec;

procedure Example;
var
I: Integer;
fArr3: array[0..2] of Tpoint;
Z: Integer;
begin
Z:=3000+Random(1000);
SetLength(fArr, Z);
Farr3[0]:=Point(0, 0);
Farr3[1]:=Point(10, 0);
Farr3[2]:=Point(0, 10);

for I := 0 to Z-1
begin
 fArr[I].X:=10;
 fArr[I].Y:=10;
 fArr[I].Z:=10;
 fArr[I].RGN:=CreatePolygonRgn(fArr3, 3, ALTERNATE)
end;
end;

вопрос такой: при частом обращении к procedure Example выскакивает ошибка "Canvas does not allow drawing".
Я так думаю из-за того, что память не очищается. SetLength(fArr, 0) - не помогает. A - DleteObject(fArr[I].RGN)- выскакивает ошибка.

---

webpauk   (2006-10-12 16:59:00) [1]

> Ketmar ©   (12.10.06 16:53) [4]

спасиб
уже допер

---

Ketmar   (2006-10-12 16:53:00) [2]

выкинь регионы и проверяй непосредственно координаты. математика спасёт ОРД.

---

webpauk   (2006-10-12 15:51:00) [3]

help

---

webpauk   (2006-10-12 15:32:00) [4]

> MBo ©   (12.10.06 15:29) [1]

пишу программу графически пароль. Там определяется попадание курсора в заданный регион. Регион определяется 3 точками. Точки всё время меняются и задаются 20 фигурами

---

MBo   (2006-10-12 15:29:00) [5]

Зачем тебе несколько тысяч регионов?
Это растрата места в таблице дескрипторов и ценной системной памяти

---

Наверх