FiveTech Software tech support forums

SET MESSAGE OF ::oWinMain TO ::cMsgBar CENTER NOINSET DEFINE MSGITEM ::oMsgItem1; OF ::oWinMain:oMsgBar ; PROMPT "Archivio al 16 Maggio 2020" ; BITMAPS "MSG_ALERT", "MSG_ALERT"; SIZE 170 ; TOOLTIP " " + "Data" ...

... but on Main this have another message (cmsgBar) with not buttons SET MESSAGE OF ::oWndMain TO ::cMsgBar NOINSET https://i.postimg.cc/bJ4rkxSn/jk.png then I have another msgitems as you can see on picture but I wish use the first al left ...

... oIco NOMAXIMIZE DEFINE TIMER oTmr INTERVAL 2000 ACTION CheckSls(oLbx,oPrn) OF oWnd ACTIVATE TIMER oTmr DEFINE MESSAGE OF oWnd PROMPT "" NOINSET CENTERED KEYBOARD DATE CLOCK ACTIVATE WINDOW oWnd VALID MsgYesNo( HB_OemtoAnsi("¨ Salir del Programa ?") ,HB_OemtoAnsi("Seleccione ...

... I used to create the FW message bar: SET MESSAGE TO " Page 1 of 1 0 words English (United Kingdom)" OF oWnd color _nClrTxt, _nClrMsgBar noinset noborder Note that even though it is using the NOBORDER clause there is a white line between the client area of the window and the messagebar. ...

Saludos ; DEFINE MESSAGE OF oWnd ; PROMPT "BARRA DE MENSAJE" NOINSET CENTERED KEYBOARD DATE CLOCK Al colocar DATE y Clock el actualiza automaticamente ... lo puedes probar con la hora . y lo que puedes hacer es al momento de incluir tu registro verificas ...

... 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

... DEFINE CURSOR oCursorHand HAND AEval( oBar:aControls, { | o | o:oCursor := oCursorHand } ) DEFINE MESSAGE BAR OF oWnd TITLE FWCOPYRIGHT ; NOINSET DATE CLOCK KEYBOARD ACTIVATE WINDOW oWnd ; VALID ! lPreview .and. MsgYesNo( "Want to exit ?" ) return nil function BuildMenu() local ...

... "+aValor[4]+" ["+M->oPublic:cTemp+terminal+"]"; TIME DATE KEYBOARD; COLOR CLR_BLUE; FONT px:oDomiFontMsg; NOINSET oMsgprin:lInfoRes:=.f. DEFINE MSGITEM oMsgTTS OF oMsgprin PROMPT "TTS" ; SIZE 40; COLOR If(ltts,CLR_WHITE,CLR_GRAY),If(ltts,CLR_GREEN,CLR_HGRAY); ...

No Prefernces() is on strings.prg and I modify also New Method I insert then this line SET MESSAGE OF ::oWndMain TO ::cMsgBar CENTER NOINSET ::oWndMain:bInit := { || LoadPreferences() } then I modify this function at strimgs.prg because give me error SavePreferences() LoadPreferences() FWMissingStrings() ...

... Main LOCAL oWnd DEFINE WINDOW oWnd TITLE "Test" SET MESSAGE OF oWnd TO "Suporte: a.dutheil@pobox.com" CLOCK DATE KEYBOARD NOINSET 2007 ACTIVATE WINDOW oWnd ON INIT ( oWnd:oMsgBar:ClockOn(), oWnd:oMsgBar:DateOn(), Test( oWnd ) ) ; VALID if( MsgYesNo( "Confirma saída", ...

... Main LOCAL oWnd DEFINE WINDOW oWnd TITLE "Test" SET MESSAGE OF oWnd TO "Suporte: a.dutheil@pobox.com" CLOCK DATE KEYBOARD NOINSET 2007 ACTIVATE WINDOW oWnd ON INIT ( oWnd:oMsgBar:ClockOn(), oWnd:oMsgBar:DateOn(), Test() ) ; VALID if( MsgYesNo( "Confirma saída", ...

... oWNDW ON INIT (CreateWWButtonBar(),BuildWWMsgBar()) CENTERED Return NIL Static Function BuildWWMsgBar() SET MESSAGE OF oWNDW TO "" NOINSET 2007 Return NIL Static Function CreateWWButtonBar() Local oBTN:=Array(20) DEFINE BUTTONBAR oBARW SIZE 40,40 _3D OF oWNDW TOP 2007 DEFINE BUTTON ...

... Antonio: Gracias por responder. Modifique el código, y resuelve el problema de las TMsgIte:SetText(). Sin embargo algo pasa con las opciones NOINSET KEYBOARD TIME de TMsgbar http://www.sauro-sys.com/sites/default/files/Testmbar.JPG El problema ocurre cuando se crea un dialogo ...

HI, set message and define message is the same? i use this way: DEFINE MESSAGE oMsgBar OF oWndMain PROMPT oSys[_Sistema_] NOINSET KEYBOARD 2010 and dont respect colors of 2010 style. thaks for the code. :D sorry, in my code i put this line : /*oMsgbar:l2007 := TRUE */, without this ...

... DEFINE CURSOR oCursorHand HAND AEval( oBar:aControls, { | o | o:oCursor := oCursorHand } ) DEFINE MESSAGE BAR OF oWnd TITLE FWCOPYRIGHT ; NOINSET DATE CLOCK KEYBOARD ACTIVATE WINDOW oWnd ; VALID MsgYesNo( "Want to exit ?" ) return nil function BuildMenu() local oMenu MENU oMenu ...