Drag-and-drop de Objetos

[Joseg]

Hola,

Pretendia fazer "arrastar-e-largar de objetos numa janela.
Em anexo um exemplo, mas que não funciona muito bem.
Sabem como fazer?

Gracias,
José

[fastpho]

@Joseg
En el evento

MouseMove

proba con estas lineas

*    IF G-IS-DRAG-START THEN
*       move pow-x      to "Left" OF MODELOS
*       move pow-y      to "Top" OF MODELOS
*       MOVE 2  TO "MousePointer"  OF POW-SELF
*    END-IF.
     IF G-IS-DRAG-START THEN
       compute new-tempy =  "Top" OF MODELOS  +  pow-y - tempy
       compute new-tempx =  "Left" OF MODELOS +  pow-x - tempx
       move new-tempy to "Top" OF MODELOS
       move new-tempx to "Left" OF MODELOS
       MOVE 2  TO "MousePointer"  OF pow-self
     END-IF.

Saludos ...