topic-11263

Posts: 330

Joined: Fri May 25, 2007 09:06 PM

PARA EL MAESTRO ANTONIO LINARES::
Posted: Sat May 24, 2008 01:59 PM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

PARA EL MAESTRO ANTONIO LINARES::
Posted: Sat May 24, 2008 02:10 PM

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

Code: Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

mantonio_08

Posts: 330

Joined: Fri May 25, 2007 09:06 PM

PARA EL MAESTRO ANTONIO LINARES::
Posted: Sat May 24, 2008 11:28 PM

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

FiveTech Support Forums

Continue the discussion