Здравствуйте
Есть задание сделать простую рисовалку на клавишах.
Вопрос такой: при нажатии на кнопки происходит задержка, т.е. - нажимаю "вправо", "вправо", "вправо","вниз","вниз", а рисунок идёт "вправо", "вправо","вправо","вправо","вниз". Как исправить?
И ещё вопрос - как сделать видимый курсор, не оставляющий за собой след в виде рисунка? Заранее спасибо
uses graphabc,crt;
var x0,y0:integer;
c:char;
const WH = 600;
WW = 600;
begin
SetBrushColor(clBlack);
SetPenStyle(psSolid);
x0:=0;
y0:=0;
while (1=1) do
begin
c:=readkey;
case c of
#75: begin //left
x0:=x0+10;
rectangle(x0,y0,x0-10,y0+10);
end;
#77: begin //right
x0:=x0-10;
rectangle(x0,y0,x0+10,y0-10);
end;
#72: begin //up
y0:=y0-10;
rectangle(x0,y0,x0-10,y0+10);
end;
#80: begin //down
y0:=y0+10;
rectangle(x0,y0,x0+10,y0-10);
end;
end;
end;
end.
Средний
