como redimensionar una imagen

[ralph]

Amigos del foro:

Tengo una parte de mi programa en la que asocio una imagen a un alumno en un recuadro. Como las imagenes originales a asociar pueden tener cualquier tamaño y para evitar que se distorsionen al mostrarlas, las convierto a imagenes cuadradas.

Uso la aplicacion nconvert.exe con los comandos:

Code: Select all  Expand view  RUN

nconvert -out jpeg -resize 300 300 -ratio *.jpg
nconvert -out jpeg -canvas 300 300 *.jpg

Pero al ajustarlas de tamaño, el fondo queda en color negro. Alguien sabe como hacer para que este fondo sea blanco en lugar de negro?

Vean unas imagenes de ejemplo: www.sgedukit.com/files/test/nconv.zip

O existe alguna funcion en FWH de ajustar las dimensiones de una imagen?

Saludos

Ralph

[Antonio Linares]

Ralph,

@ <nRow>, <nCol> Image <oBmp> ... SIZE ..., ... ADJUST

[ralph]

Antonio:

La sintaxis que mencionas es la que yo uso:

cFile := "\fotos\foto1.jpg"

DEFINE DIALOG oDlg FROM 0, 0 TO 20, 52

@ 0, 0 IMAGE oImage SIZE 300, 300 OF oDlg ADJUST

oImage:Loadbmp(cFile)
....

En la imagen yo defino las dimensiones en las que se va a mostrar la foto (300x300), y la clausula ADJUST muestra a escala la imagen original (que podria medir 500x500, 400x400, etc).

El problema es cuando los archivos jpg no guardan proporcion con las dimensiones a mostrar (ejm: 200 x300), por lo que previamente necesito convertirlas a la escala adecuada para evitar distorsiones como puedes ver en el archivo problema.jpg que esta en nconv.zip

A proposito, como puedo saber las dimensiones de un archivo jpg ?

Gracias por cualquier ayuda.

Ralph

[Antonio Linares]

Ralph,

> A proposito, como puedo saber las dimensiones de un archivo jpg ?

Una vez tienes creado el objeto oImage:

oImage:nWidth()
oImage:nHeight()