Conheça o Plugfeed | » Início » Programação » Delphi » Como guardar o último Skins escolhido
Conheça o Plugfeed | » Início » Programação » Delphi » Como guardar o último Skins escolhido -->
 
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
não consegui colocar o skin para funcionar qual é ocaminho que vc fala, como faço digitar esse camimho, grato Genildo
Olá pessoal, alguem poderia me ajudar, pois não consegui complilar o programinha.
Grato.
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.
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.
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.








Um produto Detetive.net