Przglądarka Grafik

Jak przeglądać grafiki talk jak w AcdSee, lub IfranViev, że klikam na przycisk next, i następna się wyświetla?

Nie musi być specjalnie wymyślna

Najlepiej jakbyś zbierał Komputer Świat tam było opisane ale w Visual Basicu 6.

najlatwiejszy to jest współdziałanie filelistboxa i directorylistboxa w przuciuku "Wstecz" dajesz image1.picture.loadfromfile(filelistbox.items.strings[filelistbox.itemindex]);

a dalej image1.picture.loadfromfile(filelistbox.items.strings[filelistbox.itemindex+1]);

mozna dorobic rozne filtry.. .dobra rada rob filtry na scanline a nie na pixelach

Ja u siebie zrobile tak:

procedure nextImage;
var
numerek : integer;//zaznaczony item
name : string;
Plik : TSearchRec;
FSize : Integer;
Sciezka : string;
OldCursor : TCursor;
begin
try
numerek := Form1.FileListBox1.ItemIndex;
Form1.FileListBox1.ItemIndex := numerek +1;
name:= Form1.filelistbox1.FileName;
if name = '' then Exit;
OldCursor := Screen.Cursor;//zachowanie kursora
Screen.Cursor := crHourGlass;//wyswietlenie nowego
Form1.Image.Picture.Loadfromfile(name);
Screen.Cursor := OldCursor;
except On EInvalidGraphic do
begin
Application.MessageBox('Nieprawidłowy plik graficzny!',
'Błąd', MB_OK + MB_IconExclamation);
exit;
end;
end;

usunalem z tego kodu niepotrzebne funkcje
powinno dzialac

pozniej tylko w procedurze onclick wpisujesz:

nextImage;

[cygaro]