Mover un Dialogo sin Caption

[Marcelo Via Giglio]

Holas,

hay alguna manera de mover un dialogo con el mouse sin que tenga título, pinchando en cualquier lugar y moviendolo

saludos

Marcelo

[Antonio Linares]

Marcelo,

Revisa FWH\samples\testmmov.prg

[Marcelo Via Giglio]

Antonio,

muchas gracias, lo estoy probando con diálogos definidos en recursos, y el funcionamiento es errático, es necesario jugar un poco m'as, pero es buen inicio, gracias

saludos

Marcelo

[antolin]

Marcelo, yo lo hago así:

Code: Select all  Expand view

DEFINE DIALOG oDLg ....
   DEFINE CURSOR oCur ...
   ...
   ...
   oDlD:bLClicked := { || MovWin(oDlGD,aCoors,oCur) }
   ...
ACTIVATE DIALOG oDlg...

FUNCTION MovWin(oDW,aCoor,oCur)
   LOCAL aXY   := GetCursorPos()
   LOCAL aPun  := GetWndRect(oDW:hWnd)

   aXY[1] -= aPun[1]
   aXY[2] -= aPun[2]
   IF aXY[1] > aCoor[nTop] .AND. aXY[1] < aCoors[nBottom] .AND. aXY[2] > aCoors[nLeft] .AND. aXY[2] < aCoors[nRight]
      DO WHILE GetKeyState( VK_LBUTTON )
         SetCursor( oCur:hCursor )
         aPun := GetCursorPos()
         MoveWindow( oDW:hWnd, aPun[1]-aXY[1], aPun[2]-aXY[2],,, .T. )
         SysRefresh()
      ENDDO
      CursorArrow()
   ENDIF
RETURN .T.
 

OcUR es por si quiero utilizar un cursor diferente cuando se mueve el dialogo. No es necesario ponerlo
aCoors es el área en la que quiero que el ratón mueva el dialogo. Si quiero que mover el dialogo desde cualquier parte, no la pongo, y sería:

Code: Select all  Expand view

DEFINE DIALOG oDLg ....
   DEFINE CURSOR oCur ...
   ...
   ...
   oDlD:bLClicked := { || MovWin(oDlGD,oCur) }
   ...
ACTIVATE DIALOG oDlg...

FUNCTION MovWin(oDW,oCur)
   LOCAL aXY   := GetCursorPos()
   LOCAL aPun  := GetWndRect(oDW:hWnd)

   aXY[1] -= aPun[1]
   aXY[2] -= aPun[2]

   DO WHILE GetKeyState( VK_LBUTTON )
      SetCursor( oCur:hCursor )
      aPun := GetCursorPos()
      MoveWindow( oDW:hWnd, aPun[1]-aXY[1], aPun[2]-aXY[2],,, .T. )
      SysRefresh()
   ENDDO
   CursorArrow()
RETURN .T.
 

A mi me funciona bien

Espero te sea de utilidad.

Un saludo.

[Marcelo Via Giglio]

Antolin,

muchas gracias por compartir tu solución

saludos

Marcelo Vía

[acuellar]

Muchas Gracias Antolin

A mi también me sirvió.

Saludos,


Adhemar

[FranciscoA]

Muchas Gracias Antolin

A mi también me sirvió.

Saludos,


Adhemar

+1
Saludos.

[horacio]

Funciona perfectamente, muchísimas gracias ...

Saludos

[hmpaquito]

Muchas gracias.

Me ha venido muy bien.

[Willi Quintana]

Hola Amigos,
Cuando muevo un dialogo incrustado en una windows (MDI) solo se mueve el dialogo mas no la window, y al cambiar oDlg por oWndK se mueve todo pero la window salta hacia abajo....

Code: Select all  Expand view

DEFINE WINDOW oWndK MDICHILD FROM 0,0 to 2,2 OF oWnd BORDER NONE NOSYSMENU NOCAPTION TITLE cTitle ICON "SVITE"
DEFINE DIALOG oDlg RESOURCE "KARDEX" OF oWndK  
       oDlg:bLClicked := { || MovWin(oDlg, oCursor) } // para mover el objeto


aEval(oDlg:aControls,{|oC|iif(oC:ClassName()="TBTNBMP",oC:oCursor:=oCursor,)})
ACTIVATE DIALOG oDlg CENTER NOWAIT ;  
                ON INIT (oDlg:Move( 0, 0 ), ;
                VALID  (oWndK:End() , lSalir )
                oWndK:bGotFocus  = { || oDlg:SetFocus() }
ACTIVATE WINDOW oWndK ;                                                      
         ON INIT (oWndK:Move(0,0), oWndK:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ;  
         ON RESIZE (oWndK:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ;
         VALID (lSalir)

 

[FranciscoA]

Hola Willi.
Modificando la function de Antolin, de la siguiente manera, me funciona bien en Windows 7. En este momento no tengo a la mano otras versiones de Windows.
Pruebalo y nos dices.

Code: Select all  Expand view

oDlg:bLClicked := { || MovWin(oChild, oCursor) }    //enviandole ventana hija MDI

   #define SM_CYCAPTION  4
   #define SM_CYFRAME   33
   #define SM_CXPADDEDBORDER  92

//--------------------------//
FUNCTION MovWin(oDW,oCur)
   LOCAL aXY   := GetCursorPos()
   LOCAL aPun  := GetWndRect(oDW:hWnd)

   local nHeight

IF oDW:CLASSNAME() == "TMDICHILD"

   nHeight := ( GetSysMetrics(SM_CYFRAME) + ;
                GetSysMetrics(SM_CYCAPTION) + ;
                GetSysMetrics(SM_CXPADDEDBORDER) ) * 2.3666

   aXY[1] -= (aPun[1]-nHeight)  
   aXY[2] -= aPun[2]+1

ELSE
   aXY[1] -= aPun[1]
   aXY[2] -= aPun[2]
ENDIF

   DO WHILE GetKeyState( VK_LBUTTON )
      SetCursor( oCur:hCursor )
      aPun := GetCursorPos()
      MoveWindow( oDW:hWnd, aPun[1]-aXY[1], aPun[2]-aXY[2],,, .T. )
      SysRefresh()
   ENDDO
   CursorArrow()
RETURN .T.
 

Saludos.

[Willi Quintana]

Funcionando en Windows 10
Salu2
Willi