Inspirado en los abundantes ejemplos recientes de manejo de gradiente posteados por Uwe y su contribuci贸n magn铆fica Bar_Gradient.exe.
Me he puesto a hermosear mis aplicaciones con 茅xito, pero me he enfrentado a una dificultad con una funci贸n que despliega casi todos los dialogos de mi apligaci贸n.
La misma maneja un folder dentro de una ventana.
Ya he visto esta pregunta por parte de Uwe sin respuesta..... pero insisto con la esperanza de que alguien pueda ayudarme.....
驴Como puedo lograr que el gradiente de la dialog se vea en la folder contenida en ella?
Gracias desde ya por sus aportes.
Aqu铆 la imagen del problema
aqu铆 una porci贸n del c贸digo:
Me he puesto a hermosear mis aplicaciones con 茅xito, pero me he enfrentado a una dificultad con una funci贸n que despliega casi todos los dialogos de mi apligaci贸n.
La misma maneja un folder dentro de una ventana.
Ya he visto esta pregunta por parte de Uwe sin respuesta..... pero insisto con la esperanza de que alguien pueda ayudarme.....
驴Como puedo lograr que el gradiente de la dialog se vea en la folder contenida en ella?
Gracias desde ya por sus aportes.
Aqu铆 la imagen del problema
aqu铆 una porci贸n del c贸digo:
DEFINE DIALOG oDlg RESOURCE "DLG_PAGE" TITLE cTitulo
REDEFINE FOLDER oPage PROMPT "Datos:" ID 102 OF oDlg DIALOGS cDlg_Hija TRANSPARENT
.......
oDlg:lTransparent :=.t.
oPage:lTransparent := .t.
oPage:aDialogs[1]:lTransparent := .t.
oDlg:Refresh()
oPage:Refresh()
oPage:aDialogs[1]:Refresh()
........
ACTIVATE DIALOG oDlg CENTERED ON PAINT gradpaint( hDC, oDlg )
..........
RETURN NIL
//------
STATIC FUNCTION gradpaint( hDC, oDlg )
LOCAL aGrad := { { 0.50,16711164,15653072 }, {0.50,15653072,16711164 } }
GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aGrad, .F. )
RETURN NILSaludos/Regards,
Jos茅 Murugosa
"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
Jos茅 Murugosa
"Los errores en programaci贸n, siempre est谩n entre la silla, el teclado y la IA!!"
