Daniel,
Utilizando SET MESSAGE com a clausula 2007(Apenas com 2007), ao mover o MOUSE para os lados o PROGRESS BAR que adicionei na MESSAGE BAR fica PISCANDO e só para de PISCAR se eu parar de mover o mouse.
set message of ownd to ... 2007
define msgitem omicasill2 of ownd:omsgbar size 110
@ 04,ownd:omsgbar:nWidth-111 progress ometer position natual of ownd:omsgbar size 94,18 pixel
Tem alguma idéia do que pode estar acontecendo?
Muito Obrigado
#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 NILDaniel,
Simplesmente FANTASTICO!!!
Muito obrigado
Excelente...
Muchas Gracias 
