Asi es con gdiplus, claro que podrias usar gdiplusX, pero esta en alpha...
Saludos,
Juan Luis Calcagno
CLEAR
SET CLASSLIB TO HOME(1)+"FFC\_gdiplus.vcx"
*Coordenadas del triangulo (u otro poligono)
DIMENSION taPoints (3,2)
taPoints (1,1) = 100
taPoints (1,2) = 50
taPoints (2,1) = 50
taPoints (2,2) = 150
taPoints (3,1) = 150
taPoints (3,2) = 150
* las definiciones de variables "local" son para proveer intellisense
LOCAL loGr AS GpGraphics OF _gdiplus.vcx
*crea el objeto graphics
oGr = NEWOBJECT('GpGraphics')
* indica el "host" donde va a dibujar, en este caso la screen de VFP,
* si se usa en un form, usar por oGr.CreateFromHWND( Thisform.HWnd )
oGr.CreateFromHWND(_SCREEN.HWND)
LOCAL loLineColor AS GpColor OF _gdiplus.vcx
LOCAL loPEN AS GpPen OF _gdiplus.vcx
*crea objeto COLOR
loLineColor = NEWOBJECT('GpColor','','', 0,0,100 )
*crea objecto PEN con el color loLineColor
loPEN = NEWOBJECT('GpPen', '' )
loPEN.CREATE( loLineColor, 3)
*Dibuja poligono
oGr.DrawPolygon(loPEN,@taPoints)
LOCAL loFillColor AS GpColor OF _gdiplus.vcx , loBrush AS GpSolidBrush OF
_gdiplus.vcx
*crea color de relleno
loFillColor = NEWOBJECT('GpColor','','', 0,0,255 )
*crea pincel con color de relleno definido anteriormente
* 2do parametro opcional como tengo SET CLASSLIB no es necesario,
* solo esta puesto para ver que se puede pasar la ubicacion de la clase
loBrush = NEWOBJECT('GpSolidBrush', 'ffc/_gdiplus.vcx','', loFillColor )
* pinta el poligono con el objecto pincel
* usando las mismas coordenadas con que se dibujo el perimetro
oGr.FillPolygon(loBrush,@taPoints)
----- Original Message -----
From: gonzalo_Gufa
To: gufa List Member
Sent: Tuesday, April 24, 2007 10:10 AM
Subject: [gufa] Objeto Triangulo
Ya probe solucionarlo con un container.
Puedo dibujar un triangulo, pero no puedo rellenarlo de un color, ya que
tengo un objeto container (cuadrado) y tres objetos Line.
Puedo pintar el borde (lines) pero no existe un relleno.
Si pinto el container, me pinta el cuadrado del container.
Slds.
----- Original Message -----
From: Martin Salias
To: gufa List Member
Sent: Tuesday, April 24, 2007 10:22 AM
Subject: [gufa] Objeto Triangulo
Trucho!
On 4/24/07, Christian Gutman <[EMAIL PROTECTED]> wrote:
Nop, pero lo podes hacer vos
Create un Container, y agrega las líneas (line)
Establece los puntos de referencia
Pone a transparente
Etc…
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de gonzalo_Gufa
Enviado el: lunes, 23 de abril de 2007 04:20
Para: gufa List Member
Asunto: [gufa] Objeto Triangulo
Tengo alguna manera de crear un objeto Triangulo ?
Necesito crear uno, y poder pintarlo de un color u otro en tiempo de
ejecucion.
Gracias, Gonzalo
__________ Información de NOD32, revisión 2213 (20070423) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
--
Martín Salías
www.Salias.com.ar
Agile Alliance Member - Microsoft MVP
