GetImage with xImage

[Silvio.Falconi]

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

[karinha]

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

Regards, saludos.