TBitmap nur zusammenhängende Pixel kopieren

**endeffects**

Hallo,

ich möchte aus einem TBitmap nur Pixel einer Farbe kopieren
die zum selben Objekt gehören, was allerdings gar nicht so einfach ist.
ähnlich dem photoshop werkezug "zauberstab" mit der option "benachbart".

angefangen hab ich nun mit einer methode die das bild von links nach recht
spaltenweise (!) einliest und alle pixel der selben farbe in ein zweites
bitmap kopiert:

zusammenfalten · markieren

Delphi-Quellcode:

			  x:= 0;

  while x < CacheBitmap.Width - 1 do

  begin

    for y := 0 to CacheBitmap.Height - 1 do

    begin

      P := CacheBitmap.ScanLine[y];

      for i:= 0 to x do

        inc(P);

      if (P^.rgbRed = 0) and (P^.rgbGreen = 0) and (P^.rgbBlue = 0) then

      begin

        MyRect:= Rect(x, y, SmartBitmap.Height-1, SmartBitmap.Width-1);

        MyOther:= Rect(x,y,SmartBitmap.Height-1, SmartBitmap.Width-1);

        SmartBitmap.Canvas.CopyRect(MyOther,CacheBitmap.Canvas,MyRect);

      end;

    end;

    inc(x);

  end;

zusätzlich habe ich auch schon mit einem zweiten pointer experimentiert,
der den nächst liegenden rechten pixel mit dem aktuellen vergleicht.
mein problem allerdings bleibt bestehen, wie erkenne ich wann welcher
pixel zur selben form gehört. hat da jemand vielleicht eine idee?

ein gutes beispiel um das zu veranschaulichen wäre z.B. das 'E' und die '3'.
von links nach recht gelesen fällt es besonders bei der '3' schwer die pixel zu zuordnen.

mfg

**dizzy**

Das riecht für mich nach einer Rekursion. In etwa so: (Pseudocode)

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Pixelliste: TList (oder ähnliches);

procedure MakePixellist(x, y: Integer {Startpunkt}; c: TColor);

begin

  if PixelIstNichtInListe then

  begin

    if FabeAtXY = c then

    begin

      PackeXYinDieListe;

      MakePixellist(x+1, y  , c);

      MakePixellist(x  , y+1, c);

      MakePixellist(x-1, y  , c);

      MakePixellist(x  , y-1, c);

    end;

  end;

end;

So in etwa müsstest du an alle zusammenhängenden Pixel einer Farbe ausgehend vom Startpixel heran kommen.

Gruss,
Fabian

**shmia**

Kuck mal da:

http://www.efg2.com/Lab/Graphics/Colors/ColorRange.htm
da kriegst du mehr als du eigentlich wolltest.

[edit]vielleicht doch nicht, denn du wolltest ja nur zusammenhängende Flächen [/edit]

**endeffects**

über eine art landkarte hab ich auch schon nachgedacht,
fehlt mir leider die erfahrung für

trotzdem danke euch beiden

**dizzy**

Das Thema hier klingt

diesem doch recht ähnlich

.

TBitmap nur zusammenhängende Pixel kopieren

TBitmap nur zusammenhängende Pixel kopieren

Re: TBitmap nur zusammenhängende Pixel kopieren

Re: TBitmap nur zusammenhängende Pixel kopieren

Re: TBitmap nur zusammenhängende Pixel kopieren

Re: TBitmap nur zusammenhängende Pixel kopieren

Forumregeln

shmia Registriert seit: 2. Mär 2004 5.508 Beiträge Delphi 5 Professional	#3 Re: TBitmap nur zusammenhängende Pixel kopieren 28. Apr 2005, 12:32 Kuck mal da: http://www.efg2.com/Lab/Graphics/Colors/ColorRange.htm da kriegst du mehr als du eigentlich wolltest. [edit]vielleicht doch nicht, denn du wolltest ja nur zusammenhängende Flächen [/edit] Andreas
	Zitat

endeffects Registriert seit: 27. Jun 2004 450 Beiträge	#4 Re: TBitmap nur zusammenhängende Pixel kopieren 28. Apr 2005, 12:48 über eine art landkarte hab ich auch schon nachgedacht, fehlt mir leider die erfahrung für trotzdem danke euch beiden
	Zitat

dizzy Registriert seit: 26. Nov 2003 Ort: Lünen 1.932 Beiträge Delphi 7 Enterprise	#5 Re: TBitmap nur zusammenhängende Pixel kopieren 3. Mai 2005, 10:21 Das Thema hier klingt diesem doch recht ähnlich . Fabian K. INSERT INTO HandVonFreundin SELECT * FROM Himmel
	Zitat