TGET.bGotFocus. No refresca despues de evaluar.

[tsales]

Antonio
Si ejecutas el código adjunto comprobaras que al coger el foco el Get no realiza el cambio de color. Lo cambia realmente si se instroduce algun valor.

Saludos
Toni Sales

#include "FWCE.ch"

//----------------------------------------------------------------------------//

function Main()

local oWnd, oGet
local cName := Space( 20 )

DEFINE WINDOW oWnd TITLE "Scroll"

@ 7, 8 GET oGet VAR cName OF oWnd SIZE 100, 18

oGet:bGotFocus := {|| oGet:SetColor(RGB( 0, 0, 0), RGB(155,255,200) )}

ACTIVATE WINDOW oWnd

return nil

[tsales]

Funciona correctamente si fuerzas con un Refresh().

oGet:bGotFocus := {|| oGet:SetColor(RGB( 0, 0, 0), RGB(155,255,200) ), oGet:Refresh()}

Saludos
Toni Sales

[Antonio Linares]

Toni,

Bien, bueno ya sabemos que es preciso un :Refresh() en Pocket PC. Gracias