Colocando aplicação Kylix no TrayIcon do KDE
Neste artigo explicarei como esconder uma aplicação da barra de tarefas no KDE colocando o ícone no TrayIcon.
Parte 2: Usando o QTrayIcon
Primeiramente, faça o download do arquivo em:
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:
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:
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;
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;
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;
Action := caNone;
Application.Minimize;
hide;
end;
OnHide:
begin
Icone.Show;
end;
Icone.Show;
end;
É bom saber que o pessoal do Kylix está "vivo" no VOL.
Parabéns!