Como rotacionar imagens previamente cadastradas

Question

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 c...

Dedi · Answer

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

Tekmicro · Answer

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!

Dedi · Answer

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:[code:1:6ba24c3246]var  Form1: TForm1;  listaprop:Tstringlist;[/code:1:6ba24c3246]depois no oncreate do form escreva:[code:1:6ba24c3246] listaprop:=TStringList.Create; listaprop.add(�c:microdatamecfiprop1.jpg�); listaprop.add(�c:microdatamecfiprop2.jpg�); listaprop.add(�c:microdatamecfiprop3.jpg�); listaprop.add(�c:microdatamecfiprop4.jpg�); listaprop.add(�c:microdatamecfiprop5.jpg�); listaprop.add(�c:microdatamecfiprop6.jpg�);[/code:1:6ba24c3246]no evento do time escreva:[code:1:6ba24c3246] 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&#91;listaprop.itemindex&93;) then  Image1.Picture.LoadFromFile(listaprop.Strings&#91;listaprop.itemindex&93;);[/code:1:6ba24c3246] pra finalizar  no onDestroy:[code:1:6ba24c3246]  listaprop.Free;[/code:1:6ba24c3246]...

Dedi · Answer

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]);

Tekmicro · Answer

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!

Tekmicro · Answer

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!...

F�rum Como rotacionar imagens previamente cadastradas #332224