Einzelnen Beitrag anzeigen

Dagon

Registriert seit: 13. Jul 2003
505 Beiträge
 
Delphi 7 Professional
 
#2

Re: TPaintBox - Graphen zeichnen...

  Alt 7. Okt 2003, 15:05
Am besten du zeichnest die Gerade mit Hilfe von MoveTo und LineTo. In einer While-Schleife berechnest du das y in dem du das x um z. B. 0.1 vergrösserts.

Also etwa so:

Delphi-Quellcode:
...
x := -10;
y := m*x+y;
PaintBox1.Canvas.MoveTo(x, y);
while x <= 10 do
begin
  y := m*x+n;
  PaintBox1.Canvas.LineTo(x, y);
  x := x + 0.1;
end;
...
  Mit Zitat antworten Zitat