Tweet
Hallo!
In guten Bildbearbeitungsprogrammen gibt es ein Zauberstabwerkzeug - Ein Tool, das einen Bildausschnitt, der gleichen Farbe hat, markiert. Ich bräuchte so etwas Ähnliches:
Ich Habe ein bmp mit weißem Hintergrund und Schwarzen Punkten drauf (in verschiedenen Größen und Formen). Die Punkte zu finden ist ja kein Problem (indem ich einfach Zeile für Zeile durchgehe und bei jedem Pixel die Farbe abrufe) aber ich bräuchte von allen Punkten jedes enthaltene Pixel.
So finde ich die Punkte:
var
iX, iY : Integer;
begin
iX := 0;
iY := 0;
while iY < Image.Picture.Height do begin
while iX < Image.Picture.Width do begin
if Image.Canvas.Pixels[iX, iY] = clBlack then begin
{Jetzt habe ich den punkt...}
end;
inc(iX);
end; // while
inc(iY);
end; // while
end;
Ich hoffe mir kann hier jemand helfen.
Danke.
In guten Bildbearbeitungsprogrammen gibt es ein Zauberstabwerkzeug - Ein Tool, das einen Bildausschnitt, der gleichen Farbe hat, markiert. Ich bräuchte so etwas Ähnliches:
Ich Habe ein bmp mit weißem Hintergrund und Schwarzen Punkten drauf (in verschiedenen Größen und Formen). Die Punkte zu finden ist ja kein Problem (indem ich einfach Zeile für Zeile durchgehe und bei jedem Pixel die Farbe abrufe) aber ich bräuchte von allen Punkten jedes enthaltene Pixel.
So finde ich die Punkte:
var
iX, iY : Integer;
begin
iX := 0;
iY := 0;
while iY < Image.Picture.Height do begin
while iX < Image.Picture.Width do begin
if Image.Canvas.Pixels[iX, iY] = clBlack then begin
{Jetzt habe ich den punkt...}
end;
inc(iX);
end; // while
inc(iY);
end; // while
end;
Ich hoffe mir kann hier jemand helfen.
Danke.
Comment