FiveTech Software tech support forums

SurGom (un nombre especial), aki esta el codigo, el checkbox es un bitmap, ese lo cargas con el loadimage y dependiendo del valor logico del cmapo es el bitmap que usas. Karinha, asi pongo el color y uso el TWBROWSE de HDC oBrw:bTextColor := { | nRow, nCol, nStyleLine ...

SurGom (un nombre especial), aki esta el codigo, el checkbox es un bitmap, ese lo cargas con el loadimage y dependiendo del valor logico del cmapo es el bitmap que usas. Karinha, asi pongo el color y uso el TWBROWSE de HDC oBrw:bTextColor := { | nRow, nCol, nStyleLine | ...

... _nCol := GetWndRect(GetDesktopWindow())[4] If File(cFile) @ 0,0 Image oBmp OF oWnd:oWndClient ; NOBORDER PIXEL SIZE _nCol,_nFil oBmp:LoadImage(,cFile) oBmp:refresh() Else FillWnd( oWnd:oWndClient, nColor ) Endif return nil Que estoy haciendo mal? Gracias Paco

Hola,

suponiendo que el oBmp es el objeto del fondo de la ventana, entonces al entrar a la nueva ventana carga un grafico en blanco o por ultimo uno que no existe con oBmp:LoadImage(""), luego para restaurar el anterior fondo oBmp:LoadImage("resname")
con eso deberia funcionar

saludos

Marcelo

Biel EA6DD wrote:LoadImage( cResName, cBmpFile )
SaveImage( cFile, nFormat )

Pues he hecho esto:

Code: Select all  Expand view

oBmp:=TImage():Define("Logo",,)
oBmp:SaveImage("pepe.bmp")
oBmp:End()

¿ Pero hay forma de quitarse del medio la DLL freeimage.dll ?

Pues entonces prueba con la clase tImage. Los siguientes metodos te permiten recuperar desde recurso, y grabara a disco. LoadImage( cResName, cBmpFile ) SaveImage( cFile, nFormat ) Esto con BMPs en recursos te va a funcionar, para JPG lo dudo. Si te a servido de ayuda, apuntate q debes ...

... { HMENU iMenu; MENUINFO iMenuInfo ; COLORREF lColor = hb_parnl(2); BOOL lSubMenu = hb_parl(3); HBITMAP himage ; // HWND himage ; // himage = (HWND)LoadImage(0,hb_parc(4),IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT ); himage = (HBITMAP)LoadImage(0,hb_parc(4),IMAGE_BITMAP ...

... error: array access Args: [ 1] = N 1218989820 Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TBITMAP:LOADIMAGE(0) Called from TBITMAP:NEW(0) Called from MSGLOGO(0) Called from MAIN(176) System ====== CPU type: Pentium Hardware memory: 2047 megs Free ...

Antonio que erro é esse:


HARBOUR EXECPETION:

Called from CALLDLL(0)
Called from GETDSKTP32(0)
Called from LOADIMAGE2(164)
Called from Timage:loadimage(112)
Called from Timage:reload(0)
Called from _eval(0)
Called from Timage:loadbmp(0)

FWH7.1 + XHARB 99.71

... sólo visualizo los que tenian extensión .bmp Con loadbmp\"+cfoto+".jpg" sólo visualizo los que tenian extensión .jpg Así como con IMAGE ofoto, con loadimage. etc. Tambien he probado utilizando alltrim(cfoto), en la cabecera pongo el #include"Image.ch", el fichero freeimage.dll lo tengo en todos ...

Andrés,

@ 5.3, 8 GET oPass VAR x_pass picture "@!" OF oDlg PASSWORD SIZE 50 , 10 VALID ( oImg:LoadImage( , "..\COMU\FOTOS\"+alltrim(x_user)+".jpg" ), oImg:Refresh(), .T. )

oBmp1:LoadImage( , cNombreImagen )
oBmp1:Refresh()

Luis,

Usa oBmp:LoadImage( , "fondomeg.jpg" ) en vez de oBmp:LoadBmp("fondomeg.jpg" ).

Que versión y build de FWH usas ?

... de "+ALLTRIM(CLIENTES->NumCliente)+" - "+ALLTRIM(CLIENTES->Nombre) // IF !FILE(LFN2SFN(cFoto)) cFoto="NOHAY.JPG" ENDIF // oFoto:LoadImage(,cFoto) oFoto:Refresh() oDlg:cTitle:=cTitulo oDlg:Refresh() // RETURN NIL Espero te sea de ayuda. Un saludo, Manuel

Dale,

You may use a temporary file to write the bitmap and then assign it to the bitmap object:

local cTempFile := cTempFile( "\", "bmp" )

MemoWrit( cTempFile, field->image )

oImage:LoadImage( , cTempFile )
oImage:Refresh()