Notification boxes colored

[Silvio.Falconi]

How create a small message boxes timed and colored for dialogs as these ?



I wish insert it on dialogs with timer and trasparency

desktopalert class is no good

[cnavarro]

Explain better, and details your goal

[Silvio.Falconi]

the message must be inserted inside a colored frame and must be placed at @ x, y of the dialog without shadows must appear and disappear in n seconds as you can see it has a small icon at the beginning and must have at least the possibility to insert two lines text obviously the message if it has two linne has to resize itself. We probably have something already. I do not want messages like desktop alert or similar otherwise I would have opted for the desktopalert class .... you want a simple thing maybe a colored panel and with rounded corners just as you see it in the picture

I need this kind of message because it is very useful in the programs I put in tablets. The operator does not have to press the confirm button as it does in the traditional msginfo () / msgalert () but the message must appear and disappear after n seconds so that the tablet can inform the operator in a simple example:

the operator inserts the wrong dates or the service for those dates is not free. the message notifies the operator of the error in a simple way without the operator having to press esc or press the ok key to go on

[cnavarro]

Please try with this sample and tell me what modifications need

https://bitbucket.org/fivetech/fivewin- ... astest.prg

[Silvio.Falconi]

Sorry I Know it

I have a dialog as this



and for a sample I wish insert a colored message timed into a specific position for a sample


or



or

[cnavarro]

Ok, please try with this sample

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------//
Function HazAlert204( oWnd, nType )

   local oTip
   local cText
   local cBmp    := "..\bitmaps\16x16\alert.bmp"
   local lLeft   := .T.
   local lUp     := .T.
   DEFAULT nType := 1
   
   // oTip := TToast():NewToast( nToast, cText, cBmp, nWidth, nHeight, oWnd, nClrPane, ;
   //                  nClrPane2, nClrText, nLev, nTime, lUp, bRet, lLeft )

   cText   := "Message Success Action"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_BLUE, , CLR_WHITE, 255, 4000, !lUp, , lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:ActivaAlert( oWnd )

   // nTime = -1, no timer active, and user close alert with button X
   Syswait( 1.0 )
   cText   := "Message Error Action"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_RED, , CLR_WHITE, 255, -1, !lUp, , !lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:ActivaAlert( oWnd )

   Syswait( 1.0 )
   cText   := "Message Attention User"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_HBLUE, , CLR_WHITE, 255, 4000, lUp, , !lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:lBtnClose  := .F.
   oTip:lBtnSetup  := .F.
   oTip:ActivaAlert( oWnd )

   Syswait( 1.0 )
   cText   := "Message Received"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_GREEN, , CLR_WHITE, 255, 4000, lUp, , lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:lBtnClose  := .F.
   oTip:lBtnSetup  := .F.
   oTip:ActivaAlert( oWnd )

Return oTip
//----------------------------------------------------------------------------//
 

[Silvio.Falconi]

good it can run
only can you make show and dissapper slowly ?

[cnavarro]

Ok, try with this sample ( last message )
For show slowly, need modify class

Code: Select all  Expand view  RUN

//----------------------------------------------------------------------------//

Function HazAlert204( oWnd, nType )

   local oTip
   local bInit
   local cText
   local cBmp    := "..\bitmaps\16x16\alert.bmp"
   local lLeft   := .T.
   local lUp     := .T.
   DEFAULT nType := 1
   
   // oTip := TToast():NewToast( nToast, cText, cBmp, nWidth, nHeight, oWnd, nClrPane, ;
   //                  nClrPane2, nClrText, nLev, nTime, lUp, bRet, lLeft )

   cText   := "Message Success Action"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_BLUE, , CLR_WHITE, 255, 4000, !lUp, , lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:ActivaAlert( oWnd )

   Syswait( 1.0 )
   cText   := "Message Error Action"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_RED, , CLR_WHITE, 255, 4000, !lUp, , !lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:ActivaAlert( oWnd )

   Syswait( 1.0 )
   cText   := "Message Attention User"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_HBLUE, , CLR_WHITE, 255, 4000, lUp, , !lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:lBtnClose  := .F.
   oTip:lBtnSetup  := .F.
   oTip:ActivaAlert( oWnd )


   Syswait( 1.0 )
   cText   := "Message Received"
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oWnd, ;
               CLR_GREEN, , CLR_WHITE, 255, 4000, lUp, , lLeft )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:lBtnClose  := .F.
   oTip:lBtnSetup  := .F.

   //oTip:bValid     := { || TipTransHide( oTip ), .T. }     // Only Hide slowly
   oTip:bValid     := { || TipTransFlicker( oTip ), .T. }     // Flicker slowly at end

   oTip:ActivaAlert( oWnd )

Return oTip

//----------------------------------------------------------------------------//

//----------------------------------------------------------------------------//

#define LWA_ALPHA 2

//----------------------------------------------------------------------------//

static function TipTransFlicker( oObj )

   TipTransHide( oObj )
   TipTransShow( oObj )
   TipTransHide( oObj )

return NIL

//----------------------------------------------------------------------------//

static function TipTransHide( oObj )

   local x

   for x = oObj:nLevel to 0 step -1
      SetLayeredWindowAttributes( oObj:hWnd, , x, LWA_ALPHA )
      SysWait( 0.0003 )
   next x

return NIL

//----------------------------------------------------------------------------//

static function TipTransShow( oObj )

   local x

   for x = 1 to oObj:nLevel
      SetLayeredWindowAttributes( oObj:hWnd, , x, LWA_ALPHA )
      SysWait( 0.0003 )
   next x

return NIL

//----------------------------------------------------------------------------//

 

[Silvio.Falconi]

thanks but here not run ok

Please try this test

1. the Message Toast is not on the dialog
2. the animation ( show and dissaperar not run ok)

Code: Select all  Expand view  RUN

#include "FiveWin.Ch"
#include "constant.ch"


#define LWA_ALPHA 2

Function ShowInvoice()
Local nBottom   := 47.2
Local nRight    := 147.4
Local nWidth    :=  Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight   := nBottom * DLG_CHARPIX_H

 DEFINE DIALOG oDlg SIZE nWidth, nHeight   PIXEL  ;
   TITLE "Prenotazione n. "

ACTIVATE DIALOG oDlg CENTERED;
on init Message(oDlg)
//------------------------------------------------//


Function Message(oDlg)

 Local  cText   := "Message Received"
 Local  nType   := 1
 Local  cBmp    := "c:\work\fwh\bitmaps\16x16\check.bmp"
 local lUp     := .T.
 local lLeft   := .T.
 Local oTip
 
   oTip := TToast():NewToast( nType, cText, cBmp, 400, 40, oDlg, ;
               CLR_GREEN, , CLR_WHITE, 255, 4000, lUp, , lLeft )

   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:lBtnClose  := .F.
   oTip:lBtnSetup  := .F.
   oTip:bValid     := { || TipTransFlicker( oTip ), .T. }

   oTip:ActivaAlert( oDlg )

return nil

static function TipTransFlicker( oObj )

   TipTransHide( oObj )
   TipTransShow( oObj )
   TipTransHide( oObj )

return NIL

//----------------------------------------------------------------------------//

static function TipTransHide( oObj )

   local x

   for x = oObj:nLevel to 0 step -1
      SetLayeredWindowAttributes( oObj:hWnd, , x, LWA_ALPHA )
      SysWait( 0.0003 )
   next x

return NIL


static function TipTransShow( oObj )

   local x

   for x = 1 to oObj:nLevel
      SetLayeredWindowAttributes( oObj:hWnd, , x, LWA_ALPHA )
      SysWait( 0.0003 )
   next x

return NIL
 

[cnavarro]

Ok, change METHOD NewToast in class TToast

Code: Select all  Expand view  RUN

.../...
   nBottom      := nTop  + nHeight
   nRight       := nLeft + nWidth
   if ::lAlert
      // Add this
      if !Empty( ::oWndEvent )
         aPoint := ClientToScreen( ::oWndEvent:hWnd, { nTop, nLeft } )
         aPoint := ScreenToClient( ::hWnd, aPoint )
         nTop   := aPoint[ 1 ]
         nLeft  := aPoint[ 2 ]
         nBottom := aPoint[ 1 ] + nHeight
         nRight  := aPoint[ 2 ] + nWidth
      endif
      ::Super:New( nTop, nLeft, nBottom, nRight,, nStyle,,,, ::oWndEvent,,, nClrText, nClrPane,,,,,,,.T., nStyleEx,,,)
      //
   endif
.../...

// and at end of method Add this

   ::bInit   := { || Self:TToolWindow(), ;
                     IF( !HB_IsNIL( ::oWndEvent ), Self:oWndEvent:SetFocus(), ), ;
                     Self:nIT := Len( aTToast ), ;
                     if( Self:lHistory, Self:AddToast(), ) }

return Self

// in method ActivaAlert change this

.../...

   ACTIVATE WINDOW Self    // Remove clause ON INIT

 

[Silvio.Falconi]

I have allways the message go out of the dialog and not on the dialog

[cnavarro]

With my last modification ?
Not, run OK

[Silvio.Falconi]

I insert your modification and I see allway the mesage out of the dialog

[cnavarro]

Put all my modifications in METHOD NEWTOAST not Method New
Revise my modifications ( all lines )

[Silvio.Falconi]

I made all your modifications
send me your ttoast class