Clique para saber mais...
  Home     Download     Produtos / Cursos     Revista     Vídeo Aulas     Fórum     Contato   Clique aqui para logar | 06 de Outubro de 2026
  Login

Codinome
Senha
Salvar informações

 Esqueci minha senha
 Novo Cadastro

  Usuários
112 Usuários Online

  Revista ActiveDelphi
 Assine Já!
 Edições
 Sobre a Revista

  Conteúdo
 Apostilas
 Artigos
 Componentes
 Dicas
 News
 Programas / Exemplos
 Vídeo Aulas

  Serviços
 Active News
 Fórum
 Produtos / Cursos

  Outros
 Colunistas
 Contato
 Top 10

  Publicidade

  [Artigos]  Como criar Skins personalizadas
Publicado por adairfolmer : Terça, Agosto 22, 2006 - 10:08 GMT-3 (6709 leituras)
Comentários 3 Comentários   Enviar esta notícia a um amigo Enviar para um amigo   Versão para Impressão Versão para impressão
Adair Folmer Olá galera da Active Delphi, estive bastante ocupado ultimamente e não pude escrever artigos, mas consegui um tempinho para mostrar um exemplo de como criar Skins personalizadas.

O princípio de tudo está em saber escolher uma imagem que possa se transformar em uma skin.
Para isso escolha imagens que tenham formas bem definidas.

Depois vamos trabalhar com essa imagem, pode usar qualquer editor de imagens que trabalhe com o formato ".bmp", isso porque as imagens nesse formato não perdem qualidade ao serem alteradas.

Edite a imagem do seu gosto, porém as partes que ficarão transparentes você deve deixar na cor branca.

Agora vamos ao Delphi:

Crie um novo projeto.

File -> New -> Application

Altere no "Form1" as seguintes propriedades:

AutoSize = True
BorderStyle = bsNone
Color = clFuchsia
TransparentColor = True
TransparentColorValue = clFuchsia

(Para transparência use sempre uma cor exagerada, não use branco ou preto, pois outros componentes do seu projeto que tenham estas cores ficarão transparentes).

Insira um componente "Image" e altere as seguintes propriedades:

AutoSize = True
Picture = Selecione a imagem que você escolheu.
Transparent = True

Salve o projeto e compile para ver o resultado.

Para dar uma incrementada na sua skin você pode inserir novas imagens e dar funções de botões para elas, fazer elas mudar ao passar o mouse ou efeitos parecidos incrementam bastante seu projeto. Aí vai da criatividade de cada um.

Use sempre "Labels" e "Images" com a propriedade "Transparent = True".

Obs.: Ao usar a imagem no formato ".bmp" o seu executável ficará relativamente grande.
Você pode trabalhar com o formato ".png". Este formato é muito bom pois reduz o tamanho da imagem em relação ao bmp e mantém algumas propriedades como transparência e qualidade.
Porém se o seu Delphi não suportar a extenção ".png", sugiro salvar a imagem no formato ".gif" com transparência.( Perde um pouco a qualidade mas é um arquivo pequeno em relação ao bmp).

Clique aqui para baixar um exemplo.

Abraços a todos.



Comentários Comentários
   Ordem:  
Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos.


por: h4c3r (diegocracker@gmail.com) : Jun 12, 2008 - 08:25
(Informações sobre o membro | Enviar uma mensagem)
gostei espero mais exemplos valeu


por: alrprog (alrprog@hotmail.com) : Abr 29, 2009 - 11:32
(Informações sobre o membro | Enviar uma mensagem) http://alrprog.blogspot.com
Legal até que enfim achei alguma coisa, já faz alguns dias que estou procurando, vou testar!!!


por: manolrcd (manoelrcd@yahoo.com.br) : Out 15, 2010 - 03:27
(Informações sobre o membro | Enviar uma mensagem)
link do exemplo quebrado :S

se possivel mande seu msn
para trocarmos ideias
  Edição 112

Revista ActiveDelphi

  50 Programas Fontes


  Produtos

Conheça Nossos Produtos

Copyright© 2001-2016 – Active Delphi – Todos os direitos reservados