PC Toledo

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