Haste recht
, aber die Schleife rennt nur einmal durch dann freest das Programm.
Hab mal mit dem Debugger durchgezapt, es rennt eine Endlosschleife in der Fading schleife:
Delphi-Quellcode:
for x := 0 to (Bitmap.Width - 1) do
begin
Row[x].rgbtRed := (step * BaseRow[x].rgbtRed) shr 5;
Row[x].rgbtGreen := (step * BaseRow[x].rgbtGreen) shr 5; // Fading //
Row[x].rgbtBlue := (step * BaseRow[x].rgbtBlue) shr 5;
end;
Vielleicht stimmt was mit dem Bildinformationen nicht die das Fading bekommt und nun versucht der etwas zu faden was er nicht hinbekommt oder sowas.
Eigentlich ist an dem Auslesen des Bildes ja nichts verändert worden und auch das Faden ist noch beim alten.
Piccount benötige ich somit nicht mehr unbedingt ich brauch aber trotzdem etwas womit ich den Zeiger wieder auf 0 Stellen kann sobald er das letzte Bild erreicht hat da das ja als Endlosschleife laufe soll.