[Componente] Menú con Imágenes ¿?¿?

[Josber]

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]

Aqui Va

[Kuk]

Hrmcobol, a mi también me dice que no está registrado el OCX, debe ser una versión diferente la que usas.

[Josber]

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]

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.

[Josber]

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

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-ARG-NITEM   PIC S9(4) COMP-5.
 01  POW-ARG-BARROW  PIC S9(4) COMP-5.
 PROCEDURE       DIVISION USING POW-ARG-NITEM POW-ARG-BARROW.
 
     EVALUATE POW-ARG-NITEM
 
              WHEN 2
 
                   MOVE 0 TO AHIVA5
                   INVOKE POW-SELF "CallForm" USING "F-CON-TRANSPORTISTA" "M-TRANSPORTISTA"
                   MOVE AHIVA5 TO "Text" OF CAMPO1
                   IF AHIVA5 NOT = 0
                      MOVE AHIVA5 TO TRACOD
        
                      READ TRANSPORTISTA KEY IS XTCOD
                           INVALID KEY
                                   INVOKE POW-SELF "Alarm"
                                   ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
                                   INVOKE POW-SELF "DisplayMessage"
                                          USING "No existe el Registro, quizás haya sido borrado desde otro puesto ..."
                                                WS-ATENCION
                                                ESTILO
                                   END-INVOKE
                                   MOVE SPACES TO WSCAPTION
                                   MOVE TRACOD TO TRA-EDI
                                   STRING "Transportistas - Nuevo Registro: "
                                          TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
                                   END-STRING
                                   MOVE WSCAPTION TO "Caption" OF POW-SELF
                                   CALL "VACIAR"
                                   CALL "INHABILITAR"
                                   INVOKE CAMPO1 "SetFocus"
                                   EXIT PROGRAM
                           NOT INVALID KEY
                               CALL "HABILITAR"
                               CALL "EXISTE"
                               INVOKE CAMPO1 "SetFocus"
                               EXIT PROGRAM
                      END-READ
                   ELSE
                      MOVE SPACES TO WSCAPTION
                      MOVE TRACOD TO TRA-EDI
                      STRING "Transportistas - Nuevo Registro: "
                             TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
                      END-STRING
                      MOVE WSCAPTION TO "Caption" OF POW-SELF
                      CALL "VACIAR"
                      CALL "INHABILITAR"
                      INVOKE CAMPO1 "SetFocus"
                      EXIT PROGRAM
                   END-IF
 
                WHEN 4
 
                   INVOKE POW-SELF "OpenForm" USING "FORM-ACERCA" "M-ACERCA"
 
              WHEN 6
 
                   CALL "PARASALIR"
 
              WHEN 8
 
                   CALL "GRABAR"
 
              WHEN 9
 
                   INVOKE POW-SELF "Alarm"
                   ADD POW-DMICONQUESTION POW-DMYESNO POW-DMDEFBUTTON2 GIVING ESTILO
                   INVOKE POW-SELF "DisplayMessage"
                          USING "¿Cancelar?, Perderá la información no guardada ..."
                                WS-ATENCION
                                ESTILO
                          RETURNING RETORNO
                   END-INVOKE
 
                   IF RETORNO = POW-DMRNO
                      EXIT PROGRAM
                   END-IF
 
                     CALL "INHABILITAR"
                     CALL "VACIAR"
                     INVOKE CAMPO1 "SetFocus"
 
              WHEN 10
 
                   MOVE 0 TO AHIVA5
                   INVOKE POW-SELF "CallForm" USING "F-CON-TRANSPORTISTA" "M-TRANSPORTISTA"
                   MOVE AHIVA5 TO "Text" OF CAMPO1
                   IF AHIVA5 NOT = 0
                      MOVE AHIVA5 TO TRACOD
        
                      READ TRANSPORTISTA KEY IS XTCOD
                           INVALID KEY
                                   INVOKE POW-SELF "Alarm"
                                   ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
                                   INVOKE POW-SELF "DisplayMessage"
                                          USING "No existe el Registro, quizás haya sido borrado desde otro puesto ..."
                                                WS-ATENCION
                                                ESTILO
                                   END-INVOKE
                                   MOVE SPACES TO WSCAPTION
                                   MOVE TRACOD TO TRA-EDI
                                   STRING "Transportistas - Nuevo Registro: "
                                          TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
                                   END-STRING
                                   MOVE WSCAPTION TO "Caption" OF POW-SELF
                                   CALL "VACIAR"
                                   CALL "INHABILITAR"
                                   INVOKE CAMPO1 "SetFocus"
                                   EXIT PROGRAM
                           NOT INVALID KEY
                               CALL "HABILITAR"
                               CALL "EXISTE"
                               INVOKE CAMPO1 "SetFocus"
                               EXIT PROGRAM
                      END-READ
                   ELSE
                      MOVE SPACES TO WSCAPTION
                      MOVE TRACOD TO TRA-EDI
                      STRING "Transportistas - Nuevo Registro: "
                             TRA-EDI DELIMITED BY SIZE INTO WSCAPTION
                      END-STRING
                      MOVE WSCAPTION TO "Caption" OF POW-SELF
                      CALL "VACIAR"
                      CALL "INHABILITAR"
                      INVOKE CAMPO1 "SetFocus"
                      EXIT PROGRAM
                   END-IF
 
                WHEN 11
 
                     CALL "BORRAR"
 
                WHEN 13
 
                   CALL "IMPRIMIR"
 
              WHEN 14
 
                   INVOKE POW-SELF "CallForm" USING "F-LIS-TRANSPORTISTA" "M-TRANSPORTISTA"
 
              WHEN OTHER
 
                   EXIT PROGRAM
 
     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:

       MOVE 0 TO "ItemEnabled"(08) OF ctToolBar1.
       MOVE 0 TO "ItemEnabled"(09) OF ctToolBar1.
       MOVE 0 TO "ItemEnabled"(11) OF ctToolBar1.
       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]

Hola camaradas, yo uso el ItemCick
Saludos