Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

Динамическое создание TFont, TPen   Найти похожие ветки 

← →
konstantinov   (2003-06-11 19:55) [0]

Как правильно это сделать?
Пишу:
var Pen: array of TPen;
begin
Setlength(Pen,5);
for i:=0 to 4 do
begin
Pen[i].Create;
Pen[i].Assign(Image1.Canvas.Pen);
end;
Вылетает нарушение прав доступа....

end;

---

← →
clickmaker   (2003-06-11 19:58) [1]

Pen[i].Create;

А за такое можно и партбилет на стол положить...

Pen[i] := TPen.Create;

---

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

Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.03 c