Canvas drucken

[Masterofdesasta]

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

[Sir Rufo]

Es gibt einen Bildschirm-Canvas und einen Drucker-Canvas.

Beide reagieren völlig gleich, nur dass der eine auf den Bildschirm malt und der andere auf den Drucker.

Wie kommst du denn an dein Canvas Objekt was du benutzt?
Irgendwo hast du ja stehen

Delphi-Quellcode:

  // Canvas merken
  canvas := ...
  
  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);

oder

Delphi-Quellcode:

with ... do
  begin
    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);  
  end;

[uligerhardt]

Zitat von Sir Rufo:

Wie kommst du denn an dein Canvas Objekt was du benutzt?
Irgendwo hast du ja stehen

Delphi-Quellcode:

  // Canvas merken
  canvas := ...
  
  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);

oder

Delphi-Quellcode:

with ... do
  begin
    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);  
  end;

... oder du bist im FormPaint und benutzt den Canvas der Form selbst?

[Sir Rufo]

BTW

Delphi-Quellcode:

repeat
  begin
    ...
  end;
until SomeState;

ist nicht unbedingt falsch aber es reicht vollkommen

Delphi-Quellcode:

repeat
  ...
until SomeState;

Dann wäre es auch schön, wenn du die Delphi-Tags verwenden würdest

Code:

[DELPHI]
// hier Delphi-Code
[/DELPHI]

und die Formatierung ist ... "abenteuerlich"

So könnte das dann aussehen

Delphi-Quellcode:

  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
        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;
      until ( ( 400 - round( y * 50 ) ) < 751 ) and ( ( 400 - round( y * 50 ) ) > 49 );

      repeat
        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;
      until xl = 751;
    end;

[Bjoerk]

Ich würde sagen, am einfachsten ist es, strukturiere das Programm so, daß du ein Canvas als Parameter mitschicken kannst. Dann kannst du sogar auf ein MetafileCanvas zeichen. Zum Drucken braucht du dann nur ein Printer.Canvas.StrechDraw(…., MetaFile).
Analog die Ausgabe am Bildschirm. Zum MetaFile gbt's hier im Forum ein schönes Beispiel von DeddyH (TfrmMetaFileDemo oder so ähnlich).

[Masterofdesasta]

:S ich versteh nur noch Bahnhof
Noch viel zu kompliziert für mich...

ich stell mir im endeffekt nur ein paar kurze anweisungen vor:

printer.drucken(0,0,800,800)
ich hab einfach keine Ahnung...

ich lad einfach mal meinen quelltext hoch x3 wenn jemand damit was anfangen kann wäre ich euch schwerstens verbunden

[Bjoerk]

Eigentlich ganz einfach. Das was du jetzt in den ButtonClicks stehen hast, hat dort eh nichts verloren. Das lagerst du in andere Prozeduren (oder noch besser in eine eigene unit oder Klasse) aus und gibst denen z.B. ein Canvas als Parameter oder die Klasse hat ein Feld Canvas o.ä.. Die Clicks rufen dann diese Prozeduren auf und versorgen sie mit den nötigen Infos aus der GUI. Bzw. die GUI hat eine Instanz der Klasse.