FiveTech Software tech support forums

... RESOURCE "background"

DEFINE WINDOW oWnd MENU BuildMenu() TITLE "My app"

BuildBar( oWnd )

DEFINE MSGBAR oMsgBar OF oWnd PROMPT "My app" NOINSET

ACTIVATE WINDOW oWnd MAXIMIZED ;
ON PAINT DrawTiled( hDC, oWnd, oBmpTiled )

oBmpTiled:End()

return nil

function BuildMenu()

local oMenu ...

... bmp" FLAT ;
ACTION( oWnd:End(), LIBERA_TUDO() ) TOOLTIP "Exit this app" GROUP

DEFINE MESSAGE OF oWnd ;
PROMPT FWVERSION + " " + FWCOPYRIGHT ;
NOINSET CENTERED KEYBOARD DATE CLOCK 2007

DEFINE BITMAP oBmp FILENAME "..\bitmaps\visual.bmp"

oWnd:bPainted = {| hDC | BmpTiled( hDC, oWnd, oBmp ...

... 16x16\Exit.bmp" FLAT ;
ACTION oWnd:End() TOOLTIP "Exit this app" GROUP

DEFINE MESSAGE OF oWnd ;
PROMPT FWVERSION + " " + FWCOPYRIGHT ;
NOINSET CENTERED KEYBOARD DATE CLOCK

DEFINE BITMAP oBmp FILENAME "..\bitmaps\fiveback.bmp"

oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ...

... DEFINE WINDOW oWnd MDI ;
TITLE "Control de Mantenimientos";
MENU BuildMenu(oWnd) MDI ;
ICON oIco

DEFINE MESSAGE OF oWnd PROMPT cUsuario ;
NOINSET CENTERED KEYBOARD DATE CLOCK

ACTIVATE WINDOW oWnd MAXIMIZED ;
VALID MsgYesNo( HB_OemtoAnsi("¨ Salir del Programa ?") ,HB_OemtoAnsi("Seleccione ...

... DEFINE WINDOW oWnd MDI ;
TITLE "Control de Mantenimientos";
MENU BuildMenu(oWnd) MDI ;
ICON oIco

DEFINE MESSAGE OF oWnd PROMPT cUsuario ;
NOINSET CENTERED KEYBOARD DATE CLOCK

ACTIVATE WINDOW oWnd MAXIMIZED ;
VALID MsgYesNo( HB_OemtoAnsi("¨ Salir del Programa ?") ,HB_OemtoAnsi("Seleccione ...

... ACTION( oWnd:End() ) TOOLTIP "Exit this app" GROUP

DEFINE MESSAGE OF oWnd PROMPT FWVERSION + " <-kapiabafwh@gmail.com-> " + ;
FWCOPYRIGHT NOINSET CENTERED KEYBOARD DATE CLOCK 2007

ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL

/* O:
ShellExecute( ,"open", cFicheroPdf,,,1 )
*/

// FIN / END ...

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" + " ";
ACTION NIL

Can I flash a small icon on a msgitem of bar

... 46;postimg&#46;cc/pTRnyY8L/jj&#46;png


but on Main this have another message (cmsgBar) with not buttons

SET MESSAGE OF ::oWndMain TO ::cMsgBar NOINSET

https&#58;//i&#46;postimg&#46;cc/bJ4rkxSn/jk&#46;png

then I have another msgitems as you can see on picture but I wish use the first al left ...

... ICON 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 opci¢n ...

... the code 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. It ...

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 igualmente date()
Espero me entiendas y te ...

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

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

... substr(aValor[5],1,1)=="D","*","")+" "+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 ...

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