set a dialog on a position

[Silvio.Falconi]

I wish set a dialog at x,y but I not found the position of the msgitem og Msgbar

oApp:oMsgItem1:bAction := { |oBtn| ::ConteggioTotali(oApp:oWndMain:oMsgBar) }

Function ConteggioTotali(obtn)
Local aPoint := AdjustWnd( oBtn, -27*2, 15*2 )

DEFINE DIALOG oDlgConteggio size 400,250 TRANSPARENT;
TITLE "Conteggio elementi"

ACTIVATE DIALOG oDlgConteggio CENTERED;
ON CLICK oDlgConteggio:End() ;
ON PAINT oDlgConteggio:Move(aPoint[1]-100, aPoint[2],,,.t.);

give me allway under the main window

[nageswaragunupudi]

Try this sample and adapt the logic to your program

Code: Select all  Expand view  RUN

#include "fivewin.ch"

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

function Main()

   local oWnd, oBar, oMsgBar, oMsgItemDlg, oMsgItemPop

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR OF oWnd 2007

   DEFINE MSGBAR oMsgBar OF oWnd 2007
   DEFINE MSGITEM oMsgItemDlg PROMPT "ShowDialog" OF oMsgBar SIZE 100 ;
         ACTION ShowDlg( oMsgItemDlg )
   DEFINE MSGITEM oMsgItemPop PROMPT "Show Popup" OF oMsgBar SIZE 100 ;
         ACTION ShowPopup( oMsgItemPop )
   DEFINE MSGITEM PROMPT "Dummy Item" OF oMsgBar SIZE 100
   DEFINE MSGITEM PROMPT "Dummy Item" OF oMsgBar SIZE 100

   oWnd:nHeight   := 500
   oWnd:nWidth    := 700

   ACTIVATE WINDOW oWnd CENTERED

return nil

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

static function ShowPopup( oMsgItem )

   local oPop

   MENU oPop POPUP 2007
      MENUITEM "One"
      MENUITEM "Two"
      MENUITEM "Three"
   ENDMENU

   ACTIVATE MENU oPop AT oMsgItem:oMsgBar:nTop, oMsgItem:nLeft OF oMsgItem:oMsgBar:oWnd FLAGS 0x20

return nil

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

static function ShowDlg( oMsgItem )

   local oDlg
   local oMsgBar  := oMsgItem:oMsgBar
   local oWnd     := oMsgBar:oWnd
   local aPt      := { oMsgBar:nTop, oMsgItem:nLeft }

   aPt   := ClientToScreen( oWnd:hWnd, aPt )

   DEFINE DIALOG oDlg SIZE 100,150 PIXEL TRUEPIXEL
   ACTIVATE DIALOG oDlg ON INIT oDlg:Move( aPt[ 1 ] - oDlg:nHeight, aPt[ 2 ] )

return nil

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

[nageswaragunupudi]

Try this sample and adapt the logic to your program

Code: Select all  Expand view  RUN

#include "fivewin.ch"

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

function Main()

   local oWnd, oBar, oMsgBar, oMsgItemDlg, oMsgItemPop

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR OF oWnd 2007

   DEFINE MSGBAR oMsgBar OF oWnd 2007
   DEFINE MSGITEM oMsgItemDlg PROMPT "ShowDialog" OF oMsgBar SIZE 100 ;
         ACTION ShowDlg( oMsgItemDlg )
   DEFINE MSGITEM oMsgItemPop PROMPT "Show Popup" OF oMsgBar SIZE 100 ;
         ACTION ShowPopup( oMsgItemPop )
   DEFINE MSGITEM PROMPT "Dummy Item" OF oMsgBar SIZE 100
   DEFINE MSGITEM PROMPT "Dummy Item" OF oMsgBar SIZE 100

   oWnd:nHeight   := 500
   oWnd:nWidth    := 700

   ACTIVATE WINDOW oWnd CENTERED

return nil

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

static function ShowPopup( oMsgItem )

   local oPop

   MENU oPop POPUP 2007
      MENUITEM "One"
      MENUITEM "Two"
      MENUITEM "Three"
   ENDMENU

   ACTIVATE MENU oPop AT oMsgItem:oMsgBar:nTop, oMsgItem:nLeft OF oMsgItem:oMsgBar:oWnd FLAGS 0x20

return nil

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

static function ShowDlg( oMsgItem )

   local oDlg
   local oMsgBar  := oMsgItem:oMsgBar
   local oWnd     := oMsgBar:oWnd
   local aPt      := { oMsgBar:nTop, oMsgItem:nLeft }

   aPt   := ClientToScreen( oWnd:hWnd, aPt )

   DEFINE DIALOG oDlg SIZE 100,150 PIXEL TRUEPIXEL
   ACTIVATE DIALOG oDlg ON INIT oDlg:Move( aPt[ 1 ] - oDlg:nHeight, aPt[ 2 ] )

return nil

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

[Silvio.Falconi]

that's just what I was looking for. thank's my friend