TO Cristobal : Message position

[Silvio.Falconi]

some time ago I wrote to you because I had problems positioning a message with TToast class
I explained to you that in a resizable dialog the class did not work as it should and I also sent you the example
I explained to you that the message created with the class being another entity (oWnd), did not behave as if it were an object control.
In fact, if the user moves the dialog, the message is shown elsewhere and not where the programmer wants it to be placed
Is there any news for any changes?

[cnavarro]

Sorry Dear Silvio
The reply mail stayed in "drafts"
As you can verify your problem has nothing to do with TToast class
Please try with your sample modified

Code: Select all  Expand view

#include "fivewin.ch"

#define ORANGE      RGB(255,165,0)
#define LIGHTGREEN  RGB(144,238,144)
#define RED         RGB(255,0,0)
#define WHITE       RGB(255,255,255)
#define ROYALBLUE   RGB(65,105,225)

Function test()

   Local oDlg
   Local oFolder
   Local oBtnSearch

   DEFINE DIALOG oDlg SIZE 1180,650  PIXEL   ;
      TITLE "test" ;
       STYLE nOR( WS_CAPTION, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME )


 @  1, 0 FOLDEREX oFolder OF oDlg SIZE oDlg:nWidth - 585, oDlg:nHeight - 390 PIXEL  ;
         PROMPT "Prenotazioni","Pagamenti","Familiari"

   @ 08, 10 BTNBMP oBtnSearch FILENAME "INVOICE_CERCA" ;   // 355
       SIZE 15,12 PIXEL OF oFolder:aDialogs[1] NOBORDER ;
       action  Messaggio(1, oFolder:aDialogs[ 1 ],,oBtnSearch)   // oDlg
       oBtnSearch:lTransparent:=.t.

      oDlg:bResized  := <||
                     local oRect
                     oRect                := oDlg:GetCliRect()
                     oFolder:nWidth       := oRect:nRight-2
                     oFolder:nHeight      := oRect:nBottom-160
                     //oBtnSearch:nTop      := oRect:nTop+5
                     //oBtnSearch:nLeft     := oRect:nleft+550
                     oFolder:Default()
                     return nil
                      >
    ACTIVATE DIALOG oDlg CENTERED  ;
    ON INIT ( Messaggio( 1, oFolder:aDialogs[ 1 ],,oBtnSearch) )
    //               ON INIT (eval( oDlg:bResized ) ,Messaggio(1,oDlg,,oBtnSearch) )

return nil

//------------------------------------------------------------------------------------------------//
Function Messaggio(numero,odlg,nValore,obj)
   local  nColor1,nColor2,nColortxt,cTesto,cImage
    local  nWidth  :=420
    local nHeight:= 35
    local x,y,oRect

    DEFAULT nValore  := 10

   Do case
   case Numero =1
          nColor1 :=  ORANGE
          nColor2 :=  ORANGE
          nColortxt:= WHITE
         cTesto:= "Elemento non  disponibile! "
         cImage:= "CHECK3"

   case Numero = 2
       nColor1 :=  LIGHTGREEN
       nColor2 :=  LIGHTGREEN
       nColortxt:=   ROYALBLUE
       cTesto:= "Elemento  disponibile!"
       cImage:= "CHECK2"


   case Numero =3
       nColor1 :=  ORANGE
       nColor2 :=  RED
       nColortxt:=  WHITE
       cTesto:= ("Attenzione !!!Non è stata trovata nessuna tariffa! Si inserisce il valore € "+;
                          ltrim(str(nvalore))+". Controllare le tariffe")
       cImage:= "XPALERT"
       nWidth:= 740
       nHeight:= 35

   ENDCASE
   MessageToast( 1, cTesto, cImage,;
                      nWidth, nHeight, oDlg, nColor1, nColor2, ;
                      nColortxt, , , .T., , .F., .F., .F., -10, 20 )

Return nil
//---------------------------------------------------------------------------------//

 Function MessageToast( nType, cText, cBmp, nWidth, nHeight, oWnd, nClrPane, nClrPane2, ;
                 nClrText, nLev, nTime, lUp, bRet, lLeftP, lAlert, lShadow,;
                  nOffY, nOffX, nFont )

   local oTip
   local bInit

   DEFAULT lLeftP   := .t.
   DEFAULT lUp      := .T.
   DEFAULT nType    := 1
   DEFAULT lAlert   := .F.
   DEFAULT lShadow  := .T.
   DEFAULT nLev     := 180
   DEFAULT nTime    := 4000
   DEFAULT nOffY     := 0
   DEFAULT nOffX     := 0
   DEFAULT nFont     := -10
   /*
     oTip := TToast():NewToast( nType, cText, cBmp, nWidth, nHeight, oWnd,;
                                 nClrPane, nClrPane2, nClrText,;
                                 nLev, nTime, lUp, lLeftP,lAlert, lShadow,;
                                 nOffY, nOffX, nFont )
   */

   oTip := TToast():NewToast( nType, cText, cBmp, nWidth, nHeight, oWnd, ;
               nClrPane, nClrPane2,nClrText, nLev, nTime, lUp, bRet, lLeftp, .T., .T., nOffY, nOffX )
   oTip:nWRadio    := 6
   oTip:nHRadio    := 6
   oTip:lBtnClose  := .f.
   oTip:lBtnSetup  := .f.
   //oTip:bValid     := { || TipTransHide( oTip ), .T. }
   oTip:ActivaAlert()

return nil

function O2a( cCadena ) ; return Oemtoansi( cCadena )
 

[Silvio.Falconi]

maybe it is me who does not explain well, if the user moves, resizes the dialog the message is not always in the same place as you can see in this figure.





ttoast should behave like a control, a get, an image instead this is not possible because
ttoast was born from a modification of Paco's tooltip class and in my opinion it cannot be used to display a colored message on a dialog, patience ... .

[cnavarro]

maybe it is me who does not explain well, if the user moves, resizes the dialog the message is not always in the same place as you can see in this figure.
ttoast should behave like a control, a get, an image instead this is not possible because
ttoast was born from a modification of Paco's tooltip class and in my opinion it cannot be used to display a colored message on a dialog, patience ... .

Have you used my example that I put in my previous post or are you using yours?
A picture is worth a thousand words

It is a class used by many users, including myself, without any problem.
How can you know what I have based on to develop that class?
In any case, you can still use the MsgInfo function which works wonders.
Sure enough, patience, you said so.

[Silvio.Falconi]

maybe it is me who does not explain well, if the user moves, resizes the dialog the message is not always in the same place as you can see in this figure.
ttoast should behave like a control, a get, an image instead this is not possible because
ttoast was born from a modification of Paco's tooltip class and in my opinion it cannot be used to display a colored message on a dialog, patience ... .

Have you used my example that I put in my previous post or are you using yours?
A picture is worth a thousand words

It is a class used by many users, including myself, without any problem.
How can you know what I have based on to develop that class?
In any case, you can still use the MsgInfo function which works wonders.
Sure enough, patience, you said so.

>Have you used my example that I put in my previous post or are you using yours?
I'm using the example what you posted on the forum

>How can you know what I have based on to develop that class?
because it is the same , c5tooltip of Paco of Canal5 use a Wnd ( CLASS TToast FROM TWindow as CLASS TC5Tip FROM TWindow),

if you did a class from the beginning you would have done a control (object) and not a window



resize ok

Now before to recreate the ttoast ( pressing the button) move the dialog and show me ( and on forum) what happen!!!
then press the button to recreate the ttoast and then move the dialog , where i the toast ? show me ( and on forum) what happen!!!

if it was a control it stayed at the same point if you move the dialog, since it is not an object this does not happen
for example the folder is always there it is not moved as is possible?




>A picture is worth a thousand words
yes of course, I think I show to all forum What I mean !!!
your class ttoast is another entity, it is a wnd not a control obj, if it was a control object, it was on the dialog also if the user move and resize the dialog ( as the folder and the button)

that is, to make the ignorant on the subject understand,

I want to explain that the TToast class is positioned in the coordinates of the screen of your computer and not in the coordinates of the dialog,

thus doing what I explained above with the animation happens.