РИСУЕМ ГРАФИК В ДЕЛФИ С ПОМОЩЬЮ PAINT

Delphi позволяет рисовать графики с помощью компонента TPaintBox. Для начала нужно разместить на форме TPaintBox и обработать событие OnPaint.

Пример обработки OnPaint для рисования графика функции y=x^2:

procedure TForm1.PaintBox1Paint(Sender: TObject);var i: integer; x, y: real;begin with PaintBox1.Canvas do begin Pen.Color := clBlack; // устанавливаем цвет пера Pen.Style := psSolid; // устанавливаем стиль пера Brush.Style := bsClear; // устанавливаем прозрачный фон кисти // рисуем координатные оси MoveTo(0, PaintBox1.Height div 2); LineTo(PaintBox1.Width, PaintBox1.Height div 2); MoveTo(PaintBox1.Width div 2, 0); LineTo(PaintBox1.Width div 2, PaintBox1.Height); // рисуем график функции x := -PaintBox1.Width / 2; for i := 0 to PaintBox1.Width do begin y := x * x; if i = 0 then MoveTo(i, Paintbox1.Height div 2 - round(y)) else LineTo(i, Paintbox1.Height div 2 - round(y)); x := x + 1; end; end;end;

Данный код рисует график функции y=x^2 на PaintBox и выводит координатные оси.

Использование класса TChart для построения графиков функций

Как рисовать фигуры и картинки через код в Delphi (Без Image) - [Коротко о Canvas]

Delphi График функции + исходник

График линейной функции на Делфи - - Программирование на Delphi

delphi-hlp.ru Урок 7 - Слои изображения. Для чего нужны и как с ними работать.

Как сделать крутой Paint на Delphi?

Реклама
Новое
Реклама