Bom dia, Seja bem vindos a mais uma video Aula. Essa Aula está sendo Gravada no dia 27 08 2019.
Dica 2262. Vou mostrar como usar .Iconize na versao 24. Colocar Executavel Bandeja
DICAS 2262 - WINDEV WEBDEV MOBILE - 24 NOVIDADES 50 - ICONIZE EXECUTAVEL NA BANDEJA
IF RECEBE_TIPO_OPERACAO=WM_LBUTTONUP THEN Info("AQUI UMA MENSAGEM QUALQUER")
END
//Botão esquerdo para baixo: WM_LBUTTONDOWN = 513
//Botão esquerdo para cima: WM_LBUTTONUP = 514
//Clique duas vezes no meio: WM_MBUTTONDBLCLK = 521
//Botão do meio para baixo: WM_MBUTTONDOWN = 519
//Botão do meio para cima: WM_MBUTTONUP = 520
//Clique com o botão direito do mouse: WM_RBUTTONDBLCLK = 518
//Botão direito para baixo: WM_RBUTTONDOWN = 516
//Botão direito para cima: WM_RBUTTONUP = 517
//Os diferentes tipos de operações para a caneta são:
//Clique duas vezes: WM_LBUTTONDBLCLK = 515
//Botão para baixo: WM_LBUTTONDOWN = 513
//Botão para cima: WM_LBUTTONUP = 514
Nessa aula vou Mostrar como Fazer um Sistema Ficar na Bandeja Windows
PROCEDURE MaFenêtre()
IF ExeRunning(ExeInfo(exeNom))>1 THEN
Info("Ja esta aberto o Programa")
EndProgram(True)
END
//colocar esses comandos no Code da Window Principal
CONSTANT
wm_lbuttondblclk = 513 // botao direito do mouse
END
SysIconAdd("matos.ico","MENU_popup_Bandeja","Matos Utilitários","procedure_inicio")
//MENU_popup_Bandeja = Menu Popup
//Matos Utilitários = Titulo da Janela
//procedure_inicio = nome da procedure
//http://windevdesenvolvimento.blogspot.com.br/2015/12/windev21-curso-174-sistema-bandeja-no.html
SysIconDisplayTooltip("Matos Informatica - Utilitários - amarildo@matosinformatica.com.br - 35821451")
Iconize(FEN_matos_principal)
FenEtat(FEN_matos_principal,Invisible)
//WinStatus(FEN_matos_principal,Invisible) // em ingles
PROCEDURE procedure_inicio(stylusmessage)
IF stylusmessage=wm_lbuttondblclk THEN
