Navegador de imagens

[António44]

Usando um  botão para selecionar o próximo ou o anterior no Componente JvThumbView . Era para identificar a primeira e a ultima imagem 

Agradeço

Editado Novembro 30, 2022 por António44

[António44]

procedure TFotoskiko.BitBtn4Click(Sender: TObject);
Var
g:integer;
begin
g:= 0;
JvThumbView1.Selected:=(JvThumbView1.Selected+(g+1));
end;

procedure TFotoskiko.BitBtn5Click(Sender: TObject);
Var
g:integer;
begin
g:= 0;
JvThumbView1.Selected:=(JvThumbView1.Selected-(g+1));
end;

Consegui com esta solução,não está 100% mas funciona bem para navegar no  JvThumbView e mostrar foto em maiores dimensões no JvThumbnail .

procedure TKikinho.FormShow(Sender: TObject);
begin
JvThumbnail1.FileName:=(Fotoskiko.JvThumbView1.SelectedFile);
end;

procedure TKikinho.BitBtn2Click(Sender: TObject);
Var
g:integer;
begin
g:= 0;
JvThumbnail1.FileName:='';
Fotoskiko.JvThumbView1.Selected:=Fotoskiko.JvThumbView1.Selected+(g-1);
sleep(20);
Timer1.Enabled:=true;
end;
procedure TKikinho.Timer1Timer(Sender: TObject);
begin
JvThumbnail1.FileName:=(Fotoskiko.JvThumbView1.SelectedFile);
Timer1.Enabled:=false;
end;

procedure TKikinho.BitBtn3Click(Sender: TObject);
Var
g:integer;
begin
g:= 0;
JvThumbnail1.FileName:='';
Fotoskiko.JvThumbView1.Selected:=Fotoskiko.JvThumbView1.Selected+(g+1);
sleep(20);
Timer1.Enabled:=true;
end;

Se por acaso surgir por ai uma ideia melhor por favor me passem.

Obrigado

Editado Novembro 23, 2022 por António44