FiveTech Software tech support forums

... Gris 8421504 #Define GrisB 12632256 #Define Amarillo 65535 #Define Blanco 16777215 // #define GHW_HWNDFIRST 0 #define GHW_HWNDNEXT 2 Static oApp,oTray,oIcon,oFondo1,oTimer,Controlador,LaIP,SerRemoto,RutaDat,SalgoSN Static MaxSurt,MaxIsla,MaxTanq,MaxProd,VecPico[128],VecEst[20] Static Type,St,Message,ErrorCode,Pid,PeriodType,Pte,PeriodInfo ...

... FUNCTION TaskMenu( nRow, nCol ) DEFINE FONT oFontMenu NAME "Verdana" SIZE 0, -14 BOLD MENU oTrayMenu POPUP FONT oFontMenu 2013 ; NOBORDER ; // UPPERMNU ; LOGOMENU "acessosoftv.png" ; COLORSEPARATOR CLR_RED ; COLORMENU CLR_WHITE, ...

Yes, that is excactly how I built the oTray, using testtray.prg from samples.

I am trying to build your example but I can find how you build oTray

Please provide a complete example to test it here, thanks

... "Estado" action oMenu MENUITEM "Salir" action CloseTask() oMenu:l2007:=.t. endmenu activate popup oMenu at nRow, nCol of oTray:oWnd Un Saludo.-

Sr. Antonio, resolvido desta maneira: static function MenuTray(nRow, nCol, oTray) local oMenu MENU oMenu POPUP MENUITEM "Configurar" ACTION configurar() MENUITEM "Fechar" ACTION Fecha() ENDMENU ACTIVATE POPUP oMenu AT nRow, nCol OF oTray:oWnd msgwait("Aguarde...",,.02) ...

... tray icon for any windows, including NT, 2000 and XP. This class extracts a 32bit handle icon from a file( .EXE , .ICO, .DLL, etc... ) DATAS: oTray : Object Tray oWnd : Window that the tray icon is linked cIcon : Specified path + file to get the icon nIcon : Icon number from file(use 0 for ...

Help me.... What i need to do now ??? Antonio onde yo tengo que usar los codigos abaixo c := oTray:cBuffer c = GetNotifyIconData( ::oWnd:hWnd, 1, WM_TASKBAR, oIcon:hIcon, "text of the tooltip", "The Title" ) ::lSuccess = Shell_NotifyIcon( If( lAdd, NIM_ADD, NIM_MODIFY ...

... Now you should be able to properly compile the C source code. Also, place this line here: c := oTray:cBuffer c = GetNotifyIconData( ::oWnd:hWnd, 1, WM_TASKBAR, oIcon:hIcon, "text of the tooltip", "The Title" ) ::lSuccess = Shell_NotifyIcon( If( ...

Antônio, the lines 287 and 288 are: oTray:Refresh() IF !oTray:lSuccess The program is a small application that reads a file that contains HP´s PCL laser printer control codes and "translate" into a Windows printing so I can print to any printer. ...

Davide, >In effect this happens when oTray:lSuccess=.f. and I repaint the tray icon with a New(). Perhaps I just need to delay the new tray creation in these rare cases. Well, I'm confused. I don't see a lSuccess var in the TTray class. Are ...

James,

> Sometimes these strange ones are timing related.

thank you. You gave me a good idea.

In effect this happens when oTray:lSuccess=.f. and I repaint the tray icon with a New(). Perhaps I just need to delay the new tray creation in these rare cases.

Thank you,
Davide

... de botones. * Mejora: En la clase TTrayIcon nuevo DATA lSuccess para comprobar si el icono aparece en la barra de sistema. Esto permite hacer oTray:SetIcon() cada cierto tiempo. Si oTray:lSuccess es .F., entonces podemos hacer oTray:End() y oTray:New() para que reaparezca el icono en la barra ...

... when placed on button bars. * Enhancement: CLASS TTrayIcon new DATA lSuccess to check if the tray icon was properly set. This allows to perform an oTray:SetIcon() from time to time. If oTray:lSuccess is .F., then I can oTray:End() and oTray:New() again to have the icon reappearing. Thanks to Davide! ...

... click it to access the program's menu (for example) So, I made the small changes below in TTray.prg: 14. CLASS TTrayIcon 15. 16. DATA oTray 17. DATA oWnd 18. DATA oIcon 19. DATA cCaption DATA lSuccess // <-- 20. 21. DATA bLClicked .... 124. ...