Get Redondos en un FOLDER ( RESUELTO )

[Patricio Avalos Aguirre]

Estimados

como colocar los get Redondos en los folder

estoy utilizando en dialogos normales asi:

Code: Select all  Expand view

oDlg:bPainted := {|| SetGetRounded(aGet[id_total], oDlg) }

ACTIVATE oDlg CENTERED

 

Ahora como puedo colocar en un FOLDER que esta en la posicion 5
lo he estado haciendo asi y no funciona

Code: Select all  Expand view

oDlg:bPainted := {|| SetGetRounded(aGet[id_total], oFolder )}
oDlg:bPainted := {|| SetGetRounded(aGet[id_total], oFolder:aDialogs[5] ) }

ACTIVATE oDlg CENTERED
 

alguna sugerencia

[Patricio Avalos Aguirre]

Esta es la solución

Code: Select all  Expand view

oFolder:aDialogs[5]:bPainted := {|| SetGetRounded(aGet[id_total], oFolder:aDialogs[5] ) }

gracias a mi mismo jaja

[Armando]

Patricio:

La función SetGetRounded() es nativa de FW ?

Saludos

[empresoft]

También quisiera saber, investigué ne que no se encuentra nada acerca de este comando


Luiz Fernando

[Patricio Avalos Aguirre]

Hola, en realidad no se que quien será el autor

//colocar un get redondo

Code: Select all  Expand view

function SetGetRounded( oControl, oDlg )
 local hBrush, hOldBrush

 if "TGET" $ oControl:ClassName()
    hBrush    := CreateSolidBrush( RGB( 255, 255, 255 ) )
    hOldBrush := SelectObject( oDlg:hDC, hBrush )

    RoundRect( oDlg:hDC, oControl:nLeft - 3                ,;
                         oControl:nTop  - 2                ,;
                         oControl:nLeft + oControl:nWidth  + 3,;
                         oControl:nTop  + oControl:nHeight + 2,;
                         oControl:nHeight / 2              ,;
                         oControl:nWidth                    )

    SelectObject( oDlg:hDC, hOldBrush )
    DeleteObject( hBrush )
 endif
return(.t.)
//--------------------------------------------------------------------------------------------------------

[empresoft]

interesante.


gracias


Luiz Fernando

[Armando]

Patricio:

Gracias !.

Saludos

[cuatecatl82]

Hola Saludos a la Comunidad...

Solo una observación:
Creo que solo funciona con GETS creados desde Código fuente, desde recursos no hay cambios, sigue con la forma cuadrada, o si estoy haciendo algo mal, corrijanme porfa..

Un abrazo..

[Patricio Avalos Aguirre]

Hola

En el recurso debes colocar SINBORDER