En el help del vfp9 viene el siguiente ejemplo:
Habría que probar modificarlo para dibujar el polígono buscado.
DIMENSION poly[5,2]
poly[1,1]= 0
poly[1,2]= 50
poly[2,1]= 50
poly[2,2]= 100
poly[3,1]= 100
poly[3,2]= 50
poly[4,1]= 50
poly[4,2]= 0
poly[5,1]=0
poly[5,2]=50
frmMyForm = CREATEOBJECT('Form')
frmMyForm.AddObject('shpLine','Line')
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')
frmMyForm.shpLine.Top = 20
frmMyForm.shpLine.Left = 125
frmMyForm.shpLine.PolyPoints = "poly"
frmMyForm.shpLine.Visible = .T.
frmMyForm.cmdCmndBtn1.Visible =.T.
frmMyForm.Show
READ EVENTS
DEFINE CLASS cmdMyCmndBtn1 AS CommandButton
Caption = '\<Quit'
Cancel = .T.
Left = 125
Top = 150
Height = 25
PROCEDURE Click
CLEAR EVENTS
ENDDEFINE
-----Mensaje original-----
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Christian
Gutman
Enviado el: Martes, 24 de Abril de 2007 12:29 p.m.
Para: gufa List Member
Asunto: [gufa] Objeto Triangulo
Aca tenes para arrancar, usando gdi
http://weblogs.foxite.com/cesarchalom/archive/2006/03/24/1338.aspx
Christian
Pd. Para que después no me digan trucho
.
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de gonzalo_Gufa
Enviado el: martes, 24 de abril de 2007 11:11
Para: gufa List Member
Asunto: [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 <mailto:[EMAIL PROTECTED]>
To: gufa List Member <mailto:[email protected]>
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
__________ Información de NOD32, revisión 2215 (20070424) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.463 / Virus Database: 269.5.10/774 - Release Date:
23/04/2007 05:26 p.m.
