Page 1 of 1

Problema con Gradient y Shortcut key

Posted: Wed Nov 06, 2013 2:24 pm
by Blessed
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:

Code: Select all

oWndChilds[1]:lTransparent = .F.
Al inicio del dialogo
Image

Al pulsar ALT
Image

los SAY los defino de la siguiente forma:

Code: Select all

REDEFINE SAY   oSay[07] ID 825 OF oWndChilds[1] TRANSPARENT
 
El codigo resumido

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
 

Re: Problema con Gradient y Shortcut key

Posted: Wed Nov 06, 2013 3:09 pm
by Blessed
Hola amigos
De momento la solucion para evitar que los "SAY" funcionen corectamente elimine el "GRADIENT"