Thema: Delphi Canvas drucken

Einzelnen Beitrag anzeigen

Masterofdesasta

Registriert seit: 10. Apr 2013
4 Beiträge
 
Delphi 2010 Architect
 
#7

AW: Canvas drucken

  Alt 10. Apr 2013, 11:13
Wieder danke für die ganzen Antworten
Leider ist selbst das wirklich noch zu kompliziert (Besonders das von Bummi)
So weit bin ich leider noch nicht...

Ich glaube aber herausgelesen zu haben das canvas irgendwie ein Objekt ist o.O ...
Vieleicht hab ich mich falsch ausgedrückt(wenn ja sryyyyy). Aber ich zeichne mein Koordiantensystem einfach so:
Code:
   canvas.MoveTo(50,400);    //x-Achse
   canvas.LineTo(750,400);
   canvas.MoveTo(400,50);    //y-Achse
   canvas.LineTo(400,750);
   canvas.MoveTo(225,575);   //z-Achse
   canvas.LineTo(575,225);
Und meinen Graphen so:
Code:
if (a<>0) or (b<>0) or (c<>0) or (d<>0) then begin
                                                 canvas.Pen.Color:=rgb(random(256),random(256),random(256));
                                                 canvas.Pen.Width:=2;
                                                 x:=-7;
                                                 xl:=50;
                                                 repeat begin
                                                           y:=a*x*x*x+b*x*x+c*x+d;
                                                           canvas.MoveTo(xl,400-round(y*50));
                                                           xl:=xl+1;
                                                           x:=x+0.02;
                                                         end;
                                                 until ((400-round(y*50))<751) and ((400-round(y*50))>49);
                                                 repeat begin
                                                           y:=a*x*x*x+b*x*x+c*x+d;
                                                           if ((400-round(y*50))<751) and ((400-round(y*50))>49) then canvas.LineTo(xl,400-round(y*50))
                                                                                                                 else canvas.MoveTo(xl,400-round(y*50));
                                                           xl:=xl+1;
                                                           x:=x+0.02;
                                                         end;
                                                 until xl=751;
                                               end;
Naja... so in etwa... Ich such wirklich nur eine Möglichkeit dies zu drucken :S
  Mit Zitat antworten Zitat