Tamaño de imagen - Problema de logica

[u_goldman]

La fórmula que estás empleando está mal, trata lo siguiente:

Código:

    if difAncho > difAlto then
        Jpeg.Width = (MaxAncho*Alto) / Ancho
	jpeg.Height = MaxAlto
    else       
        Jpeg.Height = (MaxAlto*Ancho) / Alto
	jpeg.Width = maxAncho
    end if

Saludos