Inoffizielles deutsches Xbase-Forum

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])

   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