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

Artículo original: ROTATE / FLIP IMAGES WITH VFP9 AND GDI+
http://weblogs.foxite.com/vfpimaging/archive/2006/02/07/1125.aspx
Autor: Cesar Ch.
Traducido por: Ana María Bisbé York

---

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")