Zitat von
Brüggendiek:
Wenn es dann klappt, hast Du in irgendeiner
Unit eine neue tBitMap definiert und die wird dann genommen!
Nicht irgendeine
Unit. Das ist ein Standard Problem. tagBitmap und TBitmap sind durch Windows definierte Konstrukte. In der Uses Klausel steht die
Unit Graphics vor der
Unit Windows. Daraus ergibt sich dieses Problem. Auszug aus Windows.pas
Delphi-Quellcode:
{ Bitmap Header Definition }
PBitmap = ^TBitmap;
{$EXTERNALSYM tagBITMAP}
tagBITMAP = packed record
bmType: Longint;
bmWidth: Longint;
bmHeight: Longint;
bmWidthBytes: Longint;
bmPlanes: Word;
bmBitsPixel: Word;
bmBits: Pointer;
end;
TBitmap = tagBITMAP;
{$EXTERNALSYM BITMAP}
BITMAP = tagBITMAP;