Como guardar o último Skins escolhido, por Valdomiro Jr

Avaliação:

| Publicado em: 05/09/2005

Como guardar o último Skins escolhido

Valdomiro Jr Valdomiro Jr. trabalha atualmente desenvolvendo aplicações usando Delphi/Oracle a 4 anos.

Como guardar o último Skins escolhido

No primeiro artigo sobre Skins descrevi a forma de utilizar o componente VclSkin, neste novo artigo venho demonstrar como guardar o último Skins escolhido.

Existem várias formas para se guardar o último Skins escolhido, neste exemplo vamos utilizar aquivos tipo (.Ini)

• Utilização:

No evento formCreate do formulário principal carrego uma Procedure chamada CarregarSkin.
procedure TFrmPrincipal.CarregarSkin;
var
i : integer;
Skin : string;
begin
LeIni(Skin); // Código abaixo..
i := ListBox1.ItemIndex;
ss := Skin;
SkinData1.SkinFile := ss;
if not SkinData1.Active Then SkinData1.Active := True;
end;

\\ Código da Procedure LerIni(ss);
procedure TFrmPrincipal.LeIni(var Caminho: String);
var
ArqIni : tIniFile;
begin
ArqIni := TIniFile.Create('C:\Arquivos de Programas\ProCompany\ProCompany.Ini');
Try
Caminho := ArqIni.ReadString('Informação', 'Caminho', Caminho);
Finally
ArqIni.Free;
end;
end;

No Onclique do Botão “Fechar” do panel (ver 1º artigo) chame a procedure GravarIni();

GravaIni(ss); \\ Onde ss e a string que vai trazer o caminho da Skin Escolhida..

\\ Código da Procedure GravaIni(ss);
procedure TFrmPrincipal.GravaIni(Caminho: String);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create('C:\Arquivos de Programas\ProCompany\ProCompany.Ini');
Try
ArqIni.WriteString('Informação', 'Caminho', Caminho);
Finally
ArqIni.Free;
end;

Espero ter ajudado, qualquer outra dúvida, entre em contato comigo.

Valdomiro Farias de Andrade Júnior
ProCompany Sistemas - Analista de Sistemas
procompanysistemas@infonet.com.br

Francisco Samir <fsfp@walla.com>

É muito legal poder carregar skins em um form, contudo, ainda não consigo..., gostaria se possivel que você me enviasse o componente, pois eu não acho, mesmo tendo as URLs, fico desde já muito grato pela ajuda oferecida
Obrigado!!!

Paulo Gois <degoisbr@msn.com>

N consigo compilar a aplicação, me ajude a fazer isto, Obrigado

Geneildo <genildocorreia@hotmail.com>

não consegui colocar o skin para funcionar qual é ocaminho que vc fala, como faço digitar esse camimho, grato Genildo

vagner <vagnercrescencio@hotmail.com>

Olá pessoal, alguem poderia me ajudar, pois não consegui complilar o programinha.
Grato.

EVANDRO <gigabyte@gigabyteonline.com.br>

Não caiam no golpe desse cara (Valdomiro Junior), ele me vendeu uma solução para sistemas, recebeu, e nunca mais respondeu os emails, e ainda me mandou um sistema open source encontrado gratuitamente na internet, golpista de mão cheia, estou esperando meu dinheiro de volta.

EVANDRO <gigabyte@gigabyteonline.com.br>