 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Jonatan500
Colaborador
Registrado: Sábado, 8 de Janeiro de 2011
Mensagens: 1064
Localização: Palmas/TO
|
 Enviada: Sex Jul 22, 2011 8:58 am Assunto: salvando skin [resolvido] |
 |
|
ola amigos eu tenho um comando onde o usuario aplica o skin no form tudo bem ate ai, mais quando eu saio do sistema ele volta ao normal, entao queria uma ajuda para criar um parametro como um ini, ou salvar no banco etc, eu prefiriria em um ini mais o que voces puderem ajudar agradeço, o código é este
No evento onclick do button eu adicionei a seguinte linha de comando:
| Código: | //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 adicionei a seguinte linha de comando:
Crie as variáveis: CaminhoDasSkins , ss : string;
| Código: | 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 |
_________________
"NESCIS QUIA EGO SUM PROGRAMMATOR"
#DelphiPower
Editado pela última vez por Jonatan500 em Sex Jul 22, 2011 5:04 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
arctures
Aprendiz
Registrado: Quinta-Feira, 16 de Junho de 2011
Mensagens: 112
|
| Enviada: Sex Jul 22, 2011 12:36 pm Assunto: |
|
|
| mas facio coloca os skin como internal skin, depois seta os nomes, com alfacontrol faço assim funfa bem. espero ter ajudado. |
|
| Voltar ao Topo |
|
|
Marcolin
Novato
Registrado: Quarta-Feira, 12 de Mai de 2010
Mensagens: 58
Localização: Realeza - Paraná
|
| Enviada: Sex Jul 22, 2011 12:44 pm Assunto: |
|
|
Para Alpha Controls(Skin) faça isso :
Cria uma pasta dentro da pasta do sistema, seta o skinmanager para a pasta.
Em skin Name aparecerá todas as skins que estão dentro da pasta.
No código do menu ou algo que vc vai usar.
sSkinManager.SkinName := 'Web';
_________________
Ser bom não basta, temos que nos aprimorar, bom todos somos de nascença, basta descobrirmos novas qualidades dentro de nós. |
|
| Voltar ao Topo |
|
|
Jonatan500
Colaborador
Registrado: Sábado, 8 de Janeiro de 2011
Mensagens: 1064
Localização: Palmas/TO
|
| Enviada: Sex Jul 22, 2011 5:29 pm Assunto: |
|
|
Consigui setar o VCLSkin para pegar o skin na pasta e deu tudo certo obrigado pela dica
_________________
"NESCIS QUIA EGO SUM PROGRAMMATOR"
#DelphiPower |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
