topic-32707

kajot

Posts: 357

Joined: Thu Nov 02, 2006 06:53 PM

refresh MESSAGE

Posted: Thu Jul 14, 2016 08:56 PM

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

best regards

kajot

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: refresh MESSAGE

Posted: Thu Jul 14, 2016 09:34 PM

Code (fw): Select all Collapse

   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()

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

kajot

Posts: 357

Joined: Thu Nov 02, 2006 06:53 PM

Re: refresh MESSAGE

Posted: Fri Jul 15, 2016 04:10 PM

a thousand thanks

best regards

kajot

FiveTech Support Forums

refresh MESSAGE

Re: refresh MESSAGE

Re: refresh MESSAGE

Continue the discussion