Update the Message bar

Update the Message bar

Postby Rick Lipkin » Mon Jul 16, 2007 7:03 pm

To All

I have a message bar :

xMESSAGE := "User "+xLOGIN+" Rights "+cRIGHTS+ ;
" Default= "+cDEFA+" Rdd= "+cRDD+ ;
" Revision "+DTOC(dEXE)+;
" -r"+str(nSCR1,4)+" x "+STR(nSCR2,4)


SET MESSAGE OF oWind ;
to xMESSAGE CLOCK

How can I update the message bar when one of my variables change ?

Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2663
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Postby Armando » Mon Jul 16, 2007 8:24 pm

Rick:

Just redraw the message bar after your vars are updated.

SET MESSAGE OF oWind to xMESSAGE CLOCK

Regards
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3201
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby Rick Lipkin » Mon Jul 16, 2007 8:54 pm

Armondo

You got me in the right direction .. I had to look at the .ppo and then I inserted the native code in my button :

oWind:oMsgBar := TMsgBar():New(oWind,xMESSAGE,.F.,.T.,.F.,.F.,,,,)

and the above worked !!

Thanks
Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2663
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Postby Gale FORd » Mon Jul 16, 2007 9:07 pm

How about

SET MESSAGE OF oWnd TO "First Text"

oWnd:oMsgBar:KeybOn()
oWnd:oMsgBar:ClockOn()
oWnd:oMsgBar:DateOn()
cText := 'Second Text'
oWnd:oMsgBar:SetText( cText )
Gale FORd
 
Posts: 663
Joined: Mon Dec 05, 2005 11:22 pm
Location: Houston

Postby Rick Lipkin » Mon Jul 16, 2007 10:33 pm

Gale

Sorry .. could not get you code to work :x .. However I am happy with re-issuing the native code.

Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2663
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Postby Gale FORd » Mon Jul 16, 2007 10:54 pm

Sorry your window var was oWind not oWnd.

Anyway glad you are ok.
Gale FORd
 
Posts: 663
Joined: Mon Dec 05, 2005 11:22 pm
Location: Houston


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 62 guests