If i use the DATA bReturn this codeblock will never calling. I see in the source of this class that ::end() is using and not :destroy(), also the method :destroy() with the bReturn-codeblock is ignored!
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour BUG in TToast!?
Please explain what you need and the purpose of using TToast
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
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
I will at end of my programm show a TToast-alert with a delay of 5 seconds. But the ending from my program waits not to the end from the TToast. So i pack the code from ending the program in the bReturn-codeblock but no call to this codeblock is executed!
Dear Günther, this run ok, for me
MsgStop is show at end
MsgStop is show at end
oMsg := TToast():NewToast( 4, cM, cBmp, 320, nH, oWindow, ;
Rgb( 88, 88, 88 ), Rgb( 88, 88, 88 ), ;
CLR_WHITE, , nT, .F.,, .F. )
TipTimeHide( 0.008 )
oMsg:bReturn := { || MsgStop( "Final" ) }
oMsg:lCenterText := .T.
oMsg:bValid := { || TipTransHide( oMsg ), .T. }
oMsg:ActivaAlert( oWindow )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
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
Which version of fw do you use?
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
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
FWH 18.04
I see, you use TToast():NewToast(….) i use TTost():New(….)
I am using NewToast() but no ok. If i use ttoast on start from the program in the clausula ON INIT with a bReturn the program freezes!
byte-one wrote:I am using NewToast() but no ok. If i use ttoast on start from the program in the clausula ON INIT with a bReturn the program freezes!
Not use TToast at ON INIT
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
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
This code run ok for me also, and bReturn is run at end
Function HazAlert1( oWnd, lLines, lBmp, lMnu )
local oTip
local oBrw
DEFAULT lLines := .T.
DEFAULT lBmp := .T.
DEFAULT lMnu := .F. // CLR_RED, CLR_WHITE
oTip := TToast():New( 0, 0, 290, 350, oWnd, , , , , 0 , 0, nLevel,,,, lUp,,,, lLeft )
WITH OBJECT oTip
:nTimer := nT
:lLineHeader := lLines
:nClrTextHeader := CLR_GREEN
:cHeader := "Header"
if lBmp
:cBmpHeader := "..\bitmaps\16edit.bmp" //people2.bmp" //"..\bitmaps\16edit.bmp"
endif
:lLineFoot := lLines
:nClrTextFoot := CLR_YELLOW
:lRightAlignFoot := .T.
if lBmp
:cBmpFoot := "..\bitmaps\save16.bmp" //pdf.bmp" //"save16.bmp"
endif
:lSplitHdr := .T.
:lLeft := lBmp
if lBmp
:cBmpLeft := "..\bitmaps\attach.bmp" //"16code.bmp"
endif
:lRightAlignBody := .F.
:nClrTextBody := CLR_BROWN
:cBody := "En un lugar de la Mancha de cuyo nombre no quiero acordarme"
//:lBtnClose := .T.
:lBorder := .F.
if lMnu
:bMnuFoot := { | nRow, nCol, oWnd | MnuConfig( nRow, nCol, oWnd ) }
endif
:bReturn := { || MsgStop( "Stop" ) }
:CreateFromCode()
END
Return oTip
//----------------------------------------------------------------------------//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
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
cnavarro wrote:byte-one wrote:I am using NewToast() but no ok. If i use ttoast on start from the program in the clausula ON INIT with a bReturn the program freezes!
Not use TToast at ON INIT
I tested using TToast in clause ON INIT and run OK also
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
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
Günther, try with this sample and tell me
#include "Fivewin.ch"
Static oWnd
Static oMsg
Static nTimeMsg := 0.05
//----------------------------------------------------------------------------//
Function Main()
DEFINE WINDOW oWnd TITLE "TToast Test at INIT" MENU BuildMenu()
ACTIVATE WINDOW oWnd MAXIMIZED ON INIT MyMessage( "Inicializando....." + CRLF + "Atencion", , )
Return nil
//----------------------------------------------------------------------------//
Function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Files"
MENU
MENUITEM "Edit"
SEPARATOR
MENUITEM "Exit" ACTION oWnd:End()
ENDMENU
MENUITEM "Help"
ENDMENU
Return oMenu
//----------------------------------------------------------------------------//
Static Function MyMessage( cM, nT, nC )
local cBmp
local nH := 0
DEFAULT cM := "No messages"
DEFAULT nT := nTimeMsg * 1000
if !Hb_IsNil( oMsg )
oMsg:BuildTimer( .T. )
oMsg:End()
oMsg := nil
endif
cM += CRLF + " ... "
nH := Max( NumAt( CRLF, cM ) - 3, 3 ) * 48
oMsg := TToast():NewToast( 4, cM, cBmp, 320, nH, oWnd, ;
Rgb( 88, 88, 88 ), Rgb( 88, 88, 88 ), ;
CLR_WHITE, , nT, .F.,, .F. )
TipTimeHide( 0.008 )
oMsg:bReturn := { || MsgStop( "Final" ) }
oMsg:lCenterText := .T.
oMsg:bValid := { || TipTransHide( oMsg ), .T. }
oMsg:ActivaAlert()
Return oMsg
//----------------------------------------------------------------------------//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
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
Cristobal, i have changed the code. Now it seems to functioning. Please see.
METHOD Destroy() CLASS TToast
if !Empty( ::oFontHdr )
::oFontHdr :End()
endif
if !Empty( ::oFontHdr2 )
::oFontHdr2:End()
endif
if !Empty( ::oFontBody )
::oFontBody:End()
endif
if !Empty( ::oFontFoot )
::oFontFoot:End()
endif
if !Empty( ::hRgn )
DeleteObject( ::hRgn )
endif
if valtype(::bReturn) == "B"
Eval( ::bReturn )
endif
::Super:Destroy()
if ::lHistory
::DelToast()
endif
Return nil//Eval( ::bReturn ) //, oSelfOk, it is another possibility that I will have to evaluate, but it seems that it can work without problems
I will keep you informed
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
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