Página 1 de 1

Tray Menu

Enviado: 28 Jan 2010 08:34
por asimoes
Senhores,

Tenho um aplicativo que fica rodando na barra de tarefas (em tray) usando a função InitTray.
Um dos parametros do metodo InitTray é o icone que será mostrado na barra.
Tem como mudar o icone em tempo de execução usando o comando set timer? Ou mostrar uma ação do sistema?
Este sistema que eu fiz faz impresão de arquivos txt gerados pelo clipper para uma impressora usb e estes arquivos são gravados na pasta c:\temp
Eu gostaria de fazer uma troca de icone no momento da impressão como uma espécie de animação do evento da impressão.

[]´s

Re: Tray Menu

Enviado: 31 Jan 2010 12:44
por sygecom
Pode usar assim:

Código: Selecionar todos

FUNCTION MUDA_ICONE
Local oIcon := HIcon():addResource( 1007 ) // icone que está no resource mas pode usar ADDFILE tmb.
ShellModifyIcon( oMainWindow:handle, oIcon:handle, "Novo texto do Icone" )
oMainWindow:Refresh()
Return

Re: Tray Menu

Enviado: 31 Jan 2010 19:32
por asimoes
Sygecom,

Funcionou perfeito.

Obrigado meu irmão.

[]´s