Saludos
Estoy usando en mis dialogos GRADIENT y en los botones uso teclas atajo (Shortcut key) como PROMPT "&Salir". Al presionar la tecla ALT + S desaparecen todos los SAY en el dialogo son repintados en blanco.
Para que los colores de algunos "SAY" sean los que necesito, uso:
Al inicio del dialogo
Al pulsar ALT
los SAY los defino de la siguiente forma:
El codigo resumido
Estoy usando en mis dialogos GRADIENT y en los botones uso teclas atajo (Shortcut key) como PROMPT "&Salir". Al presionar la tecla ALT + S desaparecen todos los SAY en el dialogo son repintados en blanco.
Para que los colores de algunos "SAY" sean los que necesito, uso:
oWndChilds[1]:lTransparent = .F.Al inicio del dialogo
Al pulsar ALT
los SAY los defino de la siguiente forma:
REDEFINE SAY oSay[07] ID 825 OF oWndChilds[1] TRANSPARENTEl codigo resumido
#define DLG_COTIZA 100
DEFINE FONT oFont NAME "Arial" SIZE 0, -22 BOLD
DEFINE DIALOG oWndChilds[1] RESOURCE DLG_COTIZA GRADIENT oApp:bGradient
oWndChilds[1]:lTransparent = .F.
REDEFINE BUTTON oBtn[3] ID 800 OF oWndChilds[1] ;
ACTION oWndChilds[1]:End()
REDEFINE SAY oGet[5] VAR aTotal[4] ID 811 OF oWndChilds[1] FONT oFont ;
COLOR CLR_WHITE, CLR_BLUE PICTURE "99,999,999.99"
REDEFINE SAY oSay[06] ID 824 OF oWndChilds[1] TRANSPARENT
REDEFINE SAY oSay[07] ID 825 OF oWndChilds[1] TRANSPARENT
ACTIVATE DIALOG oWndChilds[1] CENTERED NOMODALOscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06