refresh MESSAGE

[kajot]

How may I refresh xMESSAGE in MESSAGE mainly msc_m and rok_m ?

best regards
kajot

//----------------------------------------------------------------------------//
function Main()

SET _3DLOOK ON

public oApp, oMsgBar

MSC_M:=1
ROK_M:=2016

SET _3DLOOK ON // Microsoft 3D Look
DEFINE FONT oFont NAME "ARIAL CE" SIZE 0, -12

DEFINE WINDOW oApp TITLE "Apps" ;
MENUINFO 3 ;
MENU BuildMenu() ;
MDI //STYLE 2007

xMESSAGE:='v.2016.06b | Okres '+str(msc_m,2)+'/'+str(rok_m,4)
SET MESSAGE OF oApp TO xMESSAGE CLOCK DATE KEYBOARD NOINSET 2010

ACTIVATE WINDOW oApp MAXIMIZED on CLICK (oApp:refresh(), oApp:setfocus() )

RETURN NIL

[cnavarro]

Code: Select all  Expand view

   DEFINE MSGBAR oMsgBar OF oWnd ;
      PROMPT "[ Fivetech Software 2016 ]" 2010
     
   oMsgBar:nClrText := CLR_BLUE
   oMsgBar:SetFont( oFontX )

   DEFINE MSGITEM oAnota PROMPT "Annotations are Active" + ": NO"  OF oMsgBar SIZE 200

   DEFINE MSGITEM oModify PROMPT FWString( "File has changed" ) + ": YES"  OF oMsgBar SIZE 200 //COLOR CLR_BLUE, CLR_WHITE

.../....

//oAnota:Refresh()
oModify:SetText( FWString( "File has changed" ) + ": NO"
oModify:Refresh()

 

[kajot]

a thousand thanks