insertar imagen en recurso

[norte_67]

estimados amigos, necesito insertar una imagen en recurso hecho con workshop, el tema es que elemento uso del workshop para que me la posicione en la ventana
Tbitmap , o tBtnBmp.
se activa tal como sigue abajo??

1) Redefine IMAGE ofoto id 601 OF oDlg ADJUST
ofoto:LoadBmp("FOTO001.JPG")

ó


2) redefine IMAGE ofoto id 601 OF Odlg ADJUST

ó

3) REDEFINE IMAGE oFoto FILENAME "FOTO001.JPG" ID 601 OF oDlg //UPDATE ADJUST

Cual es la indicada?'

FWH 8.12, BCC 5.5, workshop 4.5, xharbour, xHarbour 812, for BCC - 21/August/2008

[jll-fwh]

Hola Norte_67:

En codigo con recurso:

REDEFINE IMAGE oImage ID 400 OF oDlg FILENAME cImage ADJUST MESSAGE "Imagen asociada" UPDATE

y el recurso con workshop:

style "TImage"

En la carpeta \samples tienes ejemplos, creo que el ejemplo se llamaba testimg.prg ( hace mucho q no miro ejemplo, pero creo que se llamaba asi )

Para seleccionar la imagen que quieres cargar yo uso esta funcion:

/*------------------------------------------------------------------------------*/
STATIC Function CargaIMG()
/*------------------------------------------------------------------------------*/

LOCAL cFile := cGetFile( "Bitmap (*.bmp)| *.bmp|" + ;
"DIB (*.dib)| *.dib|" + ;
"PCX (*.pcx)| *.pcx|" + ;
"JPEG (*.jpg)| *.jpg|" + ;
"GIF (*.gif)| *.gif|" + ;
"TARGA (*.tga)| *.tga|" + ;
"RLE (*.rle)| *.rle|" + ;
"All Files (*.*)| *.*" ;
,"images\", 4 )

If ! Empty( cFile ) .and. File( cFile )
oImage:LoadBmp( cFile )
cCampos[11] := cFile
oCampos[11]:Refresh()
End

Return NIL

Espero que te sirva;
un saludo
JLL