ich bekomme es nicht hin ein "interes" Bitmap mit L & L anzuzeigen.
so langsam hab einen Verdacht :
1.) wenn ich es so abspeicher, was ist dann "intern" im Memo ?
Code: Alles auswählen
LOCAL oTargetPS := XbpPresSpace() :new() :create()
LOCAL oBitmap := XbpBitmap() :new() :create()
LOCAL oPS
oPS := oSourceArea:lockPS()
oBitmap:presSpace( oTargetPS )
oBitmap:make( nSizeX, nSizeY )
GraBitBlt( oTargetPS, oPS, { 0, 0, nSizeX, nSizeY }, aRect )
oSourceArea:unLockPS( oPS )
Sleep( 0 )
oTargetPS:destroy()
IF RECORDLOCK( LOCK_DAUER )
// intern Bitmap in Memo saven
REPLACE CHINABMP->BITMAP WITH oBitmap:SetBuffer()
UNLOCK
ENDIF
cSavePic := zPATH + "PIC\" + cBildnr + ".BMP"
IF FILE( cSavePic )
FERASE( cSavePic )
ENDIF
// externes Bitmap saven
oBitmap:SaveFile( cSavePic )
2.) wie sieht euer DBESYS.PRG für ein Memo aus worin ihr Bitmaps habt ?
Es ist ja möglich das mein Problem mit L & L damit zusammen hängt
das ich ein Memo Type habe was nicht dem "Bitmap Type" von L & L
entspricht und deshalb es "leer" bleibt ?
gruss by OHR
Jimmy