Hola tengo el fw21, y cuando intento poner un tbitmap desde resource que coja un fichero jpg, este no lo pinta, sin embargo el mismo jpg desde el ejemplo de fw21 testimg.prg si que lo pinta, utilizo lo siguiente:
gracias a todos
REDEFINE BITMAP oImage file aDat[36] ID 13 OF oDlt ADJUST UPDATE
REDEFINE BUTTON ID 1001 OF oDlt ACTION (lReg:=.T.,oDlt:End())
REDEFINE BUTTON ID 1002 OF oDlt ACTION oDlt:End()
redefine button id 134 of oDlt action (prepro(cart,aDat)) when !lnew
REDEFINE BUTTON ID 16 OF ODLT ACTION (adat[36]:=GETIMAGE(oImage,oDlt),ot:oDat[12]:refresh())
static Function GetImage( oImage ,oDlt)
local gcFile := cGetFile( "JPEG (*.jpg)| *.jpg|" + ;
"DIB (*.dib)| *.dib|" + ;
"PCX (*.pcx)| *.pcx|" + ;
"BITMAP (*.bmp)| *.bmp|" + ;
"GIF (*.gif)| *.gif|" + ;
"TARGA (*.tga)| *.tga|" + ;
"RLE (*.rle)| *.rle|" + ;
"Todo Tipo (*.*)| *.*" ;
,"Seleccione un Fichero de imagen", 4 )
* oiMAGE:SetBMP("",gcfile)
* oimage:Reload("",gcfile)
* oimage:Refresh()
* oDlt:Update()
if ! Empty( gcFile ) .and. File( gcFile )
* oImage:LoadBmp( gcFile )
oiMAGE:SetBMP("",gcfile)
oimage:Reload("",gcfile)
oimage:Refresh()
oDlt:Update()
endif
return gcfilegracias a todos
