Código para crear una imagen al vuelo "Utilizando el canal alpha en imágenes en Visual FoxPro" para Bernard Bout

Artículo original: Helper code to create image on the fly for "Using the Alpha Channel in Visual Foxpro Images" from Bernard Bout http://weblogs.foxite.com/cesarchalom/archive/2006/09/12/2445.aspx Autor: Cesar Chalom (http://weblogs.foxite.com/cesarchalom) Traducido por: Ana María Bisbé York (amby@telefonica.net) Para: PortalFox (http://www.portalfox.com)

He aquí otro código que asiste a Bernard Bout, al crear una imagen al vuelo, basado en su entrada de blog titulada: "Using the Alpha Channel in Visual Foxpro Images". Nuevamente, en este ejemplo, empleo las nuevas clases GDI+ del proyecto VFP-X que pueden ser descargadas desde: http://www.codeplex.com/Wiki/View.aspx?ProjectName=VFPX&title=GDIPlusX

Espero que esto ayude a Bernard !

Imagen original: Main.form.png

* Código para crear una imagen al vuelo parar
* Bernard Bout "Using the Alpha Channel in Visual Foxpro Images"
* http://weblogs.foxite.com/bernardbout/archive/2006/09/11/2436.aspx
* Dimensiones de la imagen 300 x 270 píxeles
* Hace toda la imagen totalmente transparente
* Dibuja un rectángulo amarillo claro - RGB(254,254,228) 
* centrado en la imagen principal.
* Guarda como PNG, para conservar la transparencia
_SCREEN.AddProperty("System", NEWOBJECT("xfcSystem", LOCFILE("system.vcx","vcx"))) 
WITH _SCREEN.System.Drawing
  * Crea un bitmap vacío
  LOCAL loBitmap AS xfcBitmap
  loBitmap = .Bitmap.New(300,270)
  * Inicializa el objeto gráfico
  LOCAL loGfx AS xfcGraphics
  loGfx = .Graphics.FromImage(loBitmap)
  * Hace toda la imagen transparente
  loGfx.Clear(.Color.FromARGB(0,0,0,0))
  * Dibuja el rectángulo amarillo
  loGfx.FillRectangle(.SolidBrush.New(.Color.FromRGB(254,254,228)), 10,9,278,249)
  * Guarda como PNG para mantener la transparencia
  loBitmap.Save("c:\BernardBoutAgain.png", .Imaging.ImageFormat.Png)
ENDWITH 
RETURN