Pode ser usado os skins em um determinado form ou em toda aplicação. Neste artigo vou mostrar como usar em toda aplicação.

• Requisitos:

VCLSkin
Endereço para download: Clique Aqui

• Utilização:

Após instalar o componente no delphi, copie a pasta skins para o lugar onde salvou o projeto.

Crie uma nova aplicação, no form adicione um Listbox, button e o componente SkinData.

1- No onclick do button adicione a seguinte linha de comando:

//Isto irá carregar as skins dentro do listbox
var
  Procurar : TSearchRec;
  Arquivos: Integer;
Begin

  CaminhoDasSkins := ExtractFilePath(Application.ExeName) + 'skins\*.skn';
  Arquivos := 0;
  Arquivos := Arquivos + faDirectory;
  Arquivos := Arquivos + faArchive;
  Arquivos := Arquivos + faAnyFile;
  if FindFirst(CaminhoDasSkins, Arquivos, Procurar) = 0 then
  begin
    repeat
      if (Procurar.Attr and Arquivos) = Procurar.Attr then
        ListBox1.Items.Add(Procurar.Name);
    until FindNext(Procurar) <> 0;
    FindClose(Procurar);
end;

No evento Onclick do ListBox adicione a seguinte linha de comando:

Crie as variáveis: CaminhoDasSkins , ss : string;

var
  i : integer;
begin
  i := ListBox1.ItemIndex;
  ss := Copy(CaminhoDasSkins,1,Pos('*.skn',CaminhoDasSkins)-2)+'\'+ListBox1.items.strings[i];
  SkinData1.SkinFile := ss;
  if not SkinData1.Active Then SkinData1.Active := True;

end
 
Agora rode a aplicação e clique no button para carregar as skins.

Depois clique nas skins carregadas dentro do listbox e veja como muda todo o visual da aplicação. Adicione ao exemplo menus, caixas de diálogos, buttons, grids e veja como todos os componentes alteraram seu visual.

Pode ser baixado o exemplo criado neste artigo em:
http://www.infonet.com.br/procompanysistemas/artigos/skins.rar

Pode ser criado um arquivo .ini para guardar a última seleção da skin para quando voltar a rodar a aplicação trazer carregada a última skin escolhida, mas isto fica para um novo artigo.

Espero ter ajudado, qualquer outra dúvida, entre em contato comigo.


Valdomiro Farias de Andrade Júnior
ProCompany Sistemas - Analista de Sistemas
procompanysistemas@infonet.com.br