Überprüfung eines Image

[Jowo]

Zitat von Jowo:

Oder du könntest in zwei for-Schleifen alle Pixel durchlaufen lassen, die im Bereich des neuen Hauses wären und sobald einer davon nicht weiß ist, gibt es den Fehler...

Zum Beispiel so, wenn du das am besten findest:

Delphi-Quellcode:

var x1,x2,y1,y2,i,j: integer;
    fehler: boolean;
begin
    fehler := false;
    for i := x1 to x2 do begin
        for j := y1 to y2 do begin
            if Image1.Canvas.Pixels[i,j] <> clwhite then fehler := true;
        end;
    end;
    
    if fehler = true then Application.MessageBox("Fehler...","Fehler");
end;

Oder so ähnlich...
Und x1,x2,y1,y2 sind die Anfangs- und End-Koordinaten auf der x- und y-Achse!


[edit]i und j zu Deklaration hinzugefügt[/edit]