Drag & Drop Browse

[fgondi]

Hola,

Tengo 2 ventanas mdi y en cada una un browse. a los cuales les tengo permitido el arrastrar y soltar.

Lo que quiera es controlar en que fila del browse se suelta el botón, ya que la variable nRow que se carga en bDropOver cambia dependiendo de donde se encuentre la ventana.

[Antonio Linares]

Fernando,

Los parámetros nRow y nCol son relativos al control en donde se inicia la operación de arrastrar y soltar, por lo que has de convertir las coordenadas (relativas) de un control a las coordenadas (relativas) del otro:

local aPoint := { nRow, nCol }

aPoint = ClientToScreen( oBrw1:hWnd, aPoint } // convierte a absolutas
aPoint = ScreenToClient( oBrw2:hWnd, aPoint ) // convierte a relativas

[fgondi]

Antonio,

Muchas gracias, funciono perfectamente.

Una vez que aplique lo que comentas tenia un problema en determinadas posiciones de las ventanas, pero en este post indicabas como resolverlo:
http://fivetechsoft.com/forums/viewtopic.php?t=8872&highlight=drag

Code: Select all  Expand view

  if nRow > 32000
    nRow = - ( 65535 - nRow )
  endif   
  if nCol > 32000
    nCol = - ( 65535 - nCol )
  endif   
  aPoint := {nRow, nCol}
  aPoint = ClientToScreen( oBrw1:hWnd, aPoint } // convierte a absolutas
  aPoint = ScreenToClient( oBrw2:hWnd, aPoint ) // convierte a relativas


[Antonio Linares]

Fernando,

Bien!