Bin gerade dabei, meine ersten Schritte mit Scanline zu machen

Jetzt wollte ich versuchen, ein Rechteck um ein andersfarbiges Objekt im Bild zu ziehen (siehe Bild).

Folgenden Code benutze ich zum einfärben:

zusammenfalten · markieren

Delphi-Quellcode:

var
  Line:PRGBQUAD;
  x,y :integer;

begin


   bmp := Tbitmap.Create;
   bmp.LoadFromFile('c:\Bild.bmp');
   bmp.PixelFormat := pf32Bit;


   For y := 0 to bmp.Height - 1 do begin
   Line := Bmp.ScanLine[y];
   For x := 0 to bmp.Width - 1 do begin
   If not(Line.rgbGreen > 100 ) then begin
   Line.rgbRed := 0;
   

end;

   inc(Line);

end;
end;


  Image1.Picture.Bitmap.Assign(Bmp);

Jetzt weiß ich aber nicht, wie ich mittels Scanline den ersten und den letzten (roten) Punkt herausbekommen kann

Gruß

*push* ich probier grad das gleiche und ich packs auch nicht ohne alle pixel einzeln abzufragen

Wenn du keinerlei Informationen über die Form und Position des Objektes hast, bleibt dir IMHO überhaupt nichts Anderes übrig.

äußerst linken punkt ermitteln, indem du von pos(0,0) jede zeile vertikal durchgehst bis du den ersten roten punkt gefunden hast.
äußerst rechten punkt ermitteln, indem du das gleiche von der rechten seite probierst.

obersten punkt ermitteln, indem du von pos(0,0) horizontal jede zeile durchgehst bis du den ersten roten punkt gefrunden hast.
untersten punkt ermitteln, indem du von pos(0,height) horizontal jede zeile durchgehst bis du den ersten roten punkt gefrunden hast.

dann hast du 4 punkte und kannst anhand dieser punkte dein rect zeichnen.

okay danke ;D