Page 1 of 1

Titulo de Dialogo

PostPosted: Fri Nov 03, 2017 4:37 pm
by EBM
Compañeros del foro:

Estoy desarrollando un pequeño chat para uso privado entre las sucursales de un cliente y todo va bien, pero quisiera que si un dialogo está minimizado y recibe un nuevo mensaje, "parpadeara" para que el usuario pueda saber que recibió un nuevo mensaje tal y como lo hacia Messenger en su momento, busque en el foro y Carlos hace años publico una clase TTitle que creo hace lo que necesito pero el link ya no funciona. Alguien ha hecho algo similar o que me den alguna idea de como hacerlo?

Saludos !!

LCP Eduardo Borondón Muñiz

Re: Titulo de Dialogo

PostPosted: Fri Nov 03, 2017 4:44 pm
by cnavarro
Eduardo, no sé si esto te podrá ayudar

https://msdn.microsoft.com/es-es/librar ... 46(v=vs.85).aspx

Re: Titulo de Dialogo

PostPosted: Fri Nov 03, 2017 5:15 pm
by karinha

Re: Titulo de Dialogo

PostPosted: Tue Nov 07, 2017 1:36 pm
by EBM
Hola Cristóbal y Karinha

Gracias por responder, con los ejemplos que me mandan logro hacer que la ventana "parpadee" pero únicamente si se encuentra abierta o en modo normal, si esta minimizada no hace el efecto y es precisamente lo que necesito, que lo haga cuando se encuentre minimizada, alguna idea??

Saludos y gracias

LCP Eduardo Borondón Muñiz

Re: Titulo de Dialogo

PostPosted: Tue Nov 07, 2017 2:03 pm
by karinha
Por favor, haga un pequeño ejemplo para entender mejor.

Gracias, saludos.

Re: Titulo de Dialogo

PostPosted: Tue Nov 07, 2017 2:46 pm
by cnavarro
EBM wrote:Hola Cristóbal y Karinha

Gracias por responder, con los ejemplos que me mandan logro hacer que la ventana "parpadee" pero únicamente si se encuentra abierta o en modo normal, si esta minimizada no hace el efecto y es precisamente lo que necesito, que lo haga cuando se encuentre minimizada, alguna idea??

Saludos y gracias

LCP Eduardo Borondón Muñiz

BOOL WINAPI FlashWindow(
_In_ HWND hWnd,
_In_ BOOL bInvert
);

hWnd [in]
A handle to the window to be flashed. The window can be either open or minimized.
bInvert [in]
If this parameter is TRUE, the window is flashed from one state to the other. If it is FALSE, the window is returned to its original state (either active or inactive).
When an application is minimized and this parameter is TRUE, the taskbar window button flashes active/inactive. If it is FALSE, the taskbar window button flashes inactive, meaning that it does not change colors. It flashes, as if it were being redrawn, but it does not provide the visual invert clue to the user.




Re: Titulo de Dialogo

PostPosted: Tue Nov 07, 2017 4:27 pm
by EBM
Cristóbal y Karinha

Mil gracias, funciona perfecto!!, era solo ponerlo en verdadero

Gracias de nuevo a ambos por su tiempo

Saludos!!

LCP Eduardo Borondón Muñiz

Re: Titulo de Dialogo

PostPosted: Wed Nov 08, 2017 2:27 pm
by jbrita
Amigo tendria un ejemplo y imagen para compartir

saludos

Re: Titulo de Dialogo

PostPosted: Wed Nov 08, 2017 11:01 pm
by EBM
Hola jbrita

Con todo gusto, pásame tu correo y te envío un ejemplo que tengo funcionando.

Saludos !!

LCP Eduardo Borondón Muñiz

Re: Titulo de Dialogo

PostPosted: Thu Nov 09, 2017 2:53 am
by joseluisysturiz
EBM wrote:Hola jbrita

Con todo gusto, pásame tu correo y te envío un ejemplo que tengo funcionando.

Saludos !!

LCP Eduardo Borondón Muñiz


+ 1 me anexo al pedido si es posible... saludos, gracias... :shock:

joseluisysturiz arroba yahoo dot com

Re: Titulo de Dialogo

PostPosted: Thu Nov 09, 2017 2:53 pm
by jbrita

Re: Titulo de Dialogo

PostPosted: Fri Nov 10, 2017 9:54 pm
by EBM
Enviado!!

Saludos!!

LCP Eduardo Borondón Muñiz

Re: Titulo de Dialogo

PostPosted: Fri Nov 10, 2017 10:11 pm
by Armando
Eduardo:

Podrías poner el ejemplo aquí en el foro?, así a quien le interese se vería beneficiado.

Saludos

Re: Titulo de Dialogo

PostPosted: Mon Nov 13, 2017 3:47 pm
by EBM
Hola Armando

Tienes razón, una disculpa, aquí va el código para hacer el efecto:

/////////////////////////////////////////////////////////////////////////////////////////////////
FUNCTION Parpadeo( oWnd )

If oWnd:IsIconic() .and. oWnd:lNewMsg
FlashWnd( oWnd:hWnd, 1 )
Tone( 2000, .1 )
else
oWnd:lNewMsg := .F.
EndIf

Return .T.

////////////////////////////////////////////////////////////////////////////////
DLL32 FUNCTION FlashWnd( hWnd AS LONG, nInvert AS LONG ) AS LONG PASCAL FROM "FlashWindow" LIB "User32.dll"


Saludos!!

LCP Eduardo Borondón Muñiz

Re: Titulo de Dialogo

PostPosted: Mon Nov 13, 2017 4:37 pm
by Armando
Eduardo:

No tienes que disculparte, por el contrario, gracias por tu aporte al foro.

Saludos