Como inserir uma skin numa aplicação Delphi

[~~Surfistinha~~ 13]

• Requisitos:

 

VCLSkin

Endereço para download:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

• Utilização:

 

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

 

 

No evento formCreate do formulário principal carrego uma Procedure chamada CarregarSkin..

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

No Onclique do Botão “Fechar” do panel (ver 1º artigo) chame a procedure GravarIni();

 

GravaIni(ss); \\ Onde ss e a string que vai trazer o caminho da Skin Escolhida..

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

No onclick do button adicione a seguinte linha de comando:

 

//Isto irá carregar as skins dentro do listbox

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

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

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

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:

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

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.

 

Vlw