Berechnung von Seitenlängen(Seitenverhältnis)

[Prototypjack]

Ok mittlerweile habe ich das:
aber das bekomme ich die Fehlermeldung das das Handle ungültig ist.

Delphi-Quellcode:

newx :=round(bmp.width * Min(bmp.width/main_frm.scrollbox1.width, bmp.Height/main_frm.scrollbox1.height));
newy :=round(bmp.height * Min(bmp.width/main_frm.scrollbox1.width, bmp.Height/main_frm.scrollbox1.height));

Gruß,
Proto