RegisterBitmap für PB 4.00, wer kann helfen

[Thatsanee]

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 

Hallo diese Procedure läuft nicht mehr unter 4.0
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

[Ja!]

Ich weiß zwar keine Antwort auf Deine Frage, aber warum schreibst Du sowas ins Anfänger-Forum?

Vielleicht lesen es im Allgemeinen Forum die richtigen Leute und können eher helfen..


Gruß

[Thatsanee]

Danke für die viele Tips,

hat sich erledigt.

[Donald]

Hi,

ist zwar schon was älter der Beitrag,
aber was hast Du denn nun geändert das
es unter 4.xx läuft ?


Gruß Donald


..