No me funciona Drag&Drop en Browse con XP

[gdeteran]

Estoy migrando mis aplicaciones de Win98 a XP y me encontrado con este problema.
Uso FWH 2.4

[VeRCE]

Estoy migrando mis aplicaciones de Win98 a XP y me encontrado con este problema.
Uso FWH 2.4

La siguiente forma la uso y jala bien en todos
los sistemas operativos:


oLst = Control q debe aceptar Drag&Drop

ON INIT ( DragAcceptFiles( oLst:hWnd, TRUE ), ;
oLst:bDropFiles := {|nRow,nCol,aFiles| valida(oLst) } )

Saludos

[gdeteran]

La aplicacion siempre me ha funcionado perfectamente bajo win98, sin embargo al ejecutarla bajo XP, el drag&drop deja de funcionar.

La instruccion que uso, es esta:
oLbxDocto:bDropOver := { || AgregaFac( aVars ), oLbxDocto:Refresh() }

Sera que en 32 bits hay que agregar alguna lib o algo parecido?

[Antonio Linares]

Gonzalo,

No hay que añadir ninguna lib. Puedes por favor probar el ejemplo samples\TestDrp3.prg y comprobar si te funciona correctamente ? gracias.

[gdeteran]

Antonio :
El ejemplo que mencionas funciona perfecto. Sin embargo mi programa sigue sin funcionar. Lo que estoy haciendo es mover registros desde un browse a otro browse. Uso el wBrowse de Hernan y lo defino en un archivo RC.

Estoy simplemente mostrando un mensaje al hacer el drop pero, aun asi no funciona :

oLbxDocto:bDropOver := { || MsgAlert("Drop") }

Gracias

[Antonio Linares]

Gonzalo,

Te ha funcionado anteriormente el drag&drop con el browse de Hernán ?

[gdeteran]

Antonio:

Hasta ahora funciona perfecto pero, bajo Win98.