Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
klasörde bulunan dosyaları slide şeklinde oynatma
#1
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 , 
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

bilgisayarı yormayak daha sade bir şekilde yapılabilir mi? acaba..
Cevapla
#2
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..
WWW
Cevapla
#3
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.  Idea

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

xscgjsqzemsiymfovpip.gif
Saygılarımla
Muharrem ARMAN

guplouajuixjzfm15eqb.gif


Cevapla
#4
Mrmarn üstadımın ki benimkinden daha güzel çalışmış Smile))  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;
Cevapla
#5
Ö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.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi ile klasör ve dosyaları görünmez yapmak haydarxxx 6 265 25-05-2018, Saat: 00:32
Son Yorum: dkadir
  Uygulama içinde bekleme konumunda ekranda animasyon oynatma Bay_Y 13 427 11-05-2018, Saat: 08:18
Son Yorum: Tuğrul HELVACI
  Unit.pas dosyaları ve Uses kullanımı nehirnnn 2 307 05-01-2018, Saat: 01:52
Son Yorum: masteryoda
  Dosyaları Belirli Boyutta Gruplandırma yhackup 5 442 30-11-2017, Saat: 00:30
Son Yorum: SimaWB
  Grid'den kayıt eklemek istediğimde autoincrement olan alanın boş şeklinde hata vermes burakb44 1 276 30-10-2017, Saat: 22:26
Son Yorum: burakb44



Konuyu Okuyanlar: 1 Ziyaretçi