Colocando Skins com o VCLSkin

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (1)

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.

Requisitos VCLSkin - www.clubedelphi.net/aplicativos/skins.zip

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;

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

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?