Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Componente] Menú con Imágenes ¿?¿? (https://www.cobolforo.es/showthread.php?t=356)

Josber 24 de marzo de 2016 17:00
Menú con Imágenes ¿?¿?
 
¿Alguien sabe si se pueden colocar imágenes a un menú? o ¿conoce algún ocx libre que funcione en PWC?

Muchas gracias

Un saludo.-

Kuk 24 de marzo de 2016 17:36
Josber, seguramente se pueda, pero con WinAPI así que habrá que armar un pifostio. Creo que es mucho más facil un OCX.

Mira a ver qué tal este: Ocx para menues Xp - Hook menu

Josber 24 de marzo de 2016 19:30
Gracias Kuk, probaré a ver si funciona en W7 x64, porque los recursos de esa página son muy antiguos y algunos no funcionaban a partir de Win Xp.

De esa misma página me bajé hace tiempo el menú que tienen que es como la "cinta" de Office 2007, pero no es un ocx, si no el proyecto completo, y no conseguí hacer un ocx con el VB6 :perdon:, así que lo dejé de momento.

Un saludo.-

Kuk 25 de marzo de 2016 08:48
Josber, luego también está el famoso Codejock... :silba:

Josber 25 de marzo de 2016 21:03
Al final voy a probar con de DBITech, si no me da muchos problemas, porque en las pruebas que estoy haciendo, ya me ha tirado varias veces del programa ...

Es un poco costoso de hacer, pero trae un "constructor" de menús, que una vez que le has pillado el tino no está mal.

Gracias y un saludo.-

Roger 26 de marzo de 2016 16:03
Josber
Si es posible puedes poner los codigos que elaboras el menu con el DBITech, tambien trabajos con estos ocx y seria de utilidad.
:ojo1:

Josber 26 de marzo de 2016 21:21
Cita:
Citación del post de Roger (Mensaje 1719)
Josber
Si es posible puedes poner los codigos que elaboras el menu con el DBITech, tambien trabajos con estos ocx y seria de utilidad.
:ojo1:
Pues en cuanto lo tenga un poco más claro los pongo Roger, que ahora me están dando un error aleatorio y no sé a que es debido, aunque parece un control bastante sencillo.

Un saludo.

Hrmcobol 27 de marzo de 2016 01:50
2 Archivos Adjunto(s)
Hola camaradas, yo uso "ToolBar" de Dbi, no soy un experto, pero he podido poner imágenes y armar un menú, Les Adjunto un ppj y un exe, estan en pw9, sino logran abrirlos me avisan y lo genero en pw5, pongan el error que les da y lo vemos,
Saludos

Roger 27 de marzo de 2016 05:56
Hrmcobol tengo instalado la versión Dbi-Tech Component Toolbox Ocx v.6.01
¿Cual es el ocx que usas? porque me envia error en el activex.
:eek:

Hrmcobol 27 de marzo de 2016 11:54
Hola Roger, yo tengo Dbi 5.0

Josber 27 de marzo de 2016 12:16
Hrmcobol, da error al abrir el proyecto y el exe de que el componente "toolbar" no está instalado, ¿puedes incluir el ocx en el fichero zip?

Gracias y un saludo.-

Hrmcobol 27 de marzo de 2016 14:29
1 Archivos Adjunto(s)
Aqui Va

Kuk 27 de marzo de 2016 14:46
Hrmcobol, a mi también me dice que no está registrado el OCX, debe ser una versión diferente la que usas.

Josber 28 de marzo de 2016 11:58
Registrando el ocx que ha subido Hrmcobol, se puede abrir el proyecto, aunque sólo es una muestra de un menú, no hay creado ningún evento asociado a los botones.

Por cierto Hrm, el archivo de ayuda que has subido junto al ocx, no se puede abrir, ¿puedes volver a subirlo para darle un vistazo?

Gracias

Un saludo.-

Roger 28 de marzo de 2016 19:11
Hola amigos
Probe con la versión Dbi-Tech Component Toolbox Ocx v.6.01 siguiendo el ejemplo de Hrmcobol y funciona solo que no se donde se pone los comandos
para llamar al sub-programa.

Si necesitas abrir un archivo de ayuda de Windows con extensión .hlp en Windows Vista o Windows 7, no podrás abrirlo, ya que estas versiones de Windows no soportan nativamente este tipo de archivos (Winhelp no viene instalado).
Existen parches ejemplo Descarga Windows8.1-KB917607-x64 si estas en 64 bits o x 86 a 32 bits este es un parche de windows si tienes windows 10 es imposible porque no es compatible ya hice muchas pruebas.
:nocreo:

Josber 28 de marzo de 2016 20:08
1 Archivos Adjunto(s)
Roger, ya lo he solucionado, he encontrado el archivo y ya lo he leido, gracias.

Por otro lado, es muy sencillo de utilizar, en el evento "ItemClick", es donde has de poner tu código, te paso el ejemplo de la prueba que estoy haciendo

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-ARG-NITEM   PIC S9(4) COMP-5.
  6.  01  POW-ARG-BARROW  PIC S9(4) COMP-5.
  7.  PROCEDURE       DIVISION USING POW-ARG-NITEM POW-ARG-BARROW.
  8.  
  9.      EVALUATE POW-ARG-NITEM
  10.  
  11.               WHEN 2
  12.  
  13.                    MOVE 0 TO AHIVA5
  14.                    INVOKE POW-SELF "CallForm" USING "F-CON-TRANSPORTISTA" "M-TRANSPORTISTA"
  15.                    MOVE AHIVA5 TO "Text" OF CAMPO1
  16.                    IF AHIVA5 NOT = 0
  17.                       MOVE AHIVA5 TO TRACOD
  18.         
  19.                       READ TRANSPORTISTA KEY IS XTCOD
  20.                            INVALID KEY
  21.                                    INVOKE POW-SELF "Alarm"
  22.                                    ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
  23.                                    INVOKE POW-SELF "DisplayMessage"
  24.                                           USING "No existe el Registro, quizás haya sido borrado desde otro puesto ..."
  25.                                                 WS-ATENCION
  26.                                                 ESTILO
  27.                                    END-INVOKE
  28.                                    MOVE SPACES TO WSCAPTION
  29.                                    MOVE TRACOD TO TRA-EDI
  30.                                    STRING "Transportistas - Nuevo Registro: "
  31.                                           TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
  32.                                    END-STRING
  33.                                    MOVE WSCAPTION TO "Caption" OF POW-SELF
  34.                                    CALL "VACIAR"
  35.                                    CALL "INHABILITAR"
  36.                                    INVOKE CAMPO1 "SetFocus"
  37.                                    EXIT PROGRAM
  38.                            NOT INVALID KEY
  39.                                CALL "HABILITAR"
  40.                                CALL "EXISTE"
  41.                                INVOKE CAMPO1 "SetFocus"
  42.                                EXIT PROGRAM
  43.                       END-READ
  44.                    ELSE
  45.                       MOVE SPACES TO WSCAPTION
  46.                       MOVE TRACOD TO TRA-EDI
  47.                       STRING "Transportistas - Nuevo Registro: "
  48.                              TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
  49.                       END-STRING
  50.                       MOVE WSCAPTION TO "Caption" OF POW-SELF
  51.                       CALL "VACIAR"
  52.                       CALL "INHABILITAR"
  53.                       INVOKE CAMPO1 "SetFocus"
  54.                       EXIT PROGRAM
  55.                    END-IF
  56.  
  57.                 WHEN 4
  58.  
  59.                    INVOKE POW-SELF "OpenForm" USING "FORM-ACERCA" "M-ACERCA"
  60.  
  61.               WHEN 6
  62.  
  63.                    CALL "PARASALIR"
  64.  
  65.               WHEN 8
  66.  
  67.                    CALL "GRABAR"
  68.  
  69.               WHEN 9
  70.  
  71.                    INVOKE POW-SELF "Alarm"
  72.                    ADD POW-DMICONQUESTION POW-DMYESNO POW-DMDEFBUTTON2 GIVING ESTILO
  73.                    INVOKE POW-SELF "DisplayMessage"
  74.                           USING "¿Cancelar?, Perderá la información no guardada ..."
  75.                                 WS-ATENCION
  76.                                 ESTILO
  77.                           RETURNING RETORNO
  78.                    END-INVOKE
  79.  
  80.                    IF RETORNO = POW-DMRNO
  81.                       EXIT PROGRAM
  82.                    END-IF
  83.  
  84.                      CALL "INHABILITAR"
  85.                      CALL "VACIAR"
  86.                      INVOKE CAMPO1 "SetFocus"
  87.  
  88.               WHEN 10
  89.  
  90.                    MOVE 0 TO AHIVA5
  91.                    INVOKE POW-SELF "CallForm" USING "F-CON-TRANSPORTISTA" "M-TRANSPORTISTA"
  92.                    MOVE AHIVA5 TO "Text" OF CAMPO1
  93.                    IF AHIVA5 NOT = 0
  94.                       MOVE AHIVA5 TO TRACOD
  95.         
  96.                       READ TRANSPORTISTA KEY IS XTCOD
  97.                            INVALID KEY
  98.                                    INVOKE POW-SELF "Alarm"
  99.                                    ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
  100.                                    INVOKE POW-SELF "DisplayMessage"
  101.                                           USING "No existe el Registro, quizás haya sido borrado desde otro puesto ..."
  102.                                                 WS-ATENCION
  103.                                                 ESTILO
  104.                                    END-INVOKE
  105.                                    MOVE SPACES TO WSCAPTION
  106.                                    MOVE TRACOD TO TRA-EDI
  107.                                    STRING "Transportistas - Nuevo Registro: "
  108.                                           TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
  109.                                    END-STRING
  110.                                    MOVE WSCAPTION TO "Caption" OF POW-SELF
  111.                                    CALL "VACIAR"
  112.                                    CALL "INHABILITAR"
  113.                                    INVOKE CAMPO1 "SetFocus"
  114.                                    EXIT PROGRAM
  115.                            NOT INVALID KEY
  116.                                CALL "HABILITAR"
  117.                                CALL "EXISTE"
  118.                                INVOKE CAMPO1 "SetFocus"
  119.                                EXIT PROGRAM
  120.                       END-READ
  121.                    ELSE
  122.                       MOVE SPACES TO WSCAPTION
  123.                       MOVE TRACOD TO TRA-EDI
  124.                       STRING "Transportistas - Nuevo Registro: "
  125.                              TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
  126.                       END-STRING
  127.                       MOVE WSCAPTION TO "Caption" OF POW-SELF
  128.                       CALL "VACIAR"
  129.                       CALL "INHABILITAR"
  130.                       INVOKE CAMPO1 "SetFocus"
  131.                       EXIT PROGRAM
  132.                    END-IF
  133.  
  134.                 WHEN 11
  135.  
  136.                      CALL "BORRAR"
  137.  
  138.                 WHEN 13
  139.  
  140.                    CALL "IMPRIMIR"
  141.  
  142.               WHEN 14
  143.  
  144.                    INVOKE POW-SELF "CallForm" USING "F-LIS-TRANSPORTISTA" "M-TRANSPORTISTA"
  145.  
  146.               WHEN OTHER
  147.  
  148.                    EXIT PROGRAM
  149.  
  150.      END-EVALUATE.

Ten en cuenta, que el menú empieza a numerear por 1 desde el primer elemento, en la imágen que adjunto, el primer elemento sería la opción "Menú", y que los separadores cuentan como un elemento en sí, por lo que has de tenerlo en cuenta a la hora de programar el EVALUATE.

Para poder dehabilitar un elemento del menú, usa, por ejemplo:
Código COBOL:
  1.        MOVE 0 TO "ItemEnabled"(08) OF ctToolBar1.
  2.        MOVE 0 TO "ItemEnabled"(09) OF ctToolBar1.
  3.        MOVE 0 TO "ItemEnabled"(11) OF ctToolBar1.
  4.        MOVE 0 TO "ItemEnabled"(14) OF ctToolBar1.

Es decir, el número entre paréntesis es el elemento a inhabilitar.

Si tienes más dudas, indícalo.

Un saludo.-

Hrmcobol 28 de marzo de 2016 21:10
Hola camaradas, yo uso el ItemCick
Saludos


La franja horaria es GMT +2. Ahora son las 15:14.

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