РИСУЕМ ГРАФИК В ДЕЛФИ С ПОМОЩЬЮ 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?