progress on msgitem

[Silvio.Falconi]

I have a msgitem

DEFINE MSGITEM ::oMsgItem4;
OF ::oWndMain:oMsgBar;
PROMPT "";
SIZE 400;
BITMAPS "MSG_EOEO", "MSG_EOEO";
TOOLTIP " "

and I wish show a Meter

@ 02, 11 PROGRESS oApp:oProgressDlg POSITION 1 of oApp:oMsgItem4;
SIZE 200,18 pixel

make error
Error description: Error BASE/1004 Message not found: TMSGITEM:HWND
Args:
[ 1] = O TMSGITEM

Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TMSGITEM:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TMSGITEM:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TMSGITEM:HWND( 0 )
Called from: .\source\classes\TPROGRES.PRG => TPROGRESS:NEW( 122 )


before it run ok on Msgbar with

@ 02, 11 PROGRESS oApp:oProgressDlg POSITION 1 of oApp:oWndMain:oMsgBar;
*SIZE 200,18 pixel

How I can make to move the progress on oApp:oMsgItem4 ?

[Antonio Linares]

Dear Silvio,

Class TMsgItem does not inherit from Class TControl

You have to use ... OF oApp:oWndMain:oMsgBar

Maybe you could change the bitmap of the MsgItem with a timer, simulating a progress bar