TPaintBox - Graphen zeichnen...

[Mirilin]

Delphi-Quellcode:

...
W := PaintBox.Width  div 2;
H := PaintBox.Height div 2; 
...
procedure TMainForm.DrawGraph(m, q: Double; c : TColor = clRed);
var
  P1, P2 : TPoint;
begin
  P1.X :=  W;
  P2.X := -W;
  P1.Y := Round(-W * m + q);
  P2.Y := Round( W * m + q);
  SetViewPortOrgEx(PaintBox.Canvas.Handle, W, H, nil); //Da ich den Mittelpunkt in der Mitte haben will.
  with PaintBox.Canvas do
  begin
    Pen.Color := c;
    MoveTo(-P1.X,-P1.Y);
    LineTo(-P2.X,-P2.Y);
  end;
end;

Vielleicht kannst Du ja damit was anfangen...