graphen zeichnen ?

[dajuhsa]

versuch doch ne funktion in der art f(x)= ...
und dann so oder so ähnlich:

Delphi-Quellcode:

procedure GraphZeichnen(Graphenbreite:integer);
var i,j:integer;
begin

  for i := 0 to graphenbreite do
  begin
    j := i * XYZ; //statt XYZ halt deine funktion einsetzen
    Paintbox.Canvas.Pixels[i,j] := clblack; 
  end;

end;

oder falls ne funktion nicht hinhaut auch so:

Delphi-Quellcode:

var YWert: Array [0..Graphenbreite] of Integer;

...

procedure GraphZeichnen;
var i:integer;
begin

  for i := 0 to High(YWert) do
    Paintbox.Canvas.Pixels[i,YWert[i]] := clblack;

end;

EDIT: das kommt dann am besten ins OnChange-Event des Trackbars, weil sie ja gezeichnet werden sollen, sobald man einen Wert ändert

mfG,
dajuhsa