Danke für die Antwort!
Das Problem warum ichs nicht in einer Schleife mache ist das das Programm so lange in einer Endlosschleife alle Bilder immerwieder durchgeht bis das Programm beendet wird.
Es geht um eine SlideShow die in einem Schaufenster Bilder abspielen soll.
Darum der Timer, das Sleep hab ich nur eingefügt zum testen.
EDIT:
Habs jetzt mal umgebaut da die Idee mit der Variable eigentlich eine super Lösung ist, leider ist der Timer nicht so ideal vielleicht finden wir da auch noch ne andere Lösung?
Hier mal der aktuelle Code:
Delphi-Quellcode:
//Timer
procedure TForm3.Timer1Timer(Sender: TObject);
var
ImageFile: string;
begin
if PicCount >= Form1.Memo1.Lines.Count-1 then
begin
PicCount := 0;
end
else
begin
Inc(PicCount);
if (PicCount mod 5) = 0 then
ImageFile := ExtractFilePath(Application.ExeName)+'HZImage.bmp'
else
ImageFile := ExtractFilePath(Application.ExeName)+'TempImage.bmp';
end;
JpegToBmp(Form1.Edit1.Text + Form1.Memo1.Lines[PicCount]);
FadeIn(ImageFile);
sleep(2000);
Fadeout(ImageFile);
end;
Das Problem ist jetzt noch das die Bilder nur Kurz angezeigt werden und dann der Screen bis zum nächten Timeraufruf schwarz ist.
Jedenfalls nochmal vielen Dank für die genial einfache Idee mit der Variabl, warum ist mir das nicht selbst eingefallen
