Zitat:
da sich das TImage ja auch verändern kann
Ständig neu Zeichen, da sich
eventuell etwas ändern könnte?
Zeichne doch nur neu, wenn sich wirklich was ändert und womöglich dann auch nur diesen Teil.
TImage ist eigentlich nicht gut geeignet, für schnelle veränderungen, da es recht langsam ist.
Könnte man stattdessen auch etwas Anderes nehmen, zusammen mit einem Offscreenbitmap? (eventuell TPaintBox oder direkt das Canvas der Form)
Ich weiß ja nicht was AlphaScanline so alles macht, aber es wäre bestimmt besser, wenn das nicht für jedes X abgerufen würde ... einmal pro Y reicht doch auch aus.
Delphi-Quellcode:
for Y := R.Top to R.Bottom - 1 do
DestAlpha := Dest.AlphaScanline[Y];
SrcAlpha := Src.AlphaScanline[Y - R.Top];
for X := R.Left to R.Right - 1 do
DestAlpha[X] := Min(255, DestAlpha[X] + SrcAlpha[X - R.Left]);
end;