Win_Msg - A kind of Notification message so easy and friendly Demo

[quartz565]

Ευχαριστώ φίλε !

[Pablo César]

ΠΑΡΑΚΑΛΩ

You are welcome Dave.

[Anand]

Hi Pablo,

I got below error, obviously thread lib needed. How to add it ?

Harbour 3.2.0dev (r1601151502)
Copyright (c) 1999-2015, http://harbour-project.org/
<snip>
hbmk2: Error: Referenced, missing, but unknown function(s):
GETCURRENTTHREADID(), GETCURRENTTHREADHANDLE(), SETTHREADPRIORITY(),
ATTACHTHREADINPUT(), HMG_THREADHBTOWINID()

Regards,

Anand

[Pablo César]

Hello Anand,

As you can see at source Demo3.prg saying: Compiled with...: HMG 3.4.3 + added patches #1 and #2

I think patch #2 is missing to be added at your HMG. See this: viewtopic.php?p=50091#p50091 and please considere also this: viewtopic.php?p=50218#p50218

Now in HMG Harbour and C functions be added to work with THREADs properlly thanks to Dr. Claudio.

[Anand]

Thanks Pablo,

Patched and done

Regards,

Anand

[serge_girard]

Hi Pablo,

I changed a bit:

Code: Select all

nHeight := LEN(cMsg) * 1.3
IF nHeight < 82 
   nHeight  := 82
ENDIF
nTop := GetDesktopRealHeight() - nHeight

For longer text messages. Maybe there is a better way to do it?
Thanks for nice piece of handy messaging, it looks really professional now !

Serge

[RPC]

Hi Pablo
I am getting following error while compiling

Errror.png (49.98 KiB) Viewed 4633 times

Pls advice what is to be done.
Thanks

[Anand]

Hi RPC

Patch it. See http://hmgforum.com/viewtopic.php?p=50240#p50217 for Pablo's answer.

Regards,

Anand

[Pablo César]

Hi Pablo,

I changed a bit:

Code: Select all

nHeight := LEN(cMsg) * 1.3
IF nHeight < 82 
   nHeight  := 82
ENDIF
nTop := GetDesktopRealHeight() - nHeight

For longer text messages. Maybe there is a better way to do it?
Thanks for nice piece of handy messaging, it looks really professional now !

Serge

Nice idea Serge.
I guess there is better way to calculate number of lines, specially when CRLF is introduced in the cMsg.
I tried a bit more with this code... but unsuccessfuly...

Code: Select all

cMsg := "Printing file xxxxx.xxx "+CRLF+"sent to EPSON LX-300"+CRLF+"3rd line"+CRLF+"4th line"+CRLF+"5th line"

FUNCTION Notifier( cMsg, aBcolor, nSeconds, lCenter, nTransparency )
LOCAL cParentWindowName, hWnd, hWndhMain := 0
LOCAL nWidth := 204, nTimeIni
LOCAL nLeft := GetDesktopRealWidth() - nWidth

LOCAL nLines, hFont, nTop, nHeight, nMsgWidth
LOCAL cFontName := "MS Shell Dlg"
LOCAL nFontSize := 10
LOCAL lBold := .T., lItalic := .F., lUnderline := .F., lStrikeOut := .F.

DEFAULT cMsg          := ""
DEFAULT nSeconds      := 2
DEFAULT lCenter       := .F.
DEFAULT nTransparency := 255

If Empty(cMsg)
   Return Nil
Endif

*nHeight := HMG_Len(cMsg) * 1.3

nLines := hb_TokenCount(cMsg, .T. /*lEOL*/)
hFont := HMG_CreateFont ( , cFontName, nFontSize, lBold, lItalic, lUnderline, lStrikeOut )

nMsgWidth := GetTextWidth( , cMsg, hFont)
nMsgWidth := nMsgWidth / (nWidth - 20)
If !( Int(nMsgWidth/(nWidth - 20)) == nMsgWidth )
   nMsgWidth := Int( nMsgWidth ) + 1
Endif

nLines := nLines + nMsgWidth

nHeight := XGetTextHeight( , cMsg, hFont) * nLines

I borrow some Krzysztof's function... but I got tired to try...

---

I am getting following error while compiling

Hi Rajeev,

Probably you did not applied yet the two patches of 3.4.3 version as it said already Anand. (By the way: thank you Anand).
It's incomplete info in your screen captured.

As a result of this lack of visibility, let me know something:
have you already tested the ViewError - HMG building utility ? For me it's useful, if not for you may you tell me what did you dislike about it ?

[serge_girard]

Yes, Pablo I used a quick and dirty method. Perhaps CRLF should be count as a complete line.
Also yesterday I added an image (kind of company logo) so I'm testing it with your new code from above.

Serge