bislang habe ich mit oTiny:presSpace(oPS) gearbeitet.
Code: Alles auswählen
FUNCTION BMP2BMP(oBMP,aXbpSize)
LOCAL oHuge
LOCAL oTiny
LOCAL oPS
LOCAL oRet
IF aXbpSize[2] > 0
oHuge := oBMP
oTiny := XbpBitmap():New():Create()
oTiny:Make(aXbpSize[1],aXbpSize[2])
oPS := XbpPresSpace():new()
// hier PresSpace zuordnen
oTiny:presSpace(oPS)
oHuge:Draw(oPS,{0,0,aXbpSize[1],aXbpSize[2]},,,GRA_BLT_BBO_IGNORE)
oRet := oTiny
ELSE
oRet := oBMP
ENDIF
RETURN oRet
Code: Alles auswählen
FUNCTION BMP2BMP(oBMP,aXbpSize)
LOCAL oHuge
LOCAL oTiny
LOCAL oPS
LOCAL oRet
IF aXbpSize[2] > 0
oHuge := oBMP
oPS := XbpPresSpace():new()
// schon bei o:create() PresSpace zuordnen
oTiny := XbpBitmap():New():Create(oPS)
oTiny:Make(aXbpSize[1],aXbpSize[2])
oHuge:Draw(oPS,{0,0,aXbpSize[1],aXbpSize[2]},,,GRA_BLT_BBO_IGNORE)
oRet := oTiny
ELSE
oRet := oBMP
ENDIF
RETURN oRet
wer hat eine Idee ?