Hi!

Ich möchte den Graphen einer beliebigen Funktion auf eine PaintBox zeichnen lassen,. Es geht auch, aber irgendwie nicht so richtig.

Hier mal mein bisheriger Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: real;
    x,y: integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  c:=StrToInt(Edit3.Text);

  for x:=1 to 10 do
  begin
    PaintBox1.Canvas.Moveto(x,50-y);
    y:=round(a*(x*x)+b*x+c);
    ListBox1.Items.Add(IntToStr(x)+' ==> '+IntToStr(y));
    PaintBox1.Canvas.LineTo(x,50-y);
  end;
end;

Wie kann ich ein Achsenkreuz machen, das in der Mitte (0/0) hat und nach links hin negativ wird, nach rechts positiv, ...

Wenn ich das mit den canvas mache, dann gibt es da ja keine negative Koordinaten.

Hallo Matze,
dort Beispielhabe ich mal rudimentäres Beipsiel gebracht. Die Umsetzung auf 4 Quadranten musst Du schon selbst machen. Tip: Der Ursprung muss ja nicht immer in der linken oberen Ecke sein. Du kannst jeweils in X- und in Y-Richtiung einen Konstanten Wert addieren. Diesen Wert addierst Du dann auch zu den Funktionswerten.

Hi Matze!

Damit kannst du denn "Nullpunkt" eines Steuerelemets auf einen beliebigne Punkt setzen:
SetViewPortOrgEx(Paintbox1.Canvas.Handle, yKoordinate, xKoordinate, nil); yKoordinate und xKoordinate müssen integer sein.

mfg mandumoal

Oh, danke, das probiere ich gleich mal.

Das geht irgendwie nicht, ich hab's einfach bei ButtonClick eingefügt.

Danke nochmal, ich hab's jetzt gelöst.