Tweet
Möchte gern ein farbiges Bild von Datei (z.B. JPEG- oder BMP-Format o.a.) einlesen und über den Printer.Canvas ausdrucken. Wer kann mir bitte helfen? mgf. kd.
-
-
<p>Hallo,<br>
<br>
folgend ein kleines Beispiel:<br>
<pre>
uses
..., Graphics, JPEG;
</pre>
<pre>
procedure Drucke(const aBildname:String);
var DruckBild:TPicture;
begin
if FileExists(aBildname) then
begin
DruckBild:=TPicture.Create;
try
DruckBild.LoadFromFile(aBildname);
Printer.BeginDoc;
Printer.Canvas.StretchDraw(Printer.Canvas.ClipRect , DruckBild.Graphic);
Printer.EndDoc;
finally
DruckBild.Free;
end; // try
end; // if
end;
</pre>
<br>
Gruß Thomas</p>
Comment