Code: Select all
@ 0,0 DCSTATIC TYPE XBPSTATIC_TYPE_BITMAP ;
CAPTION oBitmap PREEVAL {|o|o:autoSize := .t.} ;
EVAL {|o|hDC1 := GetWindowDC(o:getHWnd()), ;
aPixel := Array(o:caption:xSize,o:caption:ySize)}
DCREAD GUI FIT TITLE aFileName[i] ;
EVAL {|o|LoadArray(hDC1,aPixel), ;
Save2Dbf(aPixel,aFileName[i]), ;
PostAppEvent(xbeP_Close,,,o)}