Colocando Skins com o VCLSkin

Veja nesse artigo como colocar skins nas aplicações utilizando o VCLSkin.

Você certamente já buscou diversas maneiras de deixar sua aplicação com um visual diferente. Existem vários componentes que prometem trazer este resultado para você, mas de todos que pude testar o mais impressionante e o que uso em minhas aplicações é o VclSkins.

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

Colocando Skins com o VCLSkin

Requisitos

VCLSkin

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:

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;

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

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

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;

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 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.

Artigos relacionados