Das Problem hab ich schön gelöst, aber Danke:
Delphi-Quellcode:
function GetPixel(Bitmap:TBitmap; const x, y:Integer):LongInt;
var sl:PByteArray;
begin
sl:=Bitmap.ScanLine[y];
Result:=(sl[(x * 3)+2])+(sl[(x * 3)+1] shl 8)+(sl[(x * 3)+0] shl 16);
end;
Zu komplex für den Compiler?
Der Delphi 2.0 Compiler kann das aber
Der Fehler wurde erst später eingebaut, und ich wollte eigentlich wissen, ob der Fehler bei den neueren Versionen immer noch da ist.