Cobol Foro - [Compilador] Drag-and-drop de Objetos

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Compilador] Drag-and-drop de Objetos (https://www.cobolforo.es/showthread.php?t=1672)

Joseg

1 de septiembre de 2023 16:53

Drag-and-drop de Objetos

1 Archivos Adjunto(s)

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

1 de septiembre de 2023 22:27

@Joseg
En el evento

Código:

MouseMove

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 ...

La franja horaria es GMT +2. Ahora son las 02:04.