Übrigens hier war auch ein Problem
Delphi-Quellcode:
BitmapData = packed record
Width : UINT;
Height : UINT;
Stride : Integer;
PixelFormat : PixelFormat;
Scan0 : Pointer;
Reserved : UINT_PTR; // war vorher UINT! Nur dann wird nichts gezeichnet.
end;
TBitmapData = BitmapData;
PBitmapData = ^TBitmapData;
usw..
Bis man so etwas mal findet vergehen Tage.
gruss