Developing.ru

А, это я перепутал. В условии if Canvas.Pixels[dx,dy]=clred then нужно заменить = на <>.

Вот-вот, я уже сам потом разобрался спасибо большое!!! В итоге в конец процедуры просто вставил такой код:

for i:=1 to 20 do begin
  xx:=p[5].x;
  yy:=p[3].y;
  w:=p[11].x-p[5].x;
  h:=p[9].y-p[3].Y;
  dx:=random(w);
  dy:=random(h);
  dx:=xx+dx;
  dy:=yy+dy;
  if Canvas.Pixels[dx,dy]<>clred then
  Canvas.Pixels[dx,dy]:=RGB(random(255),random(255),random(255))
end;

Все идеально работает!!! + я зарандомил цвет))) и нашел ошибку, должно быть:

Код: Выделить всё

yy:=p[3].y;

Вместо:

Код: Выделить всё

yy:=p[5].y;

Во блин, сам даже понял)))
Цикл я сделал для того, чтобы при каждом нажатии кнопки появлялось большее количество точек(потому что таймером злой препод запретил пользоваться)))
Еще раз спасибо

Вопрос еще один:

Код: Выделить всё

procedure TForm1.StarLine(x0,y0,r:integer);

Данная строчка означает что это процедура(с формальными параметрами) или же обработчик событий???
запутался

Это обычная процедура, точнее - метод класса TForm1. В данном случае обработчиком события не является.

Developing.ru

Рисование)) никак не получаецо))

Re: Рисование)) никак не получаецо))

Re: Рисование)) никак не получаецо))

Re: Рисование)) никак не получаецо))