topic-25840

Posts: 364

Joined: Tue Oct 25, 2005 07:06 PM

BITMAP
Posted: Mon Mar 11, 2013 02:32 PM

saludos se pueden mostrar 2 bitmap uno sobre otro, lo que quiero es ver en pantalla una planilla con 10 firmas, pero dependiendo de un Id enseñar solo una y las otras nueve ponerles un bitmap borroso, osea que se entienda solo 1 de las 9, segun unas coordenadas de renglon, muestro la de esa coordenada y las demas le monto como un vidrio opaco, alguna idea? alguien ha hecho algo parecido?

gracias

alejandro

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

QAZWSX2K

Posts: 364

Joined: Tue Oct 25, 2005 07:06 PM

Re: BITMAP
Posted: Mon Mar 18, 2013 04:50 PM

alguna gentil idea, gracias

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217

George

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

Re: BITMAP
Posted: Tue Mar 19, 2013 01:25 AM

Alejandro,
Creo usando las propiedades Hide() y Show() del bitmap pudieras resolver el problema.

Saludos,

George

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: BITMAP
Posted: Tue Mar 19, 2013 02:00 PM

QAZWSX2K wrote:alguna gentil idea, gracias

Se me ocurre hacer dos bmps de cada uno: uno nitido y otro borroso y en función del ID enseñar uno u otro
No es lo que preguntas pero creo que podrías solucionarlo asi
Un saludo

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: BITMAP
Posted: Tue Mar 19, 2013 03:37 PM

Funcion original de Daniel,
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22517&p=120188&hilit=BlurEffect#p120083
modificada a mis necesidades...
BlurEffect( oDIALOG, nTimes, lForWard, WinXp)
oDialog == objeto a pintar vidrio opaco //dialogo, ventana, boton, foto, etc...
nTimes == Veces a ser pintado para crear un efecto de movimiento o degradado /// yo uso 8 para que no tarde mucho en Win7
lForward == .T. hacia adelante, .F. Hacia atras...
WinXp == .T. Windows Xp, .F. Windows Vista o Win7 ///Lo que pasa es que Xp es mucho más lento

Puedes usarlo así:

Code (fw): Select all Collapse

BlurEffect(oFoto)

Code (fw): Select all Collapse

FUNCTION BlurEffect( oDIALOG, nTimes, lForWard, WinXp)
    LOCAL hBmp, i, hBlur
    
    DEFAULT nTimes := 4, lForWard := .T., WinXp := .T. 
    
    SysRefresh()
    
    oDIALOG:GetDC()
    
    hBmp := MakeBkBmp( oDIALOG:hWnd , oDIALOG:hDC )
    
    If IsWin7() .AND. !WinXp 
        FOR i := 1 TO nTimes
            If( !lForWard, nTimes := nTimes - 1 , )
        
            hBlur := Blur( hBmp , If( lForWard, i , nTimes * 2 ) )
            
            PalBmpDraw( oDIALOG:hDC , 0 , 0 , hBlur )
        Next
    Else
        hBlur := Blur( hBmp , nTimes * 2 )
        
        PalBmpDraw( oDIALOG:hDC , 0 , 0 , hBlur )
    EndIf
    
    DeleteObject( hBmp )
    DeleteObject( hBlur )
    
    oDIALOG:ReleaseDC()
RETURN NIL

Para quitar el efecto, basta con un simple

Code (fw): Select all Collapse

oFoto:Refresh()

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

FiveTech Support Forums

Continue the discussion