FiveTech Support Forums

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

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