Problema con Gradient y Shortcut key
Posted: Wed Nov 06, 2013 2:24 pm
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:
Code: Select all
oWndChilds[1]:lTransparent = .F.Al pulsar ALT
los SAY los defino de la siguiente forma:
Code: Select all
REDEFINE SAY oSay[07] ID 825 OF oWndChilds[1] TRANSPARENT
Code: Select all
#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 NOMODAL