Wir haben noch eine kleine Frage...
Wie kann man die Beschriftung des Graphen farbig gestalten?
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i,j:integer;
x,y:real;
begin
a:=strtofloat(Edit1.Text); //Eingabe
b:=strtofloat(Edit2.Text);
c:=strtofloat(Edit3.Text);
i:=70;
while i<420 do
begin
i:=i+1;
x:=(i-220)/50; //x skalieren
y:=a*sqr(x+b)+c; //Funktion y=a*(x+b)²+c
j:=round((220-y*50)); //j berechnen
image1.Canvas.Pixels[i,j]:=clblue; //zeichnen
image1.Canvas.TextOut(400,100,'y=a*sqr(x+b)+c'); //Beschriftung
end;
end;
Wir haben es versucht mit:
Delphi-Quellcode:
image1.Canvas.TextOut(400,42,'y=ax+b'); //Beschriftung
image1.Canvas.Pen.Color:=clred; // Schrift-Farbe rot
Jedoch ging das nicht.
Kann uns bitte jemand erneut helfen?
