Тема: графика
Показать сообщение отдельно
  #2  
Старый 12.05.2012, 18:54
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
произвольные линии по нажатию на таймер,
На него нельзя нажимать. Это не "нажимабельный" компонент.
Цитата:
но начало всегда в (0, Height)
Чтобы рисовать произвольные линии ИЗ (0;Height), надо туда сначало переместиться. Для этого есть метод MoveTo(x,y).
Чтобы координаты "куда рисовать" были рандомными, надо им присвоить рандом:
Код:
 x:= random(Image1.Width);
 y:= random(Image1.Height);
Только перед использованием random нужно вызвать в начале программы Randomize для инициализации генератора случайных чисел.
Рандомный цвет делается как-то так:
Код:
 Image1.Canvas.Pen.Color:=Random($FFFFFF);
(если не перепутал ничего).
Timer1.Enabled:=true в Вашем коде лишнее. Он и так будет включен постоянно.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием