Timage Rect und Canvas Position

[Blup]

Ungetestet:

Delphi-Quellcode:

{ImgLevel0}
dx0 := ImgLevel0.Picture.Bitmap.Width;
dy0 := ImgLevel0.Picture.Bitmap.Height;
dx1 := ImgLevel0.ClientWidth;
dy1 := ImgLevel0.ClientHeight;

{Den tatsächlichen Zoomfaktor bestimmen.}
zx := dx1/dx0;
zy := dy1/dy0;
z  := IfThen(zx < zy, zx, zy);

{Die Größe der Abbildung auf dem Bildschirm.}
dx := Round(z * dx0);
dy := Round(z * dy0);

{Die Position der Abbildung auf dem Image.}
p0.x := (dx1 - dx) div 2;
p0.y := (dy1 - dy) div 2;

{Umrechnung in Bildschirmkoordinaten}
p0 := ImgLevel0.ClientToScreen(p0);

{ImgLevel1}
p1 := ImgLevel1.ClientRect.TopLeft;
dx := ImgLevel1.ClientWidth;
dy := ImgLevel1.ClientHeight;

{Umrechnung in Bildschirmkoordinaten}
p1 := ImgLevel1.ClientToScreen(p1);

{p0 wird zum Koordinatenursprung(0,0) für p1}
p1.x := p1.x - p0.x;
p1.y := p1.y - p0.y;

{Zoom von ImgLevel1 auf ImgLevel0.Picture.Bitmap}
p1.x := Round(p1.x / z);
p1.y := Round(p1.y / z);
dx   := Round(dx / z);
dy   := Round(dy / z);

{Das Rechteck für die Ausgabe.}
savepic.Picture.Bitmap.Canvas.Rect(p1.x, p1.y, p1.x + dx, p1.y + dy);

[usjr0070]

Hallo Blup,

danke erst mal für deine schnelle Hilfe.
Also deine Routine scheint so wie gewollt zu laufen wenn ich verschiedene Positionen mit

savepic.Picture.Bitmap.Canvas.DrawFocusRect(rect(p1.x, p1.y, p1.x + dx, p1.y + dy));

durchlaufe sieht das ganze sehr gut aus, nur wenn ich dein Rect nochmal durch meine DrawOutlinedText laufen lass ist das Blödsinn.
Also dachte ich mit

savepic.Canvas.CopyRect(rect(p1.x, p1.y, p1.x + dx, p1.y + dy),imglevel1.Picture.Bitmap.Canvas,rect(p1.x, p1.y, p1.x + dx, p1.y + dy));
könnte ich das Problem lösen aber ich bekomme das nicht gebacken.
Siehe Bild und die Transparenz ist auch hin

Noch nee Idee ?

Mfg
Jürgen