Para Daniel Garcia - Gil

[MGA]

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

[Daniel Garcia-Gil]

SGS...

La clase TMsgBar no esta diseñada paera ser contenedora de otros objetos

podrias resolverlo por esta via:

Code: Select all  Expand view

#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
 

[MGA]

Daniel,

Simplesmente FANTASTICO!!!

Muito obrigado

[leandro]

Excelente...

Muchas Gracias