Code: Alles auswählen
STATIC FUNCTION BMP2BMP(oBMP,aXbpSize)
LOCAL oHuge, oTiny, oPS, oRet
IF aXbpSize[2] > 0
oHuge := oBMP
//Create a small bitmap to fit in our XbpStatic
oTiny := XbpBitmap():New():Create()
oTiny:Make(aXbpSize[1],aXbpSize[2]) <------------ Fehler bei 2.0
oPS := XbpPresSpace():new()
oTiny:presSpace(oPS)
//Copie and resize the huge bitmap to the small bitmap
oHuge:Draw(oPS,{0,0,aXbpSize[1],aXbpSize[2]},,,GRA_BLT_BBO_IGNORE)
oRet := oTiny
ELSE
oRet := oBMP
ENDIF
RETURN oRet