A URL para o artigo anterior sobre como Alterar Visual das Aplicações – Skins:
http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=271

• 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