Graph zeichnen

[Jakob Ullmann]

Und eventuell auch noch ein paar andere Units. Ist ganz normal. :)

[-Julchen-]

Ahhhhhhhhhhhhhhhhh, okay.
Vielen Dank für eure Antworten - es klappt jetzt alles (keine Fehlermeldungen mehr und Graphen werden gezeichnet). :lol:

DANKE!!! :mrgreen:

:cheers:

[-Julchen-]

Wir haben noch eine kleine Frage... :oops:
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? :angel2:

[jfheins]

Du schreibst etwas und legst danach den Stift weg und nimmst stattdessen den roten Stift. Warum ist das, was du geschrieben hast nicht rot?

==> Farbe setzen bevor du den Text ausgibst ;)

[-Julchen-]

:wiejetzt: ^^


Wir haben das jetzt so und es geht noch immer nicht:

Delphi-Quellcode:

  image1.Canvas.Pixels[i,j]:=clred;
  image1.Canvas.Pen.Color:=clred;
  image1.Canvas.TextOut(400,42,'y=ax+b');         //Beschriftung
  end;

end;

[himitsu]

Delphi-Quellcode:

Canvas.Font.Color := clRed;

TextOut nimmt die Eigenschaften aus Font :zwinker:

[jfheins]

Ups ... *unaufällig pfeift*

Aber trotzdem muss man es vorher setzen :mrgreen:

[-Julchen-]

Es klappt, danke ihr beiden! :thumb:

Da ihr ja grad so aktiv seid, hätten wir noch eine Frage.. looool :lol: :wall:

Wie sorgt man dafür, dass die Beschriftung immer am jeweiligen Graphen bleibt, auch, wenn man die Variablen so verändert, dass sich der Graph verschiebt?
Oder ist dies nicht möglich? :gruebel:

:angel:








:stupid:

[mquadrat]

Naja einfach die Koordinaten, an denen der Text ausgegeben wird auch berechnen. Da müsste dann halt auch drauf geachtet werden, dass der Text nicht die Kurve überschreibt. Die Größe des Textes kann man ausrechnen lassen. Wenn mir jetzt noch einfallen würde, wie die entsprechenden Methoden heißen :oops: Ich würd's mal mit TextWidth und TextHeight probieren.