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:
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ß