[PowerCOBOL] Manejo de control CmListView (Grid)

[Josber]

Me gustaría empezar una nueva sección y, si éste foro continua y se hace grande, hacerla como un nuevo subforo más adelante. La sección sería nuestras aportaciones, trucos, rutinas, ejemplos, etc.

Para empezar aporto ésta mía en la que pongo un ejemplo del manejo del control de PWC listview, que aunque es un control "muy flojo", se pueden hacer más cosas de lo que parece, como mover columnas de sitio, poner una rejilla, marcar una linea entera, checkbox ...

Como norma, me gustaría, que se pusiera que incluye y la versión del compilador, así como alguna imágen, (si es posible)

Incluye: ppj, exe y librerías e iconos completas
Versión compilador: PWC 9, aunque en la versión 7 también funciona



Descarga
Descargar Ejemplo de ListView

Un saludo a todos y espero más ideas, trucos, ejemplos, etc.

[Josber]

Pues después del post que puso Rui sobre el traspaso a Excel de un ListView, y siguiendo su consejo, he añadido el código al programa, para que podais ver la facilidad con la que se puede pasar un ListView a Excel através de COM.

Además, he añadido un .ocx llamado AniGIF.ocx, que permite añadir un GIF animado a un Form, en el botón "Acerca de ..." podeis verlo, recordar que hay que registrar el ocx en Windows.

Podeis descargarlo todo desde el siguiente enlace:

https://mega.co.nz/#!b4E1iarb!Qa3iFtvHhctQgVqZQa87sR6MJH4a6gX0E2IwNwK6nVc

Un saludo.-

[Juanes]

Josber, excelente aporte. Por favor me puede decir, como define el checkbox dentro del CmListView?
gracias.

[Josber]

❞ Josber, excelente aporte. Por favor me puede decir, como define el checkbox dentro del CmListView? gracias.

    *>
    *> Variables para poner el checkbox en el ListView
    *>
 01  WS-HANDLE              PIC S9(09)  COMP-5 VALUE 0.
 01  LVM-SETEXTENDEDLISTVIEWSTYLE PIC S9(09)    COMP-5 VALUE 4150.
 01  LVS-EX-CHECKBOXES            PIC S9(09)    COMP-5 VALUE 05.
    *>
    *> Variables para Drag'n'Drop de columnas
    *>
 01  WS-DRAG                      PIC S9(09) COMP-5.
 01  LVS-EX-HEADERDRAGDROP        PIC S9(09) COMP-5 VALUE 16.
    *>
    *> Variables para colorear linea entera
    *>
 01  WS-LINHA-INTEIRA             PIC S9(09) COMP-5.
 01  LVS-EX-FULLROWSELECT         PIC S9(09) COMP-5 VALUE 32.

Y en la PROCEDURE ...

*
*
* Poner el "checkbox" en el ListView
*
     MOVE "hWnd" OF VIEW2 TO WS-HANDLE.
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
                                            BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
                                            BY VALUE LVS-EX-CHECKBOXES
                                            BY VALUE LVS-EX-CHECKBOXES
     CANCEL "SendMessageA".
*    
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
                          BY VALUE 4150 
                          BY VALUE 64 
                          BY VALUE 64 *> COLUMNA 1, TIPO HiperLink
     CANCEL "SendMessageA".
*    
     MOVE 32 TO WS-LINHA-INTEIRA.   *> SELECCIONAR LA LÍNEA ENTERA
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
                                            BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
                                            BY VALUE LVS-EX-FULLROWSELECT
                                            BY VALUE WS-LINHA-INTEIRA
     CANCEL "SendMessageA".
*                                           
     MOVE 16 TO WS-DRAG.    *> ARRASTRAR Y CAMBIAR UNA COLUMNA DE SITIO
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
                                            BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
                                            BY VALUE LVS-EX-HEADERDRAGDROP
                                            BY VALUE WS-DRAG
     CANCEL "SendMessageA".
*
     IF POW-CHECK OF CHECK2 = POW-ON
        CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
                             BY VALUE 1 
                             BY VALUE 1 *> GRIDLINES - 1 = Si - 0 = No
        CANCEL "SendMessageA"
     ELSE
        CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE 
                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE 
                             BY VALUE 1 
                             BY VALUE 0 *> GRIDLINES - 1 = Si - 0 = No
        CANCEL "SendMessageA"
     END-IF.

Un saludo.-

[hugoluis]

Hola Buenas
Puede ser que no este disponible
el archivo de Tabla Manejo de control CmListView (Grid)
Gracias

[Kuk]

hugoluis, ¿estás preguntando si PowerCOBOL puede venir sin el control CmListView? Si es eso, la respuesta es NO. Todas las versiones ActiveX de PowerCOBOL, que yo sepa, traen el ListView.

[hugoluis]

Hola Buen día Kuk
Hay un ejemplo de Josber viejo (12/2/2015) que ya no esta disponible en el link que se publica
Quería saber si esta disponible en otro lugar
Gracias

[Kuk]

hugoluis, cuál es el post en el que hay un enlace sin funcionar? Pon el enlace hacía dicho post

[hugoluis]

❞ hugoluis, cuál es el post en el que hay un enlace sin funcionar? Pon el enlace hacía dicho post

Descarga
MEGA

[Josber]

❞ Descarga MEGA

¡¡Uff!! a ver si encuentro el proyecto y lo vuelvo a subir.

Un saludo.-