Imagem Randônica ! Tem Como ?

Delphi

13/10/2003

Caros colegas ,


[size=24:2117ade424]Programadores[/size:2117ade424]


Fiz um sistema e na tela inicial , eu gostaria de por , por exemplo 2 imagens (TImage) , um com um [b:2117ade424]Papai-Noel[/b:2117ade424] e o outro um que simbolize [b:2117ade424]Ano Novo[/b:2117ade424] . Aí o meu sistema pega e começa a contar as datas , suponto , hoje é 24 de dezembro , na tela inicial tá em branco , sem nada , amanhã ( 25 de dezembro ) , o cliente acessa o sistema e a imagem que representa o natal aparece , um visible :=true ! E no outro dia 26 de dezembro , o usuário abre o sistema e a imagem já não está mais lá , o form volta a ficar em branco , e quando for 1 de janeiro a imagem que representa o Ano novo aparece !

Agradeço desde Já


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Beppe

Beppe

13/10/2003

Tenta assim:
if (MonthOf(Date) = 12) and (DayOf(Date) = 25) then
  Image.Picture.Assign(imgNatal.Picture)
if (MonthOf(Date) = 1) and (DayOf(Date) = 1) then
  Image.Picture.Assign(imgAnoNovo.Picture);

Ataliba


GOSTEI 0
Salupe

Salupe

13/10/2003

Pegue o dia e o mes da Data do Sistema e faça o caminho do image achar a imagem desejada para o dia em questão e o visible true.
Você terá que fazer vários ifs e elses, dependendo da quantidade de imagens, e no último else, o image terá o visible False;
Fazendo assim você só precisará de um image.

para indicar o caminho utilize a linha assim:
ImageLogo.Picture.LoadFromFile(´C:\pasta\imagem.Jpg´);

Espero ter ajudado


GOSTEI 0
Rafaelgm

Rafaelgm

13/10/2003

Tenta assim: 
if (MonthOf(Date) = 12) and (DayOf(Date) = 25) then
  Image.Picture.Assign(imgNatal.Picture)
if (MonthOf(Date) = 1) and (DayOf(Date) = 1) then
  Image.Picture.Assign(imgAnoNovo.Picture);
Ataliba

Ou então isso:

imgNatal.Visible := (MonthOf(Date) = 12) and (DayOf(Date) = 25);
imgAnoNovo.Visible := (MonthOf(Date) = 1) and (DayOf(Date) = 1);


Rafael Monteiro


GOSTEI 0
POSTAR