Ich habs grad mal getestet:
- Bei Jans Variante fehlt nur noch das zweite Break, für die zweite Schleife
- Der Ziel-Rect (r) ist nicht definiert, ein Wunder das es bis jetzt geklappt hat, deswegen dürfteauch g32 ins schleudern gekommen sein.
- Bei bild3 sollte PixelFormat definiert werden, bei mir kam sonst EOutOfResources und die Höhe/Breite mit +1
Delphi-Quellcode:
bild3.PixelFormat := bild.PixelFormat;
bild3.Width := x_max-x_min+1;
bild3.height := y_max-y_min+1;
r := rect(0, 0, bild3.Width, bild3.height);
- Und zum Schluss:
try ..
finally nicht vergessen.
PS: Jans Variante hat bei mir mit dem einfachen Rechteck-Paint-Beispiel nur 250 msec gebraucht!