Tray nao funciona no Harbour?
Enviado: 03 Mai 2015 08:52
Pessoal,
O codigo abaixo funciona como é pra ser no xHarbour1.2.1, ou seja, a aplicação e inicia no tray do windows. Mas no HARBOUR 3.2 a aplicação abre como uma janela preta e so.
Ha algo mais a fazer no harbour?
hbp
O codigo abaixo funciona como é pra ser no xHarbour1.2.1, ou seja, a aplicação e inicia no tray do windows. Mas no HARBOUR 3.2 a aplicação abre como uma janela preta e so.
Ha algo mais a fazer no harbour?
Código: Selecionar todos
#include "windows.ch"
#include "guilib.ch"
#include "hwgui.ch"
#include "common.ch"
Function notifi
Private oMainWindow, oTrayMenu, oTimer1
Private oIcon:= HIcon():AddResource(100)
INIT WINDOW oMainWindow MAIN TITLE "System Tray"
SET TIMER oTimer1 OF oMainWindow VALUE 10000 ACTION {|| teste() }
CONTEXT MENU oTrayMenu
MENUITEM "Configurações" ACTION {|| msginfo("aqui")}
SEPARATOR
MENUITEM "Sair" ACTION {|| Sair()}
ENDMENU
oMainWindow:InitTray(oIcon,,oTrayMenu,"System tray")
ACTIVATE WINDOW oMainWindow NOSHOW
oTrayMenu:End()
Return
Static Function teste
MsgInfo('Eu aquiiiiiiiiiiiiiiii')
return .t.
Function Sair
*************
IF MsgYesNo("Deseja Realmente Sair","Aviso do Sistema")
oMainWindow:Close()
quit
endif
Return
Código: Selecionar todos
----------------
# Nome do Execut vel
# ---------------------------
-oTray
-run
# ---------------------------
# Parametros
# ---------------------------
-gui
# ---------------------------
# Bibliotecas
# ---------------------------
-lhwgui
-lprocmisc
-lhbxml
-lxhb
# ---------------------------
# Prg(s) e Rc(s)
# ---------------------------
terminal.prg