@Muetze1
Seltsam, mein Code scheint aber zu funktionieren.
Mit:
Delphi-Quellcode:
for B := 1 to 531 do
for E := H to 312 do
begin
if not (Image1.Canvas.Pixels[B,H]=clWhite) then belegt:=belegt+1;
end;
Damit liefert er mir korrekte Ergebnisse wieviele Pixel nicht Weiß sind.
@Topic
Also mir ist geholfen. Vielen Dank
