Scanline lahm??

[Phantom1]

Die Cut function könntest du auch noch verbessern (wenn auch nur minimal),
zb so hier:

Delphi-Quellcode:

function Cut(AValue: Integer): Byte;
begin
  if AValue > 255 then 
    Result := 255
  else
    if AValue < 0 then 
      Result := 0
    else
      Result := AValue;
end;