Ja, klar... das ist sie auch... denn in einer anderen Prozedur...
Delphi-Quellcode:
If Hendrik.X < 10 Then
Begin
Alpha[1] := Alpha[1] + 2;
(*
DXImageList1.Items.Find('Hendrik').DrawAlpha(DXDraw.Surface, Bounds(Round(
Hendrik.X), Round(Hendrik.Y), Hendrik.Width, Hendrik.Height), 0,
Alpha[1]);
*)
Application.ProcessMessages;
If Alpha[1] > 257 Then
Alpha[1] := 0
End;
wird sie es auch... klappt leider trotzdem nicht... langsam gehen mir auch die Ideen aus, was man noch testen könnte an diesem Code...