FiveTech Support Forums

#include "FiveWin.ch"

#define GRAY_BRUSH  2

function Main()

   local oDlg, cText := "Hola", oTmr 

   DEFINE DIALOG oDlg

   @ 1, 1 GET oGet VAR cText SIZE 60, 10

   @ 3, 10 BUTTON "ok"

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT oTmr := BuildTimer( oDlg, oGet ) ;
      VALID ( oTmr:End(), .T. ) 

return nil

function BuildTimer( oDlg, oGet )

   local oTimer

   DEFINE TIMER oTimer INTERVAL 700 ACTION PaintCaret( oGet ) OF oDlg
   
   ACTIVATE TIMER oTimer
   
return oTimer

function PaintCaret( oGet )

   static lVisible := .F.
   
   if ! lVisible
      FillRect( oGet:GetDC(), { 2, 2, 14, 10 }, GetStockObject( GRAY_BRUSH ) )
   
      oGet:ReleaseDC()
   else
      oGet:Refresh()
   endif      

   lVisible = ! lVisible
   
return nil