Feststellen ob eine canvas komplett schwarz ist

[bitsetter]

Moin,

mit ScanLine könnte man es so machen:

Delphi-Quellcode:

function IsBlack(Bild: TBitmap): boolean;
var
   i: integer;
   Black: Array of Byte;
begin
  Bild.PixelFormat:= pf24bit;
  SetLength(Black, Bild.Width* 3);
  ZeroMemory(@Black[0], Length(Black));
  Result:= true;
  for i:= 0 to pred(Bild.Height) do
  begin
    Result:= CompareMem(Bild.ScanLine[i], @Black[0], Length(Black));
    if not Result then
      break;
  end;
end;
end;