--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/b71f2d5c-5c2c-4047-a246-e1135555c89dn%40googlegroups.com.
--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/9ecec997-2d4a-4510-a972-f473b85ab248n%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/5cc302a3-d234-4a10-bdc3-9edfcf9ebcf9n%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/2ce0883d-4bf0-4efe-bab8-5c75e23d0775n%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/1b99c102-6912-43d5-8db8-569f4c74f15cn%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/f90a31e2-2bdf-4dfd-a572-ba4012f0ad8fn%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/de87b7bc-dce8-44e9-8fbe-a28ffeec0a8cn%40googlegroups.com.
To know: On \harbour34\contrib\hbwin\win_shell.c
/* win_ShellNotifyIcon( [<hWnd>], [<nUID>],
[<nMessage>], [<hIcon>],
[<cTooltip>], [<lAddDel>],
[<cInfo>], [<nInfoTimeOut>],
[<cInfoTitle>], [<nInfoFlags>] ) --> <lOK> */
HB_FUNC( WIN_SHELLNOTIFYICON )
José M. C. Quintas
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/CAGDVDAiCZJJK0XXZwOyJXphdgEomBSwVuG3M9OOLCYXGsvOguw%40mail.gmail.com.
As you can see, the V1 is cutting most of the structure.
You can also compare your shellapi.h to mine, as I'm attaching it
to this message.
Anyway, did you read the suggestion by Quintas?
You could directly use hbwin.lib to achieve the same result
bypassing the suffered problems...
Please, let me know if about your shellapi.h and if you need some
help about using the hbwin solution, even if it should be trivial
to do.
Best regards.
--
Maurizio
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/1f4ed69e-998e-4ba0-8e5d-23af61d50111n%40googlegroups.com.
G:\hb32\AIT32\KK\MsgBalloon>notify.exe .F. .F.
I'm starting to look like the clumsiest of the class, but no suggestion works for me, not even the simplest ...
But I keep trying and any suggestions are welcome.
hbwin on harbour 3.4 has too many other functions.
I would like to see same routines on harbour 3.2 and Xharbour.
On this way, hwgui, minigui and others can use standards routines for windows.
Harbour/xHarbour becomes more powerfull, and libraries more
standard, without need to multiply API Windows functions and/or C
routines to use with harbour/xharbour.
José M. C. Quintas
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/bfd1bd3f-b2b2-4923-924a-252e14958159n%40googlegroups.com.
/*
PTESBALLOON
*/
PROCEDURE pTesBalloon
STATIC nMsg := 1
MsgBalloon( "NFE autorizada " + Ltrim( Str( nMsg ) ), "NFE
autorizada " + Ltrim( Str( nMsg++ ) ) )
RETURN
FUNCTION MsgBalloon( cSubTitle, cMsg, hIcon )
IF hIcon == Nil
hIcon := "AppIcon"
ENDIF
hIcon := ze_IconFromResource( hIcon )
win_ShellNotifyIcon( , , , , , .F. )
win_ShellNotifyIcon( , , , hIcon, , .T., cMsg, ,
cSubTitle,,"JPA " + AppEmpresaNome() )
RETURN Nil
FUNCTION ze_IconFromResource( cIcon, nWidth, nHeight )
RETURN wapi_LoadImage( wapi_GetModuleHandle(), cIcon,
WIN_IMAGE_ICON, nWidth, nHeight, WIN_LR_DEFAULTSIZE )
Using Harbour 3.4 + mingw 7.3
José M. C. Quintas
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/219988b7-7efc-4d1b-bbe9-c9965b3fd7cbn%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/76a3bd9d-859f-444e-b0aa-b1feefc44d56n%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/56099f05-5f83-4795-b782-c28fcc6690a6n%40googlegroups.com.
win_ShellNotifyIcon( , , , , , .F. )
win_ShellNotifyIcon( , , , hIcon, , .T., cMsg, ,
cSubTitle,,"JPA " + AppEmpresaNome() )
/* win_ShellNotifyIcon( [<hWnd>], [<nUID>],
[<nMessage>], [<hIcon>],
[<cTooltip>], [<lAddDel>],
[<cInfo>], [<nInfoTimeOut>],
[<cInfoTitle>], [<nInfoFlags>] ) --> <lOK> */
There are 3 text parameters, default is application name.
José M. C. Quintas
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/96df5ed1-d2bd-a649-c6e6-c449e8bef534%40gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/ed86c6ce-e735-60e1-7647-aba59289c61c%40gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/ed86c6ce-e735-60e1-7647-aba59289c61c%40gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/11945195-b99e-436b-8a37-d999317bf45fn%40googlegroups.com.
I was wrong.
When I change test from isolated module to application, name changes, but not the parameter, it is the information inside resource.
on Windows 10, balloon is showed on right notifications too.
José M. C. Quintas
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/5ee77aa4-c829-4248-86af-f39e3cf09ca0n%40googlegroups.com.