Paintbox und darüber ein Image (Koordinatensystem)

[andiak]

Ich habe eine Paintbox erstellt und über der Paintbox soll nun ein Bild drauf und später soll auf dem Bild Parabeln gezeichnet werden.
Meine frage wie füge ich das Bild über der PaintBox ein ?

[fLaSh11]

Verstehe ich das richtig?
Du zeichnest ein paar Parabeln in ner Paintbox und wisst ein Koordiantensystem als Image drüberhauen?

selber zeichenen in die PaintBox!

[andiak]

Wie zeichne ich das selber?

[Luckie]

Zeichne das Koordinatensystem doch auch gleich auf der Paintbox.

[DeddyH]

Mit Canvas.Moveto und Canvas.LineTo, oder was meinst Du jetzt?

[andiak]

ich meine ich brauche in etwa sowas
http://fabianrehbein.fa.ohost.de/1.png

und mit Canvas.Moveto und Canvas.LineTo erstelle ich so etwas? wenn ja in welcher procedure muss ich das einfügen?


Damit ihr euch richtig vorstellen könnt was ich meine

[fLaSh11]

Also ich hab das ganze auch mal gemacht. Ich hab zwar ein TImage zum zeichnen genommen, aber du könntest einfach die Image1 durch PaintBox ersetzten.

Code ist eig. selbstklärend. Ich habe ihn sogar so konstruiert, dass er sich jeder Größe anpasst.

Delphi-Quellcode:

procedure TForm1.DrawCoords;
var
  i,h: Integer;
begin
  with Image1.Canvas do
    begin
    Pen.Color:=clBlack;
    //Ordinate & Abszisse
    MoveTo(0, Image1.Height div 2);
    LineTo(Image1.Width, Image1.Height div 2);
    MoveTo(Image1.Width div 2, 0);
    LineTo(Image1.Width div 2, Image1.Height);
    //Skalierung
    for i := 1 to 10 do
      begin
      h := i * (Image1.Width div 10);
      MoveTo(h, (Image1.Height div 2) - 5);
      LineTo(h, (Image1.Height div 2) + 5);
      MoveTo((Image1.Width div 2) - 5, h);
      LineTo((Image1.Width div 2) + 5, h);
      end;
    //Beschriftung
    TextOut((Image1.Width div 2) + 3,(Image1.Height div 2) + 1, '0');
    TextOut((Image1.Width div 2) + 48, (Image1.Height div 2) + 6,'1');
    TextOut((Image1.Width div 2) + 6,(Image1.Height div 2) - 56,'1');
    //Preifspitzen
    MoveTo(Image1.Width - 5, (Image1.Height div 2) - 5);
    LineTo(Image1.Width, (Image1.Height div 2));
    LineTo(Image1.Width - 5, (Image1.Height div 2) + 5);
    MoveTo((Image1.Width div 2) - 5, 5);
    LineTo((Image1.Width div 2), 0);
    LineTo((Image1.Width div 2) + 5, 5);
    end;
end;

//Edit: Allerdings sollte der Zeichengrund rechteckig sein, sonst musst du die for-Schleife überarbeiten. Und wenn man das Koordinatensystem verändern können soll, ist der Code hier auch schlecht. Also alles in allem ein Beispiel wie's gehen kann

[andiak]

Hey dude danke für den code mit hilfe dessen habe ich es jetzt geschaft das koordinaten kreuz in meiner paintbox anzeigen zu lassen danke danke danke

[fLaSh11]

Zitat von andiak:

Hey dude

erinnert mich irgendwie an "Findet Nemo"

[Nuclear-Ping]

Mich an "The Big Lebowski" ... "Der Duuuude ..."