PARA EL MAESTRO ANTONIO LINARES::

[mantonio_08]

Master tengo una pregunta dudosa::

es posible que una ventana ya sea

DEFINE WINDOW o DEFINE DIALOG..

se pueda tomar con el mouse y mover a otra posicion ,,, esto hoy la hace la clase solo si la tomo de la parte superior generalmente de color azul...

pero y he ahi la pregunta del millon,, se podria hacer que se moviera tomandola de cualquier parte,, de arriba , del centro,

un ejemplo claro de lo que digo ,, es la ventana de inicio del Messenger.. incluso ahi se puede mover la ventana sin tener la barra de mune activa..


MAESTRO.. no se si me explique claro,,

muchas GRACIAS MASTER...

[Antonio Linares]

Aqui tienes un ejemplo funcionando: (cierra la ventana pulsando Alt+F4)

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oWnd, nRowPos, nColPos, lDrag := .F.

   DEFINE WINDOW oWnd STYLE WS_POPUP COLOR "W/R"

   oWnd:bLClicked := { | nRow, nCol | nRowPos := nRow, nColPos := nCol, lDrag := .T. }
      
   oWnd:bMMoved = { | nRow, nCol | If( lDrag, oWnd:Move( oWnd:nTop + nRow - nRowPos,;
                                         oWnd:nLeft + nCol - nColPos ),) }   

   oWnd:bLButtonUp := { || lDrag := .F. }

   ACTIVATE WINDOW oWnd
     

return nil


[mantonio_08]

MAESTRO ANTONIO... trate de aplicar este ejemplo pero para un DIALOG.. y no doy con la solucion

el codigo quedo asi:

oDlg:bLClicked := { | nRow, nCol | nRowPos := nRow, nColPos := nCol, lDrag := .T. }
oDlg:bMMoved = { | nRow, nCol | If( lDrag, oDlg:Move( oDlg:nTop + nRow - nRowPos,;
oDlg:nLeft + nCol - nColPos ),) }
oDlg:bLButtonUp := { || lDrag := .F. }

no se si el codigo esta bien o mal aplicado.. o si solo funciona para window


GRACIAS