FiveTech Software tech support forums

Joäo,
se puede agregar la calculadora a la barra de tareas?

intento con:

DEFINE MSGITEM oMsg OF oWnd:oMsgBar ;
SIZE 24 ;
BITMAPS "CALCULADORA" ;
TOOLTIP "Calculadora de Windows" ACTION WinExec("CALC.EXE")

y me da error.. lo mismo si le quiero agregar un título a la Windows, los intentos que ...

... 2022

I open the application

in the main window at the bottom the application puts me a message " Archive not updated" or " Archive updated" in msgitem

the procedure to make me see this message must do a certain calculation:

I have as reference the last record of the archive which has the date ...

... pVzJt0Zp/warning2.png

If you save from forum you must rename the exstension of Bmps because postimages.org converte on Png




// Animations on MsgItem using Bmp and Timers

#include "FiveWin.ch"

static oWnd ...

Caro Silvio, tranquilo. Dear Silvio, calm down.
No sé por qué estás tan nervioso. I don't know why you're so nervous. hahahahahaha.

A ver si te ayuda:

C:\FWH..\SAMPLES\TESTMBAR.PRG

Regards, saludos.

Silvio,

First, I see lots of applications with those warning icons, but never flashing. I think to do that you would have to create a function that displays, removes, displays, removes the icon. That would certainly be a load on the CPU to constantly refresh the dialog to display it in a flash ...

Dear Silvio: Maybe,


IF !CheckEstrazione()
::oWnd:oMsgItem2:setBitmap("warning") // LoadBmp() ?
::oWnd:oMsgItem2:cMsg:="Archivio non aggiornato"
ELSE
::oWnd:oMsgItem2:setBitmap("check")
::oWnd:oMsgItem2:cMsg:="Archivio aggiornato"
ENDIF

::oWnd:oMsgItem2:Refresh()

// If( IsWindowVisible ...

Dear Silvio: Maybe,


IF !CheckEstrazione()
::oWnd:oMsgItem2:setBitmap("warning") // LoadBmp() ?
::oWnd:oMsgItem2:cMsg:="Archivio non aggiornato"
ELSE
::oWnd:oMsgItem2:setBitmap("check")
::oWnd:oMsgItem2:cMsg:="Archivio aggiornato"
ENDIF

::oWnd:oMsgItem2:Refresh()

// If( IsWindowVisible ...

When I activate the main windows I made

https://i.postimg.cc/7Zysy4MC/k.png


IF !CheckEstrazione()
::oMsgItem2:setBitmap("warning")
::oMsgItem2:cMsg:="Archivio non aggiornato"
else
::oMsgItem2:setBitmap("check")
::oMsgItem2:cMsg:="Archivio aggiornato"
Endif
::oMsgItem2:refresh()

How I ...