Necesito hacer un odontograma, pero no logro comprender como usar Polypoint

9,313 views
Skip to first unread message

Gabriel Palmieri

unread,
Aug 11, 2016, 3:57:37 PM8/11/16
to Comunidad de Visual Foxpro en Español

Hola a todos, desde ya les agradezco su tiempo para con mi problema, la cuestión es la siguiente, tengo que hacer un odontograma:



 Mi idea es mediante la propiedad Polypoint de los Shape lograr al menos 1 trapecio de los que rodean al cuadrado central y luego replicarlo, ya que tanto los cuadrados centrales como los trapecios luego deberán poder ser pintados de azul o rojo según el médico lo necesite, el problema es que no logro generar ninguna forma con la propiedad Polypoint, busqué otras publicaciones en este grupo, las leí y releí, copié código para tratar de comprendedlo mejor, pero ni cerda de lograr mi trapecio......

Acepto todo tipo de soluciones alternativas o explicaciones, debo aclarar y admitir que no hace mucho tiempo que programo en Fox por lo cual mis conocimientos son aún de un nivel bastante bajo, gracias nuevamente.

Irwin Rodriguez

unread,
Aug 11, 2016, 3:59:52 PM8/11/16
to publice...@googlegroups.com
Gabriel, yo hice uno hace tiempo, lo tengo integrado en un sistema de odontología que hice pero no me fue muy bien con la comercialización. Cualquier cosa me envías un email privado y conversamos.

Saludos...!!!
--
DISTRIBUIDORA IRSESU, C.A
J-29947174-7
Irwin Rodríguez - Director
Analista Programador - Freelance
+584125210679

Barquisimeto - Venezuela
Desarrollos online dentro y fuera del país

francisco prieto

unread,
Aug 11, 2016, 4:18:49 PM8/11/16
to publice...@googlegroups.com
Parece que lo odontogramas estan de moda... ;)
Interesante la idea del PolyPoint, pero creo que te estas complicando la vida, es mas fácil resolverlo con una clase contenedora de imágenes...

Saludos,

Pancho
Córdoba
Argentina

Mario López

unread,
Aug 11, 2016, 4:34:55 PM8/11/16
to Comunidad de Visual Foxpro en Español

@Gabriel: buenas, antes de hacer la pregunta hay que buscar un poco la respuesta en el foro, acá contesté exactamente como hacer un odontograma con PolyPoints donde cada diente quedaría así:

El código era

* Prueba PolyPoints para odontograma (VFP9)

WITH NEWOBJECT("xForm")
    .Show(1)
ENDWITH

DEFINE CLASS xForm as Form
    ADD OBJECT shpBorde1 as ShapeBorde WITH Rotation = 0
    ADD OBJECT shpBorde2 as ShapeBorde WITH Rotation = 90, BackColor = 65535
    ADD OBJECT shpBorde3 as ShapeBorde WITH Rotation = 180
    ADD OBJECT shpBorde4 as ShapeBorde WITH Rotation = 270
ENDDEFINE     

DEFINE CLASS ShapeBorde as Shape
    BackStyle = 1
    BorderWidth = 2
    BackColor = 16777215
    nWidth  = 100        && Alto / ancho del borde del grafico
    nHeight = 30        

    Width  = 100
    Height = 100

    PROCEDURE Init

    This.AddProperty("aPoints[5,2]")

    WITH This
        .aPoints[1,1] = 0
        .aPoints[1,2] = 0

        .aPoints[2,1] = .nWidth
        .aPoints[2,2] = 0

        .aPoints[3,1] = .nWidth - .nHeight
        .aPoints[3,2] = .nHeight

        .aPoints[4,1] = .nHeight
        .aPoints[4,2] = .nHeight

        .aPoints[5,1] = 0
        .aPoints[5,2] = 0

        .PolyPoints = [This.aPoints]
    ENDWITH

    ENDPROC 
ENDDEFINE

Te quedaría encapsular todo en una clase y generar un objeto para cada diente.

HTH
Mario

Gabriel Palmieri

unread,
Aug 12, 2016, 11:15:55 PM8/12/16
to publice...@googlegroups.com

Mil gracias, quizás no busqué tan bien como pensé, "Te quedaría encapsular todo en una clase",  hago una nueva clase y le agrego este Shape?

El 11/8/2016 17:35, "Mario López" <guag...@gmail.com> escribió:
>
> @Gabriel: buenas, antes de hacer la pregunta hay que buscar un poco la respuesta en el foro, acá contesté exactamente como hacer un odontograma con PolyPoints donde cada diente quedaría así:
>

> El código era
>
> * Prueba PolyPoints para odontograma (VFP9) WITH NEWOBJECT("xForm") .Show(1) ENDWITH DEFINE CLASS xForm as Form ADD OBJECT shpBorde1 as ShapeBorde WITH Rotation = 0 ADD OBJECT shpBorde2 as ShapeBorde WITH Rotation = 90, BackColor = 65535 ADD OBJECT shpBorde3 as ShapeBorde WITH Rotation = 180 ADD OBJECT shpBorde4 as ShapeBorde WITH Rotation = 270 ENDDEFINE DEFINE CLASS ShapeBorde as Shape BackStyle = 1 BorderWidth = 2 BackColor = 16777215 nWidth = 100 && Alto / ancho del borde del grafico nHeight = 30 Width = 100 Height = 100 PROCEDURE Init This.AddProperty("aPoints[5,2]") WITH This .aPoints[1,1] = 0 .aPoints[1,2] = 0 .aPoints[2,1] = .nWidth .aPoints[2,2] = 0 .aPoints[3,1] = .nWidth - .nHeight .aPoints[3,2] = .nHeight .aPoints[4,1] = .nHeight .aPoints[4,2] = .nHeight .aPoints[5,1] = 0 .aPoints[5,2] = 0 .PolyPoints = [This.aPoints] ENDWITH ENDPROC ENDDEFINE
>
> Te quedaría encapsular todo en una clase y generar un objeto para cada diente.
>
> HTH
> Mario
>
> ________________________________
>
> El jueves, 11 de agosto de 2016, 16:57:37 (UTC-3), Gabriel Palmieri escribió:
>>
>> Hola a todos, desde ya les agradezco su tiempo para con mi problema, la cuestión es la siguiente, tengo que hacer un odontograma:
>>
>>
>>

Gabriel Palmieri

unread,
Aug 13, 2016, 11:53:38 AM8/13/16
to Comunidad de Visual Foxpro en Español
No logro crear la clase para el Shape :(
Reply all
Reply to author
Forward
0 new messages