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

Delphi

13/03/2019

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

Curtidas 0

Melhor post

Hélio Devmedia

Hélio Devmedia

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

Mais Respostas

Carlos Leonel

Carlos Leonel

13/03/2019

Muito Obrigado!
Valeu :)
GOSTEI 0
POSTAR