klasörde bulunan dosyaları slide şeklinde oynatma

[Bay_Y]

herkese merhabalar  , Klaösrde bulunan dosyaları slide şekilinde oynatmak istiyorum. 

Tms firmasında şöyle bir bileşen var ama aşırı işlemci kullanımı oluyor , 
https://www.tmssoftware.com/site/AdvSmoothSlideShow.asp

bilgisayarı yormayak daha sade bir şekilde yapılabilir mi? acaba..

[mcuyan]

klasör listesindeki jpg leri bir listbox a atın..
1 timer ekleyin. ve timerin ontimer olayına her seferinde listbox daki itemindex değeri artacak şekilde bir döngü yapıp, sıradaki dosyayı image nesnesine basın..

[mrmarman]

Merhaba.

- Slayt derken resimden resme geçişi anlık mı yoksa fadeIn-fadeout (alphablend) şeklinde mi göstermek istiyoruz ?

- Windows'un AlphaBlend fonksiyonu bir inceleyin derim. Ben resim geçişlerim yumuşak olsun istediğimde sürekli bunu kullanırım. 

- Aşağıdaki gibi yani. ( GifAnimator resimleri bozyor kanmayın ona   )

[Lord_Ares]

Mrmarn üstadımın ki benimkinden daha güzel çalışmış ))  Ben bir adet timer ekleyip aşağıdaki şekilde denemiştim. 

procedure TForm1.Timer_Resim_DegisTimer(Sender: TObject);
var
ImgIdx:integer;
imgPath:string;
begin
inc(ImgIdx);
if (imgIdx <= 100) AND (FileExists(imgPath + intToStr(imgIdx) + '.jpg')) then
Image2.Picture.LoadFromFile(imgPath + intToStr(imgIdx) + '.jpg')
else
begin
imgIdx:= 1;
Image2.Picture.LoadFromFile(imgPath + intToStr(imgIdx) + '.jpg')
end;
end;

[Bay_Y]

Öncelikle herkese çok teşekkür ediyorum ilgi ve alakasından dolayı.

Kullanılacak bilgisayarlar biraz eski ve ikinci ekranda program yanında çalışacağı için mümkün olan en az ram ve işlemci ile çalışması gerekiyor. Birkaç örnek denemiştim aslında güzelde çalışıyor fakat genelde işlemci kullanımı ve ram kullanımı çalıştığı bilgisayarları yoracak şekilde olduğu için farklı bir yöntem denemek istedim burdaki önerileri de deneyip en az işlemci ve ram kullanımı olan hangi yönten ise onu kullanmak sanırım mantıklı olacak.

Tekrar teşekkürler.