FiveTech Software tech support forums

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