Lazarus Delphi Canny

[Delphi-Laie]

Zunächst müssen die Quelltextstellen, die Compilerfehler verursachen, geändert werden, sodaß die Compilerfehler entfallen, und dann muß das fertige Compilat geprüft und ggf. untersucht (meistens per Debugging) werden.

[Union]

Vermutlich ist der Typ falsch definiert:
PixArray = Array [1 .. MaxInt div SizeOf(TRGB) - 1] of TRGB; Die Zähler starten überall bei 0.

[Atlunch]

Wenn ich die Definition ändere kommt keine Fehlermeldung mehr sondern es wird einfach ein weißes Bild ausgegeben

[Atlunch]

Ich hab nun zum testen erstmal alles ausgeklammert bis auf

ConvertToGrayScale(ImgIn,ImgGray);
ImgToPixArray(ImgGray, PA_Gray);
PixArrayToImg(PA_Gray, ImgOut);

um nur die Graustufung zu testen. Schon dort erhalte ich nur ein weißes Bild.
Dabei ist mir aufgefallen das in der Procedure "ConvertToGrayScale(ImgIn,ImgGray)" bei der Berechnung des GrayShade für alle unterschiedlichen Farbwerte immer 255 berechnet wird!

Das kann doch nicht sein oder?