Уроки по Delphi



         

Урок18. Корректное построение программного кода. Рисование. Построение графика функции - часть 9


            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




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