Colocando aplicação Kylix no TrayIcon do KDE

fabmas

Neste artigo explicarei como esconder uma aplicação da barra de tarefas no KDE colocando o ícone no TrayIcon.

[ Hits: 15.410 ]

Por: Fabio Massalino em 28/09/2004 | Blog: http://www.optimusconsulting.com.br

0 0

Denuncie Favoritos Indicar Impressora

Usando o QTrayIcon

Primeiramente, faça o download do arquivo em:

http://unvclx.sourceforge.net/downloads/unitcomp/QTrayIcon.tar.gz

Descompacte-o no diretório /[kylix path]/lib:

$ tar -xvzf QtrayIcon.tar.gz

Abra o kylix e crie uma nova aplicação.

Na Unit1, vá na cláusula USES, e acrescente no final:

QtrayIcon

Acrescente no Form1 os seguintes componentes:

PopUpMenu;
Image.

No Image1, insira o ícone que você quer que apareça no trayicon.

IMPORTANTE: A imagem precisa ter a extensão .ico.

No popUpMenu, insira as opções que aparecerá ao clicar, com o botão direito do mouse, em cima do ícone.

Vamos a programação:
Na cláusula Types, crie o seguinte objeto, na seção Private:

icone: TTrayIcon;

Crie a procedure TrayDblClick, com os seguinte código:

procedure TrayDblClick(Sender: Tobject);
begin
Visible := True;
WindowState := wsNormal;
end;

Adicione os seguintes eventos do Form1:

OnCreate:

begin
Icone:= TTrayIcon.Create(self);
Icone.PopupMenu := PopUpMenu1;
Icone.OnDblClick := TrayDblClick;
Icone.ToolTip := 'Aplicação'; //Hint do aplicativo
Icone.ShowToolTip := True;
Icone.Icon := Image1.Picture.Icon;
end;

OnClose:

begin
Action := caNone;
Application.Minimize;
hide;
end;

OnHide:

begin
Icone.Show;
end;

Página anterior Próxima página

Páginas do artigo

   1. Introdução
   2. Usando o QTrayIcon
   3. Conclusão

Outros artigos deste autor

Criando uma aplicação Kylix com PostgreSQL usando Zeos (parte 3)

Criando uma aplicação Kylix com PostgreSQL usando Zeos (parte 1)

Criando uma aplicação Kylix com PostgreSQL usando Zeos (parte 2)

Leitura recomendada

Integrando saídas de comandos shell com sua aplicação Kylix

Aprendendo a modelar forms no Kylix

Como fazer seu programa Kylix chamar uma aplicação externa

Criando uma aplicação que mostra os processos em execução

TCollection e Generics no Free Pascal - Uma breve visão sobre lista de objetos com o Lazarus

Comentários

[1] Comentário enviado por engos em 28/09/2004 - 08:45h

Muito bom o artigo.

É bom saber que o pessoal do Kylix está "vivo" no VOL.

Parabéns!

0 0

[2] Comentário enviado por AValle em 29/09/2004 - 06:40h

http://clubekylix.com.br/html/modules/news/article.php?storyid=8
Parabéns :)

0 0

[3] Comentário enviado por valmorflores em 06/10/2004 - 10:15h

Excelente artigo.

Mais uma prova de que devemos fazer por nós mesmos e continuar o desenvolvimento na linguagem ou ambiente que acreditamos, ignorando as "Tendências", que muitas vezes são manipuladas por jogadas de marketing de algumas empresas. Por enquanto estou dando um /ignore .NET e continuando no universo multi-plataforma no braço.

Valeu Fabio!

0 0