@Joseg
En el evento
proba con estas lineas
Código COBOL:
* 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 ...