FiveTech Support Forums

#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