FiveTech Software tech support forums

Dear Yunus, samples\mariainv.prg is using a message bar on MDICHILD windows, in example: DEFINE MSGBAR oMsgBar OF oWndItems 2007 In order to use TABS instead of MSGBAR, then you should replace the above line with: @ 20, 0 TABS oWndItems:oBottom PROMPTS "One", "Two", ...

... of the `Deposits()` function to show the `INVNUM` field: ```xbase static function Deposits() local oBrw, oChild, cClrBack, cCol local oBar, oMsgBar, oMsgDeleted if oWndClients == nil Clients() endif if oWndItems == nil Items() endif if oWndDeposits == nil DEFINE WINDOW oWndDeposits MDICHILD ...

... Deposits function based on the Invoices function: xbase Code kopieren static function Deposits() local oBrw, oChild, cClrBack, cCol local oBar, oMsgBar, oMsgDeleted if oWndClients == nil Clients() endif if oWndItems == nil Items() endif if oWndDeposits == nil DEFINE WINDOW oWndDeposits MDICHILD ...

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

Estimado Carlos,

Haz esto despues de crear el MsgBar:

oMsgBar:lPaint3L = .F.

hi,

Natter wrote:oMsgBar:SetText("mytext")
oMsgBar:Refresh()

ah, i need :Refresh()
thx for help

oMsgBar:SetText("mytext")
oMsgBar:Refresh()

... + 1 ) ::oTabItem1:SetText( tran(::oBarProgress:nPos,'999999')+" di "+; tran(::oDbf:KeyCount(),'999999')) ::oWinTabellone:oMsgBar:Refresh() ::oDbf:Skip(-1) Enddo It seem not refresh the text on msgitem How I can resolve ?

Dear Robb,

Pleae try this:

oMsgBar:lInfoRes = .F.
oMsgBar:lCheckRes = .F.

... on Msgbar and it run ok METHOD CreateProgress() CLASS TPrevisioni      @ 02, 11 PROGRESS oApp:oBarProgress POSITION 1 of oApp:oWinMain:oMsgBar;      SIZE 200,18 pixel      oApp:oBarProgress:SetRange( 0, 100 )   RETURN NIL  https://i.postimg.cc/gj6knHYd/f.png ...

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" + " "; ...

Gracias por su ayuda, detectado y resuelto. El detalle esta en: BITMAPS 'AA_ICO' que defino en MSGITEM : DEFINE MSGITEM oMsgItem OF oWnd:oMsgBar PROMPT oVP:cUsuyPAC SIZE 5*len(oVP:cUsuyPAC) BITMAPS 'AA_ICO' Elimine BITMAPS de MSGITEM y lo cambie por: DEFINE ICON oIcon RESOURCE 'AA_ICO' oWnd:SetIcon(oIcon) ...

Después de un buen rato he encontrado el error, lo provoca esta línea: DEFINE MSGITEM oMsgItem OF oWnd:oMsgBar PROMPT oVP:cUsuyPAC SIZE 5*len(oVP:cUsuyPAC) BITMAPS 'AA_ICO' // ESTA LINEA PROBOCA EL ERROR Esta en el fuente: TestError.prg, línea 145, si omito esta línea todo ...

Dear Silvio,

Class TMsgItem does not inherit from Class TControl

You have to use ... OF oApp:oWndMain:oMsgBar

Maybe you could change the bitmap of the MsgItem with a timer, simulating a progress bar

I have a msgitem DEFINE MSGITEM ::oMsgItem4; OF ::oWndMain:oMsgBar; PROMPT ""; SIZE 400; BITMAPS "MSG_EOEO", "MSG_EOEO"; TOOLTIP " " and I wish show a Meter @ 02, 11 PROGRESS oApp:oProgressDlg POSITION 1 of oApp:oMsgItem4; ...