Imagen invertida
Publicado: Sab Dic 14, 2013 12:03 pm
Buenos días:
A vueltas con la opción de cambiar el tamaño a un archivo de imagen, he conseguido que funcione con este codigo
WITH OBJECT ::oPicture := TPicture():New( Self )
if File("volante.jpg")
:loadFromFile("volante.jpg")
c := :MakeThumbNail(200,200)
memowrit("volante1.jpg",c)
endif
END WITH
Pero el resultado es que la nueva imagen, en efecto tiene las nuevas dimensiones, pero APARECE INVERTIDA.
Como puedo solucionar este problema he probado con
memowrit("volante1.jpg",c, .T.)
y
memowrit("volante1.jpg",c, .F.)
pero el resultado sigue siendo el mismo.
Anticipadamente gracias,
Un saludo
Emilio Gil.
A vueltas con la opción de cambiar el tamaño a un archivo de imagen, he conseguido que funcione con este codigo
WITH OBJECT ::oPicture := TPicture():New( Self )
if File("volante.jpg")
:loadFromFile("volante.jpg")
c := :MakeThumbNail(200,200)
memowrit("volante1.jpg",c)
endif
END WITH
Pero el resultado es que la nueva imagen, en efecto tiene las nuevas dimensiones, pero APARECE INVERTIDA.
Como puedo solucionar este problema he probado con
memowrit("volante1.jpg",c, .T.)
y
memowrit("volante1.jpg",c, .F.)
pero el resultado sigue siendo el mismo.
Anticipadamente gracias,
Un saludo
Emilio Gil.