Hallo,
ich konnte zu meinem Problem leider nicht find, was mich weiter bringen konnte. Vielleicht hat von euch ja jemand die Lösung.
Nun zu meinem Problem:
ich möchte ein Logo, das ich als *.wmf in ein TImage geladen habe, mehrmals auf eine Seite drucken. Klappt auch soweit, allerdings
ist ab dem zweiten Logo alles verzerrt. Ich glaube es lieg daran, dass ich das TRect nicht initialisiere. Leider habe ich keine Ahnung wie das funktioniert. Oder liegt es vielleicht ganz wo anders dran? Ich bin über jede Hilfe dankbar!
Delphi-Quellcode:
procedure printCart;
var
rect : TRect;
begin
with Printer.Canvas do begin
rect := (Bounds(x,-y,(x+400),-(y+180)));
StretchDraw(rect,FormMain.ImageLogoRot.Picture.Metafile);
end;
end;
Delphi-Quellcode:
y := 100;
x := 200;
z := 1;
Table1.First;
while not Table1.Eof do
begin
printCart;
Table1.Next;
if z/2 = Round(z/2) then begin
y := y + 500; x := 200;
end
else x := 1000;
z := z + 1;
end;
das ist der Code-Auszug, um den es geht. Vielen Dank im Voraus.