Colocando a Opção de Alterar/Escolher Tema no Seu Programa

[Mac! 0]

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

• Entre
• ou
• Cadastre-se

 

Observação: O tutorial foi feito para e com os componentes da Alpha

 

Componentes necessários:

1 ComboBox

1 Button

1 SkinManager

1 SkinProvider

 

1º Altere o Caption do Button1 para "Aplicar Tema" ou algum outro de sua preferencia

2º Escolha todas os temas que você quer adicionar ao seu programa e coloque na lista do SkinManager

3º Decore o nome dos temas

4º Adicione todos os nomes dos temas no ComboBox1 (Clicando na propriedade items)

 

No evento OnClick do button1 adicione o seguinte código:

 

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

• Entre
• ou
• Cadastre-se

 

Recomendo que veja a vídeo aula para entender melhor, pois é uma função bastante simples e útil.

[XxduhhxX 0]

NUssss

muito legal esse tutorial

eu tinha procurado uns tutos sobre isso na nat mas não tinha achado¬¬

o seu ta muito bom e deu certinho

[Cage 1.270]

Excelente tutorial amigo, bem organizado, elaborado, centralizado e com certeza ajudará muitos membros, espero que continue sempre ajudando e elaborando.

[edoO~' 1]

desnescessário.

os comentários acima mostram a pura decadência de programadores capazes neste fórum, mostram também comentários prontos.

não digo que sou bom, porque não sou, mas vejo que você utilizou um sSkinProvider, em que marcando a opção "MakeSkinMenu" ele fará a mesma coisa.

[habborello 0]

n muda de tema não aki, ve o código:

 

procedure TForm1.sButton1Click(Sender: TObject);

begin

if sComboBox1.Text = 'Office2007 Blue' then begin

sSkinManager1.SkinName:= 'Office2007 Blue (internal)';

end;

if sComboBox1.Text = 'WMP11' then begin

sSkinManager1.SkinName:= 'WMP11 (internal)';

end;

if sComboBox1.Text = 'WLM' then begin

sSkinManager1.SkinName:= 'WLM (internal)';

end;

if sComboBox1.Text = 'WMP 2008' then begin

sSkinManager1.SkinName:= 'WMP 2008 (internal)';

end;

if sComboBox1.Text = 'XPLUNA' then begin

sSkinManager1.SkinName:= 'XPLUNA (internal)';

end;

end;

end.

[Mac! 0]

@habborello

Talvez você esteja esquecendo de mudar para True a propriedade Enabled/Active do sSkinManager.

 

@edoO~'

Não vejo o porque de este tópico ser desnecessário, pode ser pra você que já sabe como fazer porem muita gente não sabe e este é o objetivo principal do tópico (ensinar a quem não sabe). Sim, o jeito que você utiliza funciona mas o meu também, e como se trata de programação, existem várias formas de se fazer uma função e se você não sabe deveria saber disso. Os comentários acima não mostram uma decadência de programadores bons no fórum até porque mesmo que ouve-se o fórum não é de conteúdo especifico sobre programação e sim de hackers para jogos. Se você não gosta do fórum ou acha que algo ruim, ninguém está pedindo pra você continuar acessando o mesmo.

[edoO~' 1]

Os comentários acima não mostram uma decadência de programadores bons no fórum até porque mesmo que ouve-se o fórum não é de conteúdo especifico sobre programação e sim de hackers para jogos.

 

Inutil este comentário.

Se temos área de cheats, focamos em cheats, mas se temos área de programação também focamos em programação, não somente destinado a hackers.

 

Eu recebi, se não me engano, 3 mensagens privadas perguntando como que faz isso que não estava conseguindo,

além de você postar um tutorial totalmente desnescessário, não ensina nada aos membros.

 

E os comentários assim mostram sim a decadência, comentários prontos.

 

Legal, com vídeo imagens tutorial tudo direitin.

cores, centralizado, bem legal, vai ajudar muito os membros.

 

Se isso for comentário de um típico programador, em que era estamos?

[Mac! 0]

Eu recebi, se não me engano, 3 mensagens privadas perguntando como que faz isso que não estava conseguindo,

além de você postar um tutorial totalmente desnescessário, não ensina nada aos membros.

 

Eu não ajudei quem não conseguiu seguir o tutorial porque não me mandaram mensagens privadas informando a dúvida, como você deve ter visto um membro informou que não estava conseguindo seguir o tutorial e eu o ajudei como ajudaria a todos os outros que me pedissem ajuda.

 

Legal, com vídeo imagens tutorial tudo direitin.

cores, centralizado, bem legal, vai ajudar muito os membros.

 

Se isso for comentário de um típico programador, em que era estamos?

 

Não, isso não é um comentário típico programador e já é de se esperar pois a muitas chances de @Cage ~ não ser especificamente desta área, e também, não vejo mal algum já que ele provavelmente não é especificamente desta área, fazer um post elogiando o tópico em si.

[edoO~' 1]

por isso a atual decadência de moderadores capazes.

pense bem, você é inteligente.

[luxfer 0]

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

• Entre
• ou
• Cadastre-se

pq você colocou esse if?

nem precisa...

 

edit: ah mas dai tenque por no evento onSelect do combobox

[Skinn3r' 1]

@edoO~'

@Mac

Deeu deeu gente ,

 

@edoO~'

Emo , concordando com MAC para voce que sabe é facil

mais se fosse assim como voce fala , que ele esta encinando

é uma coisa " inutil " oque seria postado em Delphi/Vb?

só apenas oque voce nao sabe ? Que acho q nao deve ser mt coisa

Porque voce acha q de 500 membros 600 reclamam de pessoas como voce ?

Que tem poder aqui na WC e só porque tem fica esculachando os outros

Dando ban desnecessario

 

@ Mac

 

Parabens mano , fico massa eim .. (:

[edoO~' 1]

só acho desnescessário.

membro reclamando de que o tutorial não funciona,

e eu dei uma explicação muito mais fácil, sem códigos, e funcional 101%

eu disse que sabia isso? eu disse que sou foda?

 

Porque voce acha q de 500 membros 600 reclamam de pessoas como voce ?

 

vc se registrou agora, como sabe que reclamam de mim?

cara, eu acompanho esse fórum desde 2009, e sempre vejo coisas assim

Geradores de cash, injetores de dll.

 

Aliás, é um tópico, eu só fiz um comentário, quem partiu pra cima foi ele.

 

Ele deveria aceitar o comentário, talvez até retrucar mais leve, porquer um tópico não foi feito apenas para

críticas boas, mas sim para ruins tbm.

 

Então me deixe em paz, e me deixe criticar como eu bem entender.

 

Perfil de 2009

[Mac! 0]

@Skinn3r'

Agradeço o seu comentário, e fico muito satisfeito em ver que estou lhe ajudando. Obrigado também pelo apoio!

 

@edoO~'

Eu quero lhe pedir desculpas pela minha arrogância ao responder os seus comentários. Sim, eu reconheço que errei e concordo com o que você comentou "...um tópico não foi feito apenas para críticas boas, mas sim para ruins tbm...".

Obrigado edoO~' e mais uma vez desculpas.