Página 1 de 2 1 2 ÚltimoÚltimo
Resultados 1 al 10 de 14

Tema: Control OCX ucBOX y ejemplo pwc5

  1. #1
      Senior
    Avatar de fastpho

    Registrado
    diciembre de 2016
    Ubicación
    Mendoza
    Edad
    52
    Mensajes
    243
    Última visita
    Ayer a las 21:40

    Agradecimientos
     
    Recibidos
    158
    Enviados
    149

    Citaciones y menciones
     
    Mentioned
    10 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    Gadget Control OCX ucBOX y ejemplo pwc5

    Este es un Control de Usuario realizado en VB6 por Leandro Ascierto , lo converti y modifique a ocx para tener compatibilidad con PowerCobol , se pueden lograr hacer muchas y lograr una interfaz mas moderna.

    link : http://leandroascierto.com/blog/836-2/
    Se pueden crear varios controles button , label , checkbox , toggle botton , radio button , image tc
    Eventos : Click , DobleClick , MouseOver , MouseLeave etc
    Propiedades:BackColor , Border , ForeColor , FrontColor , Hotline , Picture
    Metodos : PictureFromURL PictureFromPath
    ocx: ElsisBoxUpgr.ocx registrarla

    Soporta fuentes tipo icofonts : como Segoe MDL2 , IconsFont Awsome
    Soporta imagenes de tipo png , jpg etc

    Saludos....
    Imagem Anexada Imagem Anexada
    Ficheros adjuntos Ficheros adjuntos

    0 Not allowed!

  2. #2
      Guardián del Foro
    Avatar de Fito

    Registrado
    febrero de 2015
    Ubicación
    Córdoba, Villa María
    Edad
    51
    Mensajes
    339
    Última visita
    Ayer a las 23:18

    Agradecimientos
     
    Recibidos
    177
    Enviados
    179

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    24
    Agradecimientos / Point Value: 0 Guardián del Foro / Point Value: 0 Activista del Foro / Point Value: 0

    Predeterminado

    Muchas gracias. muy buen aporte

    Saludos

    Fito....

    0 Not allowed!

  3. #3
      Senior
    Avatar de Joseg

    Registrado
    abril de 2015
    Mensajes
    273
    Última visita
    Hoy a las 00:08

    Agradecimientos
     
    Recibidos
    115
    Enviados
    72

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Activista del Foro / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    Muito bom!

    0 Not allowed!

  4. #4
      Junior
    P

    Registrado
    marzo de 2018
    Ubicación
    Porto
    Mensajes
    64
    Última visita
    29.09.2022

    Agradecimientos
     
    Recibidos
    21
    Enviados
    22

    Citaciones y menciones
     
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    6

    Predeterminado

    Obrigado.
    Bom trabalho

    0 Not allowed!

  5. #5
      Senior
    Avatar de Joseg

    Registrado
    abril de 2015
    Mensajes
    273
    Última visita
    Hoy a las 00:08

    Agradecimientos
     
    Recibidos
    115
    Enviados
    72

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Activista del Foro / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    Cita Iniciado por fastpho Ver Mensaje
    Este es un Control de Usuario realizado en VB6 por Leandro Ascierto , lo converti y modifique a ocx para tener compatibilidad con PowerCobol , se pueden lograr hacer muchas y lograr una interfaz mas moderna.

    link : http://leandroascierto.com/blog/836-2/
    Se pueden crear varios controles button , label , checkbox , toggle botton , radio button , image tc
    Eventos : Click , DobleClick , MouseOver , MouseLeave etc
    Propiedades:BackColor , Border , ForeColor , FrontColor , Hotline , Picture
    Metodos : PictureFromURL PictureFromPath
    ocx: ElsisBoxUpgr.ocx registrarla

    Soporta fuentes tipo icofonts : como Segoe MDL2 , IconsFont Awsome
    Soporta imagenes de tipo png , jpg etc

    Saludos....
    Olá,

    Como saber este número:
    60619

    COBOL Código:
    1. MOVE 60619 TO "IconCharCode" OF BOX-CHECK1(1)

    Quais seriam os números para o exemplo:
    CheckBox ON/OFF

    Gracias
    José

    0 Not allowed!

  6. #6
      Senior
    Avatar de fastpho

    Registrado
    diciembre de 2016
    Ubicación
    Mendoza
    Edad
    52
    Mensajes
    243
    Última visita
    Ayer a las 21:40

    Agradecimientos
     
    Recibidos
    158
    Enviados
    149

    Citaciones y menciones
     
    Mentioned
    10 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    Predeterminado

    Hola @Joseg , los valores son unicode convertidos a decimal
    es decir el valor E700(unicode)(hex) su valor dec es 59136 tipo long para la ocx

    COBOL Código:
    1.      IF "IconCharCode" OF BOX-CHECK5 = 59193 THEN *>HEX E739
    2.          MOVE 59194 TO "IconCharCode" OF BOX-CHECK5  *>HEX E73A
    3.      ELSE
    4.          MOVE 59193 TO "IconCharCode" OF BOX-CHECK5  *>HEX E739
    5.      END-IF.

    En este link estan los valores del fuente Segoe MDL2 Assets icons
    Segoe MDL2 Assets icons - Windows apps | Microsoft Docs

    Saludos ....

    0 Not allowed!

  7. #7
      Senior
    Avatar de Joseg

    Registrado
    abril de 2015
    Mensajes
    273
    Última visita
    Hoy a las 00:08

    Agradecimientos
     
    Recibidos
    115
    Enviados
    72

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Activista del Foro / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    Cita Iniciado por fastpho Ver Mensaje
    Hola @Joseg , los valores son unicode convertidos a decimal
    es decir el valor E700(unicode)(hex) su valor dec es 59136 tipo long para la ocx

    COBOL Código:
    1.      IF "IconCharCode" OF BOX-CHECK5 = 59193 THEN *>HEX E739
    2.          MOVE 59194 TO "IconCharCode" OF BOX-CHECK5  *>HEX E73A
    3.      ELSE
    4.          MOVE 59193 TO "IconCharCode" OF BOX-CHECK5  *>HEX E739
    5.      END-IF.

    En este link estan los valores del fuente Segoe MDL2 Assets icons
    Segoe MDL2 Assets icons - Windows apps | Microsoft Docs

    Saludos ....

    Existe alguma possibilidade da janela ser Moveable:
    Indicates whether the form is moveable when the title bar is dragged or the system menu Move function is selected. This corresponds to the Moveable property.


    "Style" sem "TitleBar" penso que não há alternativa, mas se houvesse seria interessante, as janelas ficavam mais "modernas" !!!

    Gracias.

    0 Not allowed!

  8. #8
      Senior
    Avatar de fastpho

    Registrado
    diciembre de 2016
    Ubicación
    Mendoza
    Edad
    52
    Mensajes
    243
    Última visita
    Ayer a las 21:40

    Agradecimientos
     
    Recibidos
    158
    Enviados
    149

    Citaciones y menciones
     
    Mentioned
    10 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    Predeterminado

    @Joseg Se puede mover , arrastrar y soltar el formulario perfectamente desde Box-LBLTITULO = Titulo con la siguientes lineas
    Declarar en el WORKING-STORAGE
    COBOL Código:
    1. *-----RUTINAS PARA MOVER LA FORM SIN TITULO
    2.  01 GLOBAL-DATA GLOBAL.
    3.     02  G-DRAG-START    PIC  1(1)  BIT.
    4.         88  G-IS-DRAG-START VALUE B"1".
    5.  01 tempx               PIC S9(9) COMP-5 IS GLOBAL.
    6.  01 tempy               PIC S9(9) COMP-5 IS GLOBAL.
    7.  01 new-tempx           PIC S9(9) COMP-5 IS GLOBAL.
    8.  01 new-tempy           PIC S9(9) COMP-5 IS GLOBAL.
    9.  01 ScreenLeft          PIC S9(9) COMP-5 IS GLOBAL.
    10.  01 ScreenTop           PIC S9(9) COMP-5 IS GLOBAL.
    11.  01 ScreenWidth         PIC S9(9) COMP-5 IS GLOBAL.
    12.  01 ScreenHeight        PIC S9(9) COMP-5 IS GLOBAL.
    13.  01 ScreenScale         PIC S9(4) COMP-5 IS GLOBAL.
    14.  01 W-BUTTON            PIC S9(4) COMP-5 IS GLOBAL.
    15.  01 W-BOOL  REDEFINES W-BUTTON IS GLOBAL.
    16.    02  FILLER           PIC  1(5)  BIT.
    17.    02  W-BUTTON-CENTER  PIC  1(1)  BIT.
    18.    02  W-BUTTON-RIGHT   PIC  1(1)  BIT.
    19. *      88  W-IS-BUTTON-RIGHT  VALUE B"0".
    20.    02  W-BUTTON-LEFT    PIC  1(1)  BIT.
    21.        88  W-IS-BUTTON-LEFT  VALUE B"1".
    22.    02  FILLER           PIC  1(8)  BIT.  
    23. *------------------------------------------------------
    En el Evento Box-LBLTITULO-MouseUp
    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  LINKAGE         SECTION.
    5.  01  POW-BUTTON  PIC S9(4) COMP-5.
    6.  01  POW-SHIFT   PIC S9(4) COMP-5.
    7.  01  POW-X       COMP-1.
    8.  01  POW-Y       COMP-1.
    9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
    10.        IF G-IS-DRAG-START THEN
    11.           MOVE B"0"   TO G-DRAG-START          
    12.           move 0 to "MousePointer" OF pow-self
    13.        end-if.  
    En el Evento Box-LBLTITULO-MouseDown
    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  LINKAGE         SECTION.
    5.  01  POW-BUTTON  PIC S9(4) COMP-5.
    6.  01  POW-SHIFT   PIC S9(4) COMP-5.
    7.  01  POW-X       COMP-1.
    8.  01  POW-Y       COMP-1.
    9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
    10.              
    11.        move POW-BUTTON to W-BUTTON.
    12.        move pow-x      to tempx.
    13.        move pow-y      to tempy.
    14.        IF W-IS-BUTTON-LEFT THEN
    15.            MOVE B"1" TO G-DRAG-START
    16.        end-if.        
    En el Evento Box-LBLTITULO-MouseMove
    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  LINKAGE         SECTION.
    5.  01  POW-BUTTON  PIC S9(4) COMP-5.
    6.  01  POW-SHIFT   PIC S9(4) COMP-5.
    7.  01  POW-X       COMP-1.
    8.  01  POW-Y       COMP-1.
    9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
    10.  
    11.      IF G-IS-DRAG-START THEN
    12.        compute new-tempy =  "Top" OF pow-self + pow-y - tempy
    13.        compute new-tempx =  "Left" OF pow-self + pow-x - tempx
    14.        move new-tempy to "Top" OF pow-self
    15.        move new-tempx to "Left" OF pow-self
    16.        MOVE 2  TO "MousePointer"  OF POW-SELF
    17.      END-IF.
    Estas rutinas tambien las podes colocar en los eventos MouseDown - MouseUp - MouseMove del formulario para mover y soltar
    desde el formulario
    Saludos ........

    0 Not allowed!

  9. #9
      Senior
    Avatar de Joseg

    Registrado
    abril de 2015
    Mensajes
    273
    Última visita
    Hoy a las 00:08

    Agradecimientos
     
    Recibidos
    115
    Enviados
    72

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    19
    Activista del Foro / Point Value: 0 Innovación / Point Value: 0

    Predeterminado

    Cita Iniciado por fastpho Ver Mensaje
    @Joseg Se puede mover , arrastrar y soltar el formulario perfectamente desde Box-LBLTITULO = Titulo con la siguientes lineas
    Declarar en el WORKING-STORAGE
    COBOL Código:
    1. *-----RUTINAS PARA MOVER LA FORM SIN TITULO
    2.  01 GLOBAL-DATA GLOBAL.
    3.     02  G-DRAG-START    PIC  1(1)  BIT.
    4.         88  G-IS-DRAG-START VALUE B"1".
    5.  01 tempx               PIC S9(9) COMP-5 IS GLOBAL.
    6.  01 tempy               PIC S9(9) COMP-5 IS GLOBAL.
    7.  01 new-tempx           PIC S9(9) COMP-5 IS GLOBAL.
    8.  01 new-tempy           PIC S9(9) COMP-5 IS GLOBAL.
    9.  01 ScreenLeft          PIC S9(9) COMP-5 IS GLOBAL.
    10.  01 ScreenTop           PIC S9(9) COMP-5 IS GLOBAL.
    11.  01 ScreenWidth         PIC S9(9) COMP-5 IS GLOBAL.
    12.  01 ScreenHeight        PIC S9(9) COMP-5 IS GLOBAL.
    13.  01 ScreenScale         PIC S9(4) COMP-5 IS GLOBAL.
    14.  01 W-BUTTON            PIC S9(4) COMP-5 IS GLOBAL.
    15.  01 W-BOOL  REDEFINES W-BUTTON IS GLOBAL.
    16.    02  FILLER           PIC  1(5)  BIT.
    17.    02  W-BUTTON-CENTER  PIC  1(1)  BIT.
    18.    02  W-BUTTON-RIGHT   PIC  1(1)  BIT.
    19. *      88  W-IS-BUTTON-RIGHT  VALUE B"0".
    20.    02  W-BUTTON-LEFT    PIC  1(1)  BIT.
    21.        88  W-IS-BUTTON-LEFT  VALUE B"1".
    22.    02  FILLER           PIC  1(8)  BIT.  
    23. *------------------------------------------------------
    En el Evento Box-LBLTITULO-MouseUp
    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  LINKAGE         SECTION.
    5.  01  POW-BUTTON  PIC S9(4) COMP-5.
    6.  01  POW-SHIFT   PIC S9(4) COMP-5.
    7.  01  POW-X       COMP-1.
    8.  01  POW-Y       COMP-1.
    9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
    10.        IF G-IS-DRAG-START THEN
    11.           MOVE B"0"   TO G-DRAG-START          
    12.           move 0 to "MousePointer" OF pow-self
    13.        end-if.  
    En el Evento Box-LBLTITULO-MouseDown
    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  LINKAGE         SECTION.
    5.  01  POW-BUTTON  PIC S9(4) COMP-5.
    6.  01  POW-SHIFT   PIC S9(4) COMP-5.
    7.  01  POW-X       COMP-1.
    8.  01  POW-Y       COMP-1.
    9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
    10.              
    11.        move POW-BUTTON to W-BUTTON.
    12.        move pow-x      to tempx.
    13.        move pow-y      to tempy.
    14.        IF W-IS-BUTTON-LEFT THEN
    15.            MOVE B"1" TO G-DRAG-START
    16.        end-if.        
    En el Evento Box-LBLTITULO-MouseMove
    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  LINKAGE         SECTION.
    5.  01  POW-BUTTON  PIC S9(4) COMP-5.
    6.  01  POW-SHIFT   PIC S9(4) COMP-5.
    7.  01  POW-X       COMP-1.
    8.  01  POW-Y       COMP-1.
    9.  PROCEDURE       DIVISION USING POW-BUTTON POW-SHIFT POW-X POW-Y.
    10.  
    11.      IF G-IS-DRAG-START THEN
    12.        compute new-tempy =  "Top" OF pow-self + pow-y - tempy
    13.        compute new-tempx =  "Left" OF pow-self + pow-x - tempx
    14.        move new-tempy to "Top" OF pow-self
    15.        move new-tempx to "Left" OF pow-self
    16.        MOVE 2  TO "MousePointer"  OF POW-SELF
    17.      END-IF.
    Estas rutinas tambien las podes colocar en los eventos MouseDown - MouseUp - MouseMove del formulario para mover y soltar
    desde el formulario
    Saludos ........
    Perfeito

    Todos os OCX deste site: http://leandroascierto.com/blog/category/ocx/
    são muito interessantes !!!!

    0 Not allowed!

  10. #10
      Guru de COBOL
    Avatar de Nitzer

    Registrado
    noviembre de 2015
    Ubicación
    Almeria
    Edad
    57
    Mensajes
    162
    Última visita
    12.08.2022

    Agradecimientos
     
    Recibidos
    112
    Enviados
    65

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    18
    Activista del Foro / Point Value: 0 Guru de los Gurus / Point Value: 0

    Predeterminado

    Felicidades por el trabajo, impresionante aporte.

    0 Not allowed!

Página 1 de 2 1 2 ÚltimoÚltimo

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Aporte] Ocx, Dll y ejemplo envío Mail desde PWC
    Por Josber en el foro Cocina PowerCOBOL
    Respuestas: 23
    Último Mensaje: 27.09.2022, 15:53
  2. [Sintaxis] Ejemplo de envío FTP
    Por Fito en el foro WinDev
    Respuestas: 0
    Último Mensaje: 29.08.2016, 23:45
  3. [Herramienta] Ejemplo Agenda
    Por Dasije en el foro WinDev
    Respuestas: 0
    Último Mensaje: 23.08.2016, 10:17
  4. [Herramienta] Ejemplo controles Windev
    Por Dasije en el foro WinDev
    Respuestas: 4
    Último Mensaje: 25.07.2016, 12:32
  5. [Petición] Control mscomct2.ocx
    Por Socavi en el foro Controles y Componentes Gratuitos
    Respuestas: 1
    Último Mensaje: 14.12.2015, 01:46

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •