Olá Forum,
estou usando um pushbutton em meu sistema e deparei-me com o seguinte problema.
Na função abaixo, gostaria que, ao receber o foco, o pushbutton tivesse uma única cor, sem destaque da tecla de aceleração.
Se o acesso se dá pelo teclado, funciona certinho.
Todavia, se o acesso é através da tecla quente (alt+p), a cláusula when que modifica as configurações de colorspec não é avaliada corretamente. Nada acontece.
Em TgetList há referência a GUIPrevalidate, mas não sei como atribuir a cláusula when a esse objeto.
Alguém pode me ajudar ?
Obrigado.
MarceloG
function main()
local cTeste1:=cteste2:=cteste3:=space(10)
local lPush
cls
@ 05,10 get cTeste1
@ 07,10 get cTeste2
@ 09,10 get cTeste3
@ 11,10 get lPush PUSHBUTTON CAPTION "&Push";
WHEN {|x|x:control:colorspec:="N/W+*,GR+/R,GR+/R,GR+/R",.t.};
STATE {||alert("Push")};
COLOR "N/W+*,GR+/R,GR+/R,R/W+*";
STYLE " "
read
return
Ajuda com pushbutton
Moderador: Moderadores