Scanline: Punkt finden

[angos]

du musst erstmal das hier für dich klären

Zitat von DeddyH:

Abgesehen davon muss man sich im Vorfeld überlegen, was ein "roter Punkt" eigentlich ist (Farb-Annäherung).

dann musst du doch einfach den Teil aus dem Tutorial, wo der wert zugewiesen wird umbauen und danach abfragen.

Beispiel(ungetestet):

Delphi-Quellcode:

procedure TForm1.MakeRed(Bit: TBitmap);
type
  PixArray = array [1..3] of Byte;
var
  p: ^PixArray;
  h,w: Integer;
begin
  for h:=0 to Bit.Height-1 do
  begin
    p:= Bit.ScanLine[h];
    for w:=0 to Bit.Width-1 do
    begin
      if (p^[3]=255) then
      begin
        showmessage('Juchhu!!! Zeile: ' + IntToStr(h) + ' Spalte ' + IntToStr(w));
      end;
      Inc(p);
    end;
  end;
end;

[EDIT] 20mins... da kann man auch mal länger suchen


[edit 2]

Zitat:

Da fängts ja bei mir schon mit den PRoblemen an, nämlich wie mache ich das?

na (ganz einfach) so:

Delphi-Quellcode:

  p^[1] // Entspricht dem Blau-Anteil
  p^[2] // Entspricht dem Grün-Anteil
  p^[3] // Entspricht dem Rot-Anteil