Schwarzer Bereich aus Bitmap entfernen

[DerDan]

Du möchtest das Bild automatisch verkleinern ?

dann kannst du etwa so vorgehen:

Delphi-Quellcode:

pPixelLine := Bmp.ScanLine [0];
BackColor := pPixelLine^.[0];

// oberste BMP Zeile suchen die nicht einfarbig ist:
Top := -1;
for Y := 0 to Bmp.Height do 
begin
  pPixelLine = Bmp.ScanLine [y];
  for x := 0 to bmp.Width do 
  begin
    if BakcColor <> pPixelLine^.[0] then 
    begin
       Top := y;
       break;
    end; 
    if Top >= 0 then begin
      break;
    end;
  end;
end;

dann suchst du noch
von unten nach oben,
von rechts nach links und
von links nach rechts
um alle vier Kanten
deines neuen Rechtecks zu ermitteln.

dann noch ausschneiden -> fertig

die Typen von
BackColor und pPixelLine
sind davon abhängig in welchem Format deine Bmp daherkommt.

das kann man mit bmp.PixelFormat abfragen


DerDan