topic-31843

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Redesplegar imagen

Posted: Wed Jan 20, 2016 06:47 PM

Saludos.
En un dialogo para empleados despliego la imagen del la foto del empledo, asi:

@ ANCHO_SAYGET*aIMAG_REN(i)/2,Col2Pxl(aIMAG_COL(i)) IMAGE aIMAG_OBJ(i) FILENAME eval(aIMAG_ARC(i));
SIZE aIMAG_LAR(i),aIMAG_ANC(i);
OF oVENTANA UPDATE ADJUST PIXEL
aIMAG_OBJ(i):LoadBMP(eval(aIMAG_ARC(i)))
aIMAG_OBJ(i):Refresh()

Mi problema es que si aun no registro el nombre del archivo imagen en dbf, al posicionarme en otro empledo me deja la imagen foto del anterior
que podria hacer para si no existe la foto, me despliegue en blanco la imagen foto

lo facil seria si no existe tener una imagen foto en blanco, pero correr el riesgo que la puedan eliminar.

gracias.

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Redesplegar imagen

Posted: Sun Jan 24, 2016 04:30 PM

Creo que lo puedes solucionar de la siguiente manera:

Code (fw): Select all Collapse

cFotoEmpl  := oRsFt:Fields("pp_imagen"):Value        
lFotoEmpl  := !Empty( cFotoEmpl )
cFotoEmpl  := IIf( !lFotoEmpl, FileStr( ".\pictures\nopictu.jpg" ), HexToStr( cFotoEmpl ) ) //en caso de no haber foto almacenada en la columna 'FOTO' del recordsource entonce leo de disco una foto con una imagen vacia

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

FiveTech Support Forums

Redesplegar imagen

Re: Redesplegar imagen

Continue the discussion