Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Botón derecho del ratón (https://www.cobolforo.es/showthread.php?t=32)

Josber 12 de febrero de 2015 11:11
Botón derecho del ratón
 
¿Alguien me puede decir como controlo que se ha pulsado el botón derecho del ratón sobre una imágen?


Muchas gracias.-

Kuk 12 de febrero de 2015 13:14
Con que control estas mostrando la imagen? Mira en Eventos a ver si hay un OnMouseDown. Los controles que lo tienen en la LINKAGE viene una variable con el indice del boton pulsado.

Josber 12 de febrero de 2015 15:53
Es un Image Control Kuk, y en el evento MouseDown que tengo, vienen éstas variables:

Código COBOL:
  1.  01  POW-ARG-BUTTON  PIC S9(4) COMP-5.
  2.  01  POW-ARG-SHIFT   PIC S9(4) COMP-5.
  3.  01  POW-ARG-X       PIC S9(9) COMP-5.
  4.  01  POW-ARG-Y       PIC S9(9) COMP-5.
  5.  PROCEDURE       DIVISION USING POW-ARG-BUTTON POW-ARG-SHIFT POW-ARG-X POW-ARG-Y.

Supongo que será algo así como

Código COBOL:
  1. IF POW-ARG-BUTTOM = ?????????

Pero no sé exactamente con qué compararla :confused: :confused:

Un saludo.-

Kuk 12 de febrero de 2015 16:09
Josber, haz esto:

Código COBOL:
  1.  
  2. INVOKE POW-SELF "DisplayMessage" USING POW-ARG-BUTTON

Prueba los 3 botones del raton, asi veras cual es cual ;)

Josber 12 de febrero de 2015 16:29
Solucionado Kuk, es

Código COBOL:
  1. IF POW-ARG-BUTTOM = 2
  2.         .
  3.         .
  4.         .
  5. END-IF.

Los valores son:

Botón derecho = 2
Botón izquierdo = 1
Botón central = 4

Gracias por la ayuda Kuk

Un saludo.-


La franja horaria es GMT +2. Ahora son las 05:27.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.