Page 1 of 1
Get Redondos en un FOLDER ( RESUELTO )
Posted:
Fri Sep 04, 2009 9:05 pm
by 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
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Sat Sep 05, 2009 2:12 pm
by 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
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Sat Sep 05, 2009 3:16 pm
by Armando
Patricio:
La función SetGetRounded() es nativa de FW ?
Saludos
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Sat Sep 05, 2009 6:36 pm
by empresoft
También quisiera saber, investigué ne que no se encuentra nada acerca de este comando
Luiz Fernando
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Mon Sep 07, 2009 2:08 am
by 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.)
//--------------------------------------------------------------------------------------------------------
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Mon Sep 07, 2009 12:49 pm
by empresoft
interesante.
gracias
Luiz Fernando
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Mon Sep 07, 2009 2:07 pm
by Armando
Patricio:
Gracias !.
Saludos
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Mon Sep 07, 2009 4:19 pm
by 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..
Re: Get Redondos en un FOLDER ( RESUELTO )
Posted:
Mon Sep 07, 2009 7:39 pm
by Patricio Avalos Aguirre
Hola
En el recurso debes colocar SINBORDER