Alterando aparência do Form, botões, labels, Groupbox SkinManager da palheta AlphaLite

13/03/2019

0

Prezados,

Poderiam me fornecer como faço para alterar estilo dos componentes informados.
Estou querendo utilizar o AlphaLite para que o meu usuário possa escolher qual aparência do Form (todos os forms da aplicação), botões, labels, Groupbox.
Verifiquei através deste site a alteração do form: 'Alterando a aparência da aplicação usando SkinManager da palheta AlphaLite'.
Tentei fazer o mesmo mas deu os seguintes erros:

a) O componente TFileListBox não tem na palheta do AlphaLite (versão atual). Somente o TsListBox

b) Evento OnCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
     //Seta o endereço dos skins para o lstSkin (TFileListBox)
     lstSkin.Directory := skm.SkinDirectory;
end;


*Deu erro no Directory: "TsListbox does not contain a member named 'Directory' "

c) Evento OnClik ListBox

procedure TForm1.lstSkinClick(Sender: TObject);
begin
      //Atribui outro skin para gerenciador
    skm.SkinName := ExtractFileName(lstSkin.FileName);
end;


*Deu erro no FileName: "TsListbox does not contain a member named 'FileName' "

Como fazer para modificar os outros componentes?
Carlos Leonel

Carlos Leonel

Responder

Post mais votado

14/03/2019

Olá Carlos,

No site da desenvolvedora tem um código fonte para demonstrar isto da forma correta
http://www.alphaskins.com/sfiles/demos/skinandstream.zip

neste mesmo site existe inúmeros exemplos com código fonte que você pode experimentar para conhecer melhor os recursos deste pacote de componentes.

http://www.alphaskins.com/ademos.php

Espero ter ajudado.

Um forte abraço e fique com Deus.

Hélio Devmedia

Hélio Devmedia
Responder

Mais Posts

14/03/2019

Carlos Leonel

Muito Obrigado!
Valeu :)
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar