Gradiente en dialog con folder
Posted: Tue Aug 12, 2008 5:32 pmInspirado 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:
- Code: Select all Expand view
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 NIL
