CoderX :: Forums - Показать сообщение отдельно

Xa4ik · 19.04.2011, 16:33

так заарисовуются углы: (исправлено)

Код:

if (x<>x1) and (y<y1) then  Form.Scene.Canvas.Pixels[x-1,y]:=clBlack;
if (x<>x1) and (y>y1) then  Form.Scene.Canvas.Pixels[x+1,y]:=clBlack;
if (y<>y1) and (x<x1) then  Form.Scene.Canvas.Pixels[x,y+1]:=clBlack;
if (y<>y1) and (x>x1) then  Form.Scene.Canvas.Pixels[x,y-1]:=clBlack;
Form.Scene.Canvas.Pixels[x,y]:=clBlack;
x1:=x;
y1:=y;

19.04.2011, 16:33	#2
Xa4ik Местный Регистрация: 11.03.2008 Сообщений: 529 Сказал Спасибо: 10 Имеет 111 спасибок в 71 сообщенях	так заарисовуются углы: (исправлено) Код: if (x<>x1) and (y<y1) then Form.Scene.Canvas.Pixels[x-1,y]:=clBlack; if (x<>x1) and (y>y1) then Form.Scene.Canvas.Pixels[x+1,y]:=clBlack; if (y<>y1) and (x<x1) then Form.Scene.Canvas.Pixels[x,y+1]:=clBlack; if (y<>y1) and (x>x1) then Form.Scene.Canvas.Pixels[x,y-1]:=clBlack; Form.Scene.Canvas.Pixels[x,y]:=clBlack; x1:=x; y1:=y; Последний раз редактировалось Xa4ik, 19.04.2011 в 17:09.