Rotar / invertir imágenes con VFP 9 y GDI+

Artículo original: ROTATE / FLIP IMAGES WITH VFP9 AND GDI+
http://weblogs.foxite.com/cesarchalom/archive/2006/02/07/1125.aspx
Autor: Cesar Chalom (http://weblogs.foxite.com/cesarchalom/default.aspx)
Traducido por: Ana María Bisbé York (amby@telefonica.net)
Para: PortalFox (http://www.portalfox.com)

Rotar y/o invertir imágenes son tareas simples para GDI+. Para ver los diferentes resultados, cambie el valor constante en el parámetro"RotateFlip" abajo en el código.

*-- Constantes para RotateFlipType

#define	RotateNoneFlipNone 0

#define	Rotate90FlipNone   1

#define Rotate180FlipNone  2

#define Rotate270FlipNone  3

#define RotateNoneFlipX    4

#define Rotate90FlipX      5

#define Rotate180FlipX     6

#define Rotate270FlipX     7



LOCAL lcSource, lcDestination

lcSource = GETPICT("jpg;gif;bmp")

lcDestination = "Flipped_" + lcSource



LOCAL loImage AS GpImage OF ffc/_gdiplus.vcx

loImage = NEWOBJECT("GpImage", "ffc/_gdiplus.vcx")

loImage.CreateFromFile(lcSource)

** Pruebe cambiando este valor empleando las constantes mostradas antes

loImage.RotateFlip(Rotate180FlipNone)

loImage.SaveToFile(lcDestination,"image/jpeg")