FiveTech Support Forums

I have this but not run

@ nRow, 440 XIMAGE oImage ;

         FILENAME IF(empty(cImmagine ),cDefaImage,cImmagine  );//  NOBORDER ;

         SIZE 350,174 ;

         OF oDlg ;

         UPDATE

@ nRow, oDlg:nWidth-50 BTNBMP oBtnSel[6] FLAT SIZE 30, 24 OF oDlg PIXEL ;

            COLOR  nRgb(238,236,219),nRgb(238,236,219) ;

            BITMAP ".\bitmaps\folder_add.png" NOROUND;

            ACTION  (cImmagine:= GetImage(oImage),oImage:SetSource( cImmagine ) )

function GetImage(oImage)

local gcFile := cGetFile("PNG (.png)| .png|" + ;

                         "Bitmap (*.bmp)| *.bmp|" +         ;

                         "JPEG  (*.jpg)| *.jpg|" +          ;

                         "GIF   (*.gif)| *.gif|"  +         ;

                         "All Files (*.*)| *.*"             ;

                        ,"Per favore seleziona un file immagine", 4 )

if ! Empty( gcFile ) .and. File( gcFile )

 oImage:LoadBmp( gcFile )

endif

the function GetImage(oImage) come from Image class ( freeImag.dll) and not with xImage

Any Help ?

return nil

Look, c:\fwh\samples\IMGCONV.PRG pls.

Regards, saludos.