FiveTech Support Forums

#include "fivewin.ch"

#define GWL_STYLE          (-16)


FUNCTION Main()

   LOCAL oWnd, oMeter, oTimer
   
   DEFINE WINDOW oWnd
    
   SET MESSAGE OF oWnd TO "Testing" 2007
   
   @ 04, oWnd:oMsgBar:nWidth-111 PROGRESS oMeter POSITION 1 of oWnd:oMsgBar SIZE 94,18 pixel   

   oMeter:SetRange( 0, 100 ) 
   
   DEFINE TIMER oTimer INTERVAL 5 ACTION SetPosProg( oMeter, oTimer ) OF oWnd

   SetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE, nOr( GetWindowLong( oWnd:oMsgBar:hWnd, GWL_STYLE ), WS_CLIPCHILDREN ) )
 
   ACTIVATE WINDOW oWnd;
            ON INIT oTimer:Activate()
   
RETURN NIL

FUNCTION SetPosProg( oMeter, oTimer )

   oMeter:SetPos( oMeter:nPos + 1 )
   IF oMeter:GetPos() > 100
      oTimer:End()
   ENDIF
   
RETURN NIL