Redimensionar imagenes

[Angel Romero]

Hola a todos

  Bueno, tengo algun problema redimensionando imagenes. ¿Lo habeis hecho
alguna vez? El caso es que según la documentación debo usar objetos
Image y el método Stretch para que al redimensionar la imagen se ajuste.

 Lo he hecho, pero el programa me da un error "señal 11". ¿Alguna idea
para redimensionar ajustando al nuevo tamaño la imagen (nada de
recortar) imagenes?

Muchas gracias a todos

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es

[Angel Romero]

Me respondo yo mismo, ya que lo he solucionado. Asi si alguien entra, lo encontrará.

' Primero creo tres Images
DIM miImagen AS Image
DIM iFull AS Image
DIM iThumb AS Image

' Luego creo los objetos
miImagen = NEW Image    
iFull = NEW Image
iThumb = NEW Image

' Ahora cargo la imagen inicial
miImagen = Image.Load(mDatabase.base_host & "/covers/full/" & cmpIdCineol.Text & ".jpg")

' Redimensiono las otras. Ese true del final es para smooth (suavizado) asi que supongo que se vera mejor asi, los valores son ancho y alto respectivamente
iFull = miImagen.Stretch(420, 600, TRUE)
iThumb = miImagen.Stretch(70, 100, TRUE)

' Guardo el resultado. El '1' del final es para el parametro quality, que no viene documentado en Gambas. Yo le puse eso, pero no se como usarlo.
iFull.Picture.Save(mDatabase.base_host & "/covers/full/" & cmpIdCineol.Text & ".jpg", 1)  
iThumb.Picture.Save(mDatabase.base_host & "/covers/thumb/" & cmpIdCineol.Text & ".jpg", 1)

Listo. Si alguien sabe para que sirve ese parametro, pues bien, pero de todas maneras, gracias

Angel Romero wrote:

Hola a todos

  Bueno, tengo algun problema redimensionando imagenes. ¿Lo habeis hecho
alguna vez? El caso es que según la documentación debo usar objetos
Image y el método Stretch para que al redimensionar la imagen se ajuste.

 Lo he hecho, pero el programa me da un error "señal 11". ¿Alguna idea
para redimensionar ajustando al nuevo tamaño la imagen (nada de
recortar) imagenes?

Muchas gracias a todos

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Gambas-user-es mailing list
[e-mail]
https://lists.sourceforge.net/lists/listinfo/gambas-user-es