Otto wrote:Hello Samir,
can you please post the Workaround.
Thanks in advance
Otto
- Code: Select all Expand view
oGet:cPicture := cMascara
oGet:oGet:Picture := cMascara
bBackupValid := oGet:bValid
oGet:bValid := {||.T.}
Pause(0.01)
oGet:bValid := bBackupValid
oGet:Refresh()
****************************************************************************
procedure Pause( nSeconds)
****************************************************************************
local oDlgPause, bAction
local nStart := GetTickCount()
Default nSeconds := 1
bAction := { || WaitSeconds( nSeconds ) }
DEFINE DIALOG oDlgPause;
FROM -10,-10 TO 1, 1;
STYLE nOr( DS_MODALFRAME, WS_POPUP )
oDlgPause:nTop := -20
oDlgPause:nLeft := -20
oDlgPause:bStart := { || Eval( bAction, oDlgPause ), oDlgPause:End(), SysRefresh() }
ACTIVATE DIALOG oDlgPause
Return NIL
