What's I do wrong with TTimer() ?

[dutch]

Dear all,

What did I do wrong with this code? Why TTimer() is not action anything?

oTimer:lActive is .T. but don't do anything.

Code: Select all | Expand

#include 'Fivewin.ch'*----------------*Function mainlocal oDlg, oTimerDEFINE DIALOG oDlg FROM 0, 0 TO 300, 400 PIXELDEFINE TIMER oTimer OF oDlg INTERVAL 100 ACTION MsgInfo('Test')ACTIVATE DIALOG oDlg ON PAINT (oTimer:Activate()) ;    VALID (oTimer:DeActivate())return nil

Regards,
Dutch

[Enrico Maria Giordano]

This is a working sample:

Code: Select all | Expand

#include "Fivewin.ch"FUNCTION MAIN()    LOCAL oDlg, oTmr    DEFINE DIALOG oDlg    DEFINE TIMER oTmr OF oDlg;           INTERVAL 1000;           ACTION MSGBEEP()    ACTIVATE DIALOG oDlg;             ON INIT ( oTmr:hWndOwner := oDlg:hWnd, oTmr:Activate() );             CENTER    RELEASE TIMER oTmr    RETURN NIL

EMG

[dutch]

Dear Enrico,

I have 2 TTimer() in one program. Is it possible to have 2 TTimer()? Because when I change the code as your recommend the Second TTimer() is working well but the First TTimer() is not active anymore. I mean as following sample.

Regards,
Dutch

Code: Select all | Expand

Function MainTTimer()   Function Sub()returnFunction SubTTimer()return

[Enrico Maria Giordano]

This is a working sample using two timers:

Code: Select all | Expand

#include "Fivewin.ch"REQUEST HB_GT_GUI_DEFAULTFUNCTION MAIN()    LOCAL oDlg, oTmr1, oTmr2    DEFINE DIALOG oDlg    DEFINE TIMER oTmr1 OF oDlg;           INTERVAL 1000;           ACTION TONE( 440, 1 )    DEFINE TIMER oTmr2 OF oDlg;           INTERVAL 1000;           ACTION TONE( 880, 1 )    ACTIVATE DIALOG oDlg;             ON INIT ( oTmr1:hWndOwner := oDlg:hWnd,;                       oTmr1:Activate(),;                       oTmr2:hWndOwner := oDlg:hWnd,;                       oTmr2:Activate() );             CENTER    RELEASE TIMER oTmr1    RELEASE TIMER oTmr2    RETURN NIL

EMG

[patrickmast]

Hey Enrico,

Why do you have this REQUEST HB_GT_GUI_DEFAULT in your code?

Patrick

[Enrico Maria Giordano]

It is needed for Tone() to work.

EMG

[patrickmast]

It is needed for Tone() to work.
EMG

Ok

[dutch]

Thanks Enrico,

It works well now.

Regards,
Dutch

[RAMESHBABU]

Hi Enrico and friends

I am trying to put 3 TIMERs in the Message Bar of main window.

They are working OK. But when I leave the application window,
one of the timers I have dedfined is still appearing on the desktop.
And when I refresh the desktop, it is getting disappeared.

Based on the signal strength, I am calling different bitmap resources
and painting on the Message bar.

Below is my code.

Can you please point out where I am making mistake.

This is the image obtained from the following code.

Code: Select all | Expand

#include "FiveWin.ch"STATIC oWnd, oFont, oTimer1, oTimer2, oTimer3STATIC objSMS, oProvider, oNSignalStrength, oSignalStrength//----------------------------------------------------------------------------//FUNCTION Main()* Serial Port PropertiesoSMS                   := CreateObject("BulkSMS.Sender")oSMS:BaudRate    := 9600oSMS:COMPort     := "COM1"oSMS:DataBits      := 8oSMS:Parity          := "N"oSMS:StopBits      := "1"oSMS:FlowControl := 0oSMS:OpenCOMPort()DEFINE FONT oFont  NAME "Ms Sans Serif"           SIZE 0, -9DEFINE WINDOW oWnd TITLE "Timer Testing"SET MESSAGE OF oWnd TO "Signal Test"  ;    KEYBOARD CLOCK DATE 2007DEFINE TIMER oTimer1 OF oWnd INTERVAL 400 ACTION GetProvider(oFont,1)DEFINE TIMER oTimer2 OF oWnd INTERVAL 400 ACTION GetProvider(oFont,2)DEFINE TIMER oTimer3 OF oWnd INTERVAL 400 ACTION GetProvider(oFont,3)WndCenter(oWnd:hWnd)ACTIVATE WINDOW oWnd ON INIT (oTimer1:hWndOwner := oWnd:oMsgBar:hWnd,         ;                                         oTimer1:Activate(),                             ;                                oTimer2:hWndOwner := oWnd:oMsgBar:hWnd,         ;                                         oTimer2:Activate(),                             ;                                oTimer3:hWndOwner := oWnd:oMsgBar:hWnd,         ;                                         oTimer3:Activate())                             ;                        VALID    (DeleteObject( oSignalStrength:hBitmap1 ), .T.)objSMS:CloseCOMPort()RELEASE TIMER oTimer1RELEASE TIMER oTimer2RELEASE TIMER oTimer3RETURN nil**********FUNCTION GetProvider(oFont, nOpt) LOCAL cNewResourceDO CASE   CASE nOpt = 1        IF oProvider = nil           oProvider := TMsgItem():New( oWnd:oMsgBar, "SIM: "+objSMS:NetworkInfo,;                                        MAX(LEN("SIM: "+objSMS:NetworkInfo)*6.53,100),,nRGB(128,0,128),;                                       ,.t.,,,, "Service+CRLF+Provider" )        ENDIF   CASE nOpt = 2        IF oNSignalStrength = nil           oNSignalStrength := TMsgItem():New( oWnd:oMsgBar, "SIGNAL:"+LTRIM(STR(objSMS:SignalStrength))+;                                               "%", 75, oFont,nRGB(0,111,0),,.t.,,,, "" )           oNSignalStrength:bMsg   := {||"SIGNAL:"+LTRIM(STR(objSMS:SignalStrength))+"%"}           oNSignalStrength:lTimer := .T.        ENDIF      CASE nOpt = 3         IF oSignalStrength = nil            cNewResource           := "SIGNAL"+LTRIM(STR(ROUND(objSMS:SignalStrength /10,0)*10))              oSignalStrength        := TMsgItem():New( oWnd:oMsgBar,, 40, oFont,,,.t.,,cNewResource,, "" )            oSignalStrength:bMsg   := {||GetSignalStrength()}            oSignalStrength:lTimer := .T.    ENDIF    ENDCASERETURN nil**********STATIC FUNCTION GetSignalStrength()LOCAL cNewResourceIF VALTYPE(oSignalStrength) = "O"   DeleteObject( oSignalStrength:hBitmap1 )   cNewResource             := "SIGNAL"+LTRIM(STR(ROUND(objSMS:SignalStrength/10,0)*10))   oSignalStrength:hBitmap1 := LoadBitmap( GetResources(), cNewResource )    oSignalStrength:Paint() ENDIFRETURN nil**********

[Enrico Maria Giordano]

As a stub in the dark, try to put a call to SysRefresh() at the end of the function Main(), just before the return nil statement.

EMG

[RAMESHBABU]

Hi Mr.Enrico,

Thank you very much for your quick reply.

I have already tried it. But no sucess!.

By the way as a work around, I want to refresh to desktop as soon
as I quit my application. How to accomplish. Can you please guide
me.

Regards to you,

- Ramesh Babu P

[James Bott]

Ramesh,

I don't know if this has anything to do with your problem, but it doesn't look like you are releasing the bitmaps.

James

[RAMESHBABU]

Mr.James

Yes as you have suspected, I did not find any logic to release the itmaps ::hBitmap1, ::hBitmap2 used in TMsgItem class by either in Ttimer class, TMsgItem class or TMsgBar Classes.

Mr.Antonio please guide me how to release the bitmap handles when bitmaps are used in the timer and when the Window/Dialog is closed.

Thanks

- Ramesh Babu P

[James Bott]

Ramesh,

I looked at your code again and I see you are releasing one bitmap using DeleteObject(). It is not clear if you have three bitmaps or just one. Which bitmap is still showing after the app is exited? The answer to that may help zero in on the problem.

James

[RAMESHBABU]

Mr.James,

Thanks for your attention.

Actually I have 10 bitmaps each to display signal strength
like bmp10, bmp20, bmp30... bmp100.

Based on the actual signal strength, I am deleting the old
bitmap using

Code: Select all | Expand

DeleteObject( oSignalStrength:hBitmap1)

When there is no any change in the signal strength and when I quit
the application, no bitmap is left on the desk top. But when there is
a change in the signal that means when several bitmaps are called
one after another, the last bmp is left on the screen.

I suspect that the following code is not able to delete the bitmaps at all
and the handles of those bitmaps are still left in memory leading to a
leakage.

Code: Select all | Expand

DeleteObject( oSignalStrength:hBitmap1)

If you look at the TmsgBar Class you will not find anywhere a logic which
can release the bitmap handles when the object is ended.

- Ramesh Babu P