StrecthDraw

[MarkSE]

Guten Tag Leute,
etwas mache ich sicherlich falsch und suche seit Tagen im Forum nach einer Lösung und fand viele Vorschläge, leider ohne Erfolg.
Bitte schaut Euch meine kleine Procedure an, warum bleibt das Papier immer weiß?
Vielen Dank für Eure Hilfe im Voraus.
(Ich benutze Delphi 7 Studio Professional, XP SPK3 , DELL LaserJet 1100)

Procedure PrintJPG;
var
lmgJPG: TJPEGImage;
b:TBitMap;
x:Trect;
begin
// JPEG-Bild bild1.jpg ist in Graustufen und 303 x 87 dpi groß
Printer.PrinterIndex := 0;
Printer.BeginDoc;
SetMapMode ( Printer.Canvas.Handle, MM_LOMETRIC); // auf mm einstellen

lmgJPG:= TJPEGImage.Create;
lmgJPG.LoadFromFile('c:\test\bild1.jpg');
b:= TBitmap.Create;
b.Assign(lmgJPG); // BildInfo steckt doch jetzt in b oder?
try
x.Left:=20; // auch 0, 0, 302, 86 ausprobiert, also ohne Stetch
x.Right:=500; // immer bleibt das Papier weiß
x.Top:=20;
x.Bottom:=500;

printer.canvas.stretchdraw(x,b); // Das Papier bleibt weiß
finally
FreeAndNil(b);
FreeAndNil(lmgJPG);
end;
Printer.EndDoc;
end;

[DeddyH]

Und wenn Du die Y-Koordinaten (X.Top und X.Bottom) auf negative Werte setzt?

[MarkSE]

Oh Mann
DaddyH, Du hast in 2 Minuten das gesehen, was ich vor 5 Tagen sehen sollte
Ich danke Dir, sehr.
LG Mark

[DeddyH]

Es steht im MSDN beschrieben:

Zitat:

MM_LOMETRIC

Each logical unit is mapped to 0.1 millimeter. Positive x is to the right; positive y is up.