Como rotacionar imagens previamente cadastradas

Delphi

28/10/2006

Caros colegas, estou necessitando criar condições para inserir 6 imagens diferentes [o usuário deverá ter condições de mudar as imagens no momento que desejar] num formulário frente de caixa, onde a cada tempo determinado a imagem mudaria para a próxima.

Coloquei uma imagem para ficar mais fácil.




Agradeço desde já a colaboração dos colegas.


Tekmicro

Tekmicro

Curtidas 0

Respostas

Dedi

Dedi

28/10/2006

Colega,vc quer girar uma imagem ou fazer um slide?[/code]


GOSTEI 0
Tekmicro

Tekmicro

28/10/2006

Caro colega, quero fazer justamente o que mostra na imagem. Cadastrar 6 imagens e fazer mudar a cada X tempo determinado, as imagens no PDV.

As imagens seriam salvas numa pasta onde o usuário poderia mudar, bastando apenas manter o mesmo padrão de nomes. Ex.: imagem1, imagem2 ....

Seria mais precisamente como slide!

Obrigado!


GOSTEI 0
Dedi

Dedi

28/10/2006

neste caso é fácil,
a ideia é criar uma lista e ir passando pro timage o path da figura.

na secção var do form declare:
var
  Form1: TForm1;
  listaprop:Tstringlist;

depois no oncreate do form escreva:
 listaprop:=TStringList.Create;
 listaprop.add(´c:\microdata\mecfi\prop1.jpg´);
 listaprop.add(´c:\microdata\mecfi\prop2.jpg´);
 listaprop.add(´c:\microdata\mecfi\prop3.jpg´);
 listaprop.add(´c:\microdata\mecfi\prop4.jpg´);
 listaprop.add(´c:\microdata\mecfi\prop5.jpg´);
 listaprop.add(´c:\microdata\mecfi\prop6.jpg´);


no evento do time escreva:
 if listaprop.Count=0 then exit;
 if (listaprop.itemindex + 1) < listaprop.Count then
  listaprop.itemindex:= listaprop.itemindex + 1 else
  listaprop.itemindex:=0;
  if FileExists(listaprop.Strings[listaprop.itemindex]) then
  Image1.Picture.LoadFromFile(listaprop.Strings[listaprop.itemindex]);

pra finalizar no onDestroy:
  listaprop.Free;



GOSTEI 0
Dedi

Dedi

28/10/2006

Lembrei me que o Tstringlist não tem essa propriedade itemindex:então mude o codigo no evento do time para:
 if listaprop.Count=0 then exit;

 if Image1.Tag + 1 < listaprop.Count then
  Image1.Tag:=Image1.Tag +1 else
  Image1.Tag:=0;
  if FileExists(listaprop.Strings[Image1.Tag]) then
  Image1.Picture.LoadFromFile(listaprop.Strings[Image1.Tag]);



GOSTEI 0
Tekmicro

Tekmicro

28/10/2006

Caro Deni, no caso de fazer um formulário conforme apresentado na imagem, eu terei que inserir os componentes, correto?

Não explorando demais sua boa vontade, mas, devido também não ser experiente em programação, mas estou procurando humildemente aprender, teria como passar a codificação necessária para fazer tipo o exemplo mostrado na imagem?

Onde eu teria como determinar o tempo para cada imagem aparecer, terei que direcionar onde as imagens irão aparecer etc.

Se puder ajudar-me mais nessa, ficarei imensamente agradecido porque sei que com toda a informação , vou ter muitas dificuldades!

Muito obrigado de coração!


GOSTEI 0
Tekmicro

Tekmicro

28/10/2006

Caro colega,

A parte de codificação e inclusão dos componentes já fiz no formulário.

Preciso de orientação para poder codificar os componentes de forma que venha a funcionar e atingir o objetivo pretendido.

Conto mais uma vez com a colaboração e ajuda dos colegas!

Abraços!


GOSTEI 0
POSTAR