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]