Zitat von
Ravus80:
Danke erstmal! Aber das klappt leider nicht.
Hi,
wäre schön wenn du hier jetzt noch sagen würdest was genau nicht klappt!
An sich wird es an der Benennung deiner Variablen liegen, wenn du innerhalb der Prozedur einen Namen verwendest, wird dieser erst in den lokalen Variablen (und Funktionen) gesucht, danach in den globalen Variablen und erst dann in den anderen Untis. Deswegen einfach die Variable umbenennen und/oder das rect qualifizieren:
Delphi-Quellcode:
procedure printCart;
var
buffer : TRect;
begin
with Printer.Canvas do begin
buffer := (rect(x,-y,(x+400),-(y+180)));
StretchDraw(rect,FormMain.ImageLogoRot.Picture.Metafile);
end;
end;
oder
Delphi-Quellcode:
procedure printCart;
var
rect : TRect;
begin
with Printer.Canvas do begin
rect := (Classes.Rect(x,-y,(x+400),-(y+180)));
StretchDraw(rect,FormMain.ImageLogoRot.Picture.Metafile);
end;
end;
Gruß Der Unwissende