Me encuentro con la siguiente limitacion. Si uso la clase image me carga perfectamente una foto en formato jpg. Si intento cargar mas de 3/4 en un dialog no lo consigo. Parece una limitacion de memoria. Alguien ha soventado el problema ?. Pongo un ejemplo sencillo para test.
Code: Select all
#include "FiveWin.ch"
#include "Image.ch"
//----------------------------------------------------------------------------
function Main()
LOCAL oDlg, oImage1, oImage2, oImage3, oImage4, oImage5, oImage6
LOCAL cFile := cGetFile( curdrive() + ':\' + CurDir() + '\*.jpg' )
DEFINE DIALOG oDlg FROM 0, 0 TO 39, 50 ;
TITLE FWDESCRIPTION + " JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!"
@ 0 , 0 IMAGE oImage1 FILE cFile SIZE 100, 100 OF oDlg ADJUST
@ 7 , 0 IMAGE oImage2 FILE cFile SIZE 100, 100 OF oDlg ADJUST
@ 14, 0 IMAGE oImage3 FILE cFile SIZE 100, 100 OF oDlg ADJUST
@ 0 , 12 IMAGE oImage4 FILE cFile SIZE 100, 100 OF oDlg ADJUST
@ 7 , 12 IMAGE oImage5 FILE cFile SIZE 100, 100 OF oDlg ADJUST
@ 14, 12 IMAGE oImage6 FILE cFile SIZE 100, 100 OF oDlg ADJUST
oDlg:bStart := MsgInfo( 'oImage1:hBitmap ' + str( oImage1:hBitmap ) + CRLF + ;
'oImage2:hBitmap ' + str( oImage2:hBitmap ) + CRLF + ;
'oImage3:hBitmap ' + str( oImage3:hBitmap ) + CRLF + ;
'oImage4:hBitmap ' + str( oImage4:hBitmap ) + CRLF + ;
'oImage5:hBitmap ' + str( oImage5:hBitmap ) + CRLF + ;
'oImage6:hBitmap ' + str( oImage6:hBitmap ) )
ACTIVATE DIALOG oDlg CENTER ;
return nil