Also mit einer Paintbox hab ichs vorher versucht... hat nicht so hingehauen wie ich es gerne haben wollte. deswegen habe ich ein image genommen.
Ich zeig dir einfach mal den code der Oberfläche.
Brauche eben noch eine einfache Rechenmethode um die funktion passend errechnen zu lassen damit der graph auch richtig gezeichnet wird. Nur einen Pseudocode mit kommentaren damit ichs dann adarauf aufbauen kann... also nur zum gucken wie man sowas macht. Keine angst ich werds nicht 1 zu 1 übernehmen
Also hier erstmal der Code von der Oberfläche:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i,j,k:Integer;
begin
with Image1.Canvas do
begin //X-Achse
MoveTo(1125,450); //Graph
LineTo(20,450);
for i:= -5 to 16 do
begin
Image1.Canvas.TextOut(300+50*i,455,IntToStr(i)); //Beschriftung
MoveTo(300+50*i,445); //Striche von Beschriftung
LineTo(300+50*i,455);
begin //Y-Achse
MoveTo(300,20); //Graph
LineTo(300,660);
for j := -8 to -1 do
begin
Image1.Canvas.TextOut(305,450+50*j,IntToStr(-j)); //Beschriftung
MoveTo(295,450+50*j); //Striche von Beschriftung
LineTo(305,450+50*j);
for k := 1 to 4 do
begin
Image1.Canvas.TextOut(305,450+50*k,IntToStr(-k)); //Beschriftung
MoveTo(295,450+50*k); //Striche von Beschriftung
LineTo(305,450+50*k);
end;
end;
end;
end;
end;
end;
Die habe ich auch nur durch ein bisschen angucken einiger Codeschnipsel hinbekommen.
Also das zeichnen soll übrigens in einem Button sein wobei auch der wert von X² in einem Edith eingegeben wird... also vielleicht werde ich das später noch erweitern