Entwickler-Ecke

Multimedia / Grafik - Image ausdrucken / erledigt


Adrian - Mo 17.11.03 11:50
Titel: Image ausdrucken / erledigt
Servus!

Jetzt habe ich das Forum durchwühlt und die Online-Hilfe gequält, aber es klappt immer noch nicht.
Ich lasse mir Grafiken darstellen,die man auf Wunsch auch ausgedrucken kann. Das Ganze sieht momentan so aus:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
procedure TForm1.DruckenClick(Sender: TObject);
begin
  PrintDialog1.Execute;
  with Printer do
  begin
    BeginDoc;
    Printer.Canvas.StretchDraw(Rect(0,0,Image1.Width,Image1.Height),Image1.Picture.Graphic);
    EndDoc;
  end;
end;

Effekt: Jedesmal kommt ein wunderschönes, weißes Blatt Papier aus dem Drucker. Hat zwar auch was für sich, entspricht aber nicht ganz meinem Programmwunsch.
Warum, warum, warum? Bin bald soweit :autsch:

Gruß,

Adrian


Currywurst - Mo 17.11.03 12:44
schau hier unter "printing bitmaps" http://homepages.borland.com/efg2lab/Library/Delphi/Printing/ (ca anfang letztes drittel der seite)

und wenn es keine bitmap is, mach eine draus :-)


Adrian - Mo 17.11.03 16:12
Servus currywurst!

Prima, es klappt bestens!
Jetzt muß ich nur noch den Code begreifen...

Gruß,

Adrian


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!