Conheça o Plugfeed | » Início » Programação » Alterando Visual da Aplicação (Skins)
Conheça o Plugfeed | » Início » Programação » Alterando Visual da Aplicação (Skins) -->
 
Avaliação: | Publicado em: 05/09/2005
Alterando Visual da Aplicação (Skins)
Valdomiro Jr Valdomiro Jr. trabalha atualmente desenvolvendo aplicações usando Delphi/Oracle a 4 anos.
Alterando Visual da Aplicação (Skins)

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 testei 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 (baixe ao final da página)

• 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 ao final da página.

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.

Francisco Samir <fsfp@walla.com>
Valeu, deu certo!
...mas será que vc não teria mesmo assim o crack ai...!!!!!!!

Obigado!
Mackintosh <ejmachado@bol.com.br>
Pena que o arquivo compactado está corrompido
Ola Valdomiro, eu uso o vcl skin 4.76.04.11 , vc teria o crack desse pra me arrumar .

desde ja agradeço a atenção
Gostei da informação.
Gostaria de saber se existe uma versão para para o vb, ou se esse vclskin serve?

Obrigado.
.Edilson
Rubem Nascimento da Rocha <djpardalrocha@hotmail.com>
Pô, pessoal! Ficar pedindo crack é de última! Nada a ver com o propósito deste site! Semancol!
Muuito bom. Gostei bastante, mas acho que o arquivo vclskin-2.rar está corrompido, pois não consigo descompactá-lo
Tem um componente free,
http://www.saarixx.info/sxskincomponents/en/
precisa mesmo? <hueuhe>
Valdomiro é um cuzão.. copia artigo dos outros hueuheuhehue.... bundão... zé roela.. huehuehe
O Link VclSin Não funciona não tem nada eu tinha o vcl sin com crack e perdi vc poderia corpartilhar o vclsin crakeado.
desconhecido
BANDO DE POBREEE COMPREMMMMM!!!!!!! : Não avaliado
Esse artigo é do Active Delphi seu plágio do caralho!

http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=271&mode=thread&order=0&thold=0
Que verganha
Valdomiro a chapa esta esquentado para o seu lado, cara para de copiar arquigo dos outros, e se for copiar pelos mesno melhore o código .... : Não avaliado
Qi bosta
funcionar até funciona, porém no form fica aparecendo VCLSKIN DEMO. vc sabe como crackear?
gostei muito!!!
Amigo será que voce tem como me ajudar a tirar o vclskinDemo caption do form?
valelu








Um produto Detetive.net