Cobol Foro - [Duda] Colorear una línea del ListView

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Duda] Colorear una línea del ListView (https://www.cobolforo.es/showthread.php?t=752)

Colorear una línea del ListView

Hola Foro
Estoy intentando colorear, en un ListView, las líneas en función de un valor. He cogido un ejemplo de Visual Basic y lo he intentado "traducir" a PowerCobol, pero me da error.

Este es el código en VB:

Código VB:

ListView1.ListItems(Linea).ForeColor = Color

Este es el código que intento implementar en PowerCobol:

Código COBOL:

     MOVE POW-COLOR-RED TO "ForeColor" OF "ListItems"(Linea) OF CmListView1

y este es el error que me da:

Código:

    Create C:\PowerCobol\ListView\Prueba\Debug\MainForm.cob...

    MainForm MainForm-Opened(60) : F5DC410302I-E Property or method definition for POW-0010 is not found.

Si alguien sabe como hacerlo agradecería que lo publicase.
Un saludo a todos

Xavier, el control ListView que viene en el pack de PowerCOBOL no es estándar ni es el de VB. Así que, toca hacer bricolaje: [Aporte] ListView con Colores - COBOL Foro

De casualidad pudiste solucionar lo de las lineas en color????

jemet80, échale un vistazo al enlace de mi post anterior.

Cita:

Citación del post de Kuk (Mensaje 4542)

jemet80, échale un vistazo al enlace de mi post anterior.

Revisa el enlace Kuk, que no lleva a ningún sitio, al menos a mi.

Un saludo.-

Josber, correcto! Lo acabo de corregir.

Es que los enlaces antiguos en http: no funecionan desde que nos hemos pasado a https:...

Tengo que hacer un REPLACE en la base pero nunca tengo tiempo...

Cita:

Citación del post de Kuk (Mensaje 3662)

Xavier, el control ListView que viene en el pack de PowerCOBOL no es estándar ni es el de VB. Así que, toca hacer bricolaje: [Aporte] ListView con Colores - COBOL Foro

Ola!

Tentei fazer isto:

Código COBOL:

     PERFORM 100 TIMES
             INVOKE CmListView1 "Add" USING 1 1 RETURNING WK-INDEX
             MOVE "COLUMNA1" TO "Text"(1) OF "ListItems"(WK-INDEX) OF CmListView1
             MOVE "COLUMNA2" TO "Text"(2) OF "ListItems"(WK-INDEX) OF CmListView1
             MOVE "COLUMNA3" TO "Text"(3) OF "ListItems"(WK-INDEX) OF CmListView1
             MOVE "COLUMNA4" TO "Text"(4) OF "ListItems"(WK-INDEX) OF CmListView1
             MOVE "COLUMNA5" TO "Text"(5) OF "ListItems"(WK-INDEX) OF CmListView1
         
             DIVIDE WK-INDEX BY 2 GIVING RESULT REMAINDER REST
             IF REST = ZEROS
                CALL "SendMessageA" WITH STDCALL USING BY VALUE LV-HWND
                                                    BY VALUE LVST
                                                    BY VALUE 0
                                                    BY VALUE 16711680
                END-CALL
             ELSE
                CALL "SendMessageA" WITH STDCALL USING BY VALUE LV-HWND
                                                    BY VALUE LVST
                                                    BY VALUE 0
                                                    BY VALUE 255
                END-CALL
             END-IF
             CANCEL "SendMessageA"
             
     END-PERFORM.

Para por uma linha de cada cor, mas não consegui :(
Existe alguma alternativa (usando obrigatoriamente o CmListView do Power).

Gracias

Joseg, échale un ojo esto: [Aporte] OCX para alterar ListView - COBOL Foro

Cita:

Citación del post de Kuk (Mensaje 5182)

Joseg, échale un ojo esto: [Aporte] OCX para alterar ListView - COBOL Foro

Sim, já conhecia, mas eu queria usar apenas a Listview do PowerCobol para não ter que instalar o runtime do VB6 (e fazer o registo de um OCX adicional).

Gracias,

Joseg, no se puede hacer tal cual. Habrá que pelear con WinAPI y Custom Draw por cara ListItem. Nunca lo he hecho, en aquel entonces me parecía demasiado complicado.

Imposible no es, pero costará bastante trabajo. Aquí tienes información sobre ello: ListView Alternating Row Colours (Using Windows API) - CodeProject

Otra posibilidad sería crear una DLL en C o C++ (mirando el ejemplo) y llamar esa DLL via LoadLibrary o definiendo las funciones en el fichero COBOL85.CBR.