ich hab übrigens meinen Post oben nochmal etwas editiert, mit noch ein paar tips!
Der Timer ist wegen deinem "sleep" etwas schlecht. Der Timer wird in festen intervallen aufgerufen. Durch das sleep kann es theoretisch passieren, dass dein Timer zum zweiten mal aufgerufen wird, obwohl der erste Aufruf des Timers noch gar nicht fertig abgearbeitet ist, sprich das bild noch nicht fertig herausgefaded ist.
Wenn du es unbedingt mit einem Timer machen willst, dann bitte das "sleep" weg. Möglich wäre auch sowas hier, allerdings bekomme ich dann wieder haue von den Forumscracks hier, die meinen, das wäre "unschön" programmiert:
Delphi-Quellcode:
private
Imagefile:string;
PicCount:integer;
//[...]
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if PicCount > 0 then
Fadeout(ImageFile);
if PicCount >= Form1.Memo1.Lines.Count-1 then
PicCount := 1
else
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);
end;
Als sauber programmiert würde ich das betrachten, wenn du das Bild einmal von der Festplatte lädst, dann reinfadest, wartest und OHNE das bild nochmal von der Festplatte zu laden wieder rausfadest...
Aber funktionieren sollte es natürlich auch so
Nochmal Grüße