Posicionar dialogo en el punto 0,0 dentro de window
Posted: Sun Jul 11, 2021 7:26 pm
Buenas tardes para todos en este momento requiero poder mostrar un dialogo en la posición "0,0" de la ventana principal, que siempre inicie en ese punto, no importando la posición que tenga en ese momento la ventana principal.
Lo que requiero hacer voy a lo intento explicar en la siguiente imagen:
De antemano gracias
Lo que requiero hacer voy a lo intento explicar en la siguiente imagen:
- Code: Select all Expand view
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
DEFINE WINDOW oWnd TITLE "Probando Iniciar Dialogo En Posicion 0,0" ;
MDI ;
MENU BuildMenu()
SET MESSAGE OF oWnd TO "Main Window"
ACTIVATE WINDOW oWnd VALID MsgYesNo( "Want to End ?" )
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&Information"
MENU
MENUITEM "&UBICAR" ACTION Dlg( oMenu )
SEPARATOR
MENUITEM "&End..." ACTION oWnd:End()
ENDMENU
ENDMENU
return oMenu
STATIC FUNCTION Dlg()
Local aPoint
Local nTopR
Local nLeftR
Local oDlg
nTopR := oWnd:nTop
nLeftR := oWnd:nLeft
aPoint := { nTopR, nLeftR }
aPoint = ClientToScreen( oWND:hWnd, aPoint )
DEFINE DIALOG oDlg PIXEL TRUEPIXEL STYLE (DS_MODALFRAME|WS_POPUP|WS_BORDER) SIZE 54,70 OF oWND
oDlg:bStart := { || SetCapture( oDlg:hWnd ),;
oDlg:SetPos( aPoint[ 1 ], aPoint[ 2 ] ) }
ACTIVATE DIALOG oDlg
return .t.
De antemano gracias