Уроки по 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

Содержание  Назад  Вперед