Denkfehler mit Scanline?

[jfheins]

Was machst du eigentlich mit diesem komischen Array?

Ich verwende Scanline bspw. so:

Delphi-Quellcode:

var
  Pixel: ^TRGBTriple;
begin
// ...

    for i := 0 to Bild.Height - 1 do
    begin
      Pixel := Bild.ScanLine[i];
      for j := 0 to Bild.Width - 1 do
      begin
        if (Pixel^.rgbtRed = 0) then
        begin
          Pixel^.rgbtRed := 0;
        end;

        Inc(Pixel);
      end;
    end;

Du musst in jedem Fall vorher das Format des Bitmaps setzen !
Bist du sicher, dass die Quelle auch 32bit ist?