www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
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 )
Not use TToast at ON INITbyte-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!
Code: Select all
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
//----------------------------------------------------------------------------//
I tested using TToast in clause ON INIT and run OK alsocnavarro wrote:Not use TToast at ON INITbyte-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!
Code: Select all
#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
//----------------------------------------------------------------------------//
Code: Select all
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 ) //, oSelf