Уроки по Delphi
X вышел за пределы PaintBox1,
x:=0; // установить X на начало координат
PaintBox1.Canvas.Brush.Color:=clWhite; // Цвет фона белый
PaintBox1.Canvas.FillRect(ClientRect); // Очистка рабочей области PaintBox1
end;
измените на:
if x>500 then // если X вышел за пределы PaintBox1, то:
begin
x:=0; // установить X на начало координат
Stop:=true; // остановка рисования
end;
Напомнню, что график функции вы видите перевернутым. Начало координат в мониторе находится в верхнем левом углу. Математики тут найдут выход. Для переворачивания функции нужно от значения рабочей высоты элемента, на котором рисуем, вычитать значение функции
Y:=140 - ФУНКЦИЯ;
Как видите, поле для экспериментов велико. Приступайте к самостоятельному изучению.
С уважением, ведущий уроков Semen semen@krovatka.net
