RegisterBitmap für PB 4.00, wer kann helfen
Verfasst: 16.06.2006 19:29
Code: Alles auswählen
Procedure RegisterBitmap (ImageNumber, hBitmap)
Protected *lptr.Long, *wptr.Word, BitmapData.BITMAP
GetObject_(hBitmap, SizeOf(BITMAP), @BitmapData)
!EXTRN _PB_Image_ObjectsArea
!MOV Eax, [_PB_Image_ObjectsArea]
!MOV [Esp+8], Eax
*lptr + ImageNumber * 14
*lptr\l = hBitmap
*wptr = *lptr + 4
*wptr\w = BitmapData\bmWidth
*wptr + 2
*wptr\w = BitmapData\bmHeight
*wptr + 2
*wptr\w = BitmapData\bmBitsPixel
*lptr = *wptr + 2
*lptr\l = BitmapData\bmBits
EndProcedure
Der fehler dürfte in diesen Zeilen sein,
!EXTRN _PB_Image_ObjectsArea
!MOV Eax, [_PB_Image_ObjectsArea]
aber wie lauten diese für 4.0
Thatsanee