[Joseg]

❞ 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:

     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