Тема: Вывод линии в канве
Показать сообщение отдельно
  #2  
Старый 08.05.2012, 21:17
Аватар для angvelem
angvelem angvelem вне форума
.
  
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию
Конечно должно быть предупреждение:
Код:
...
if (x1<x2) and (y1=y2) then
  for x:=x1 to x2 do
  Form1.Canvas.Pixels[x,y]:=clBlack;
...
откуда берётся значение переменной y? И так по всем циклам.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием