Witam. Napisałem taki programik do przeglądania plików graficznych bmp, jpg. wszystko działa pięknie, ale chciałbym aby po wybraniu katalogu z jakąś grupą obrazków wyświetliły się wszystkie jako miniatury, coś jak w przeglądarkach typu irfanview czy acdsee. Sam sobie nie poradzę czy mogę liczyć na czyjąś pomoc?
0
0
jak masz parzysta liczbe obrazkow to nie ma wiekszego problemu
odpowiednia zeskaluj obrazki, i je poskladaj w jednym (to tylko teoria)
od biedy mozesz rysowac podglad kazdego obrazka osobno gdzies z boku, czy na dole listy
pokombinuj troche, za kilka godzin, dni wpadniesz na jakies rozwiazanie
ps. najlepszym wyjsciem jest wyswietlenie gotowych podgladow, gdzies o tym bylo, poszukaj tez w przykladach delphi
0
tu masz przykład jek wyświtlić 3 obrazki, ty oczywiście musisz odczytać ilość obrazków w katalogu i użyć pętli (dobrze by było wykorzystać try, bo może się zdarzyć że jakiś plik będzie np. uszkodzony)
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('1.jpg');
Form1.Canvas.StretchDraw(Rect(0, 0, 60, 60), image1.Picture.Graphic);
image1.Picture.LoadFromFile('2.jpg');
Form1.Canvas.StretchDraw(Rect(0+60, 0, 60+60, 60), image1.Picture.Graphic);
image1.Picture.LoadFromFile('3.jpg');
Form1.Canvas.StretchDraw(Rect(0+120, 0, 60+120, 60), image1.Picture.Graphic);
end;
0
Dzięki za wszelkie sugestie i pomoc, jak ktoś na coś jeszcze wpadnie to chętnie skorzystam. Jeszcze raz dzięki. [cya]