Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL V3L10
Cocina PowerCOBOL V3L10 Código listo para usar en el IDE PowerCOBOL V3L10
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Colorear una línea del ListView Xavier PowerCOBOL (ActiveX, v4 - v11) 5 1 de octubre de 2018 15:38
[Información] En un table control de 6 columnas Hector PowerCOBOL (ActiveX, v4 - v11) 3 29 de diciembre de 2017 19:57
[Componente] TextBox Multilinea y saltos de línea Begoguay PowerCOBOL (ActiveX, v4 - v11) 3 6 de febrero de 2017 20:55
[Información] Recorrer Control Table sin modificar datos Begoguay PowerCOBOL (ActiveX, v4 - v11) 8 21 de diciembre de 2015 09:34
[Aporte] AltBackColor en el control Table Kuk Cocina PowerCOBOL V3L10 0 2 de septiembre de 2015 13:25
Respuesta
 
Herramientas

  #1
Antiguo 2 de septiembre de 2015, 13:35
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad14.11.2019 23:15
PROCEDURE DIVISION
PostsPosts: 1.420
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 541
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Capas Selección de línea en Table control

Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  R       PIC 9(9).         *> Row actual
  5.  01  R-1     PIC 9(9) VALUE 0. *> Row seleccionado antes
  6.  
  7.  01  IDX-1   PIC 9(9).    
  8.  01  IDX-2   PIC 9(9).
  9.  
  10.  01  SV-COLOR              PIC X(4).
  11.  
  12.  PROCEDURE   DIVISION.
  13.      
  14.      IF  POW-CLICKROW OF TABLE1 NOT = 0
  15.          MOVE POW-CLICKROW OF TABLE1 TO R
  16.        
  17.          *> no seleccionamos líneas vacías
  18.          IF  POW-TEXT (R 1) OF TABLE1 = SPACES        
  19.              EXIT PROGRAM
  20.          END-IF
  21.        
  22.          *> si la línea seleccionada no es la misma que la anterior selección
  23.          IF  R NOT = R-1
  24.             *> si no es la primera selección después de cargar los datos
  25.              IF  R-1 NOT = 0
  26.                  MOVE 1 TO IDX-1
  27.                
  28.                  *> coloreamos línea anterior con el color que tenía (lo guardamos en SV-COLOR)
  29.                  PERFORM UNTIL IDX-1 > 15
  30.                      MOVE SV-COLOR TO POW-BACKCOLOR (R-1 IDX-1) OF TABLE1
  31.                      
  32.                      ADD 1 TO IDX-1
  33.                  END-PERFORM
  34.              END-IF
  35.            
  36.              *> esta parte compatibiliza con el AltBackColor para no perder orden de colores
  37.              IF  FUNCTION REM(R 2) NOT = 0
  38.                  MOVE POW-WHITE TO SV-COLOR
  39.                  
  40.              ELSE
  41.                  MOVE X'FFEEFF00' TO SV-COLOR
  42.              END-IF
  43.              
  44.              MOVE 1 TO IDX-1
  45.            
  46.              *> coloreamos la línea con el color selección
  47.              PERFORM UNTIL IDX-1 > 15
  48.                  MOVE X'FBFFA800' TO POW-BACKCOLOR (R IDX-1) OF TABLE1
  49.                  
  50.                  ADD 1 TO IDX-1
  51.              END-PERFORM
  52.          
  53.              MOVE R TO R-1
  54.          END-IF    
  55.      END-IF

El color X'FBFFA800' corresponde al color de la línea seleccionada (yo he puesto amarillento tipo ultra edit). Se puede cambiar, es RGB en formato para HTML y un nulo al final (X'00').
Imágenes Adjuntas
Tipo de Archivo: png PowTable2.png (57,2 KB, 33 descargas)


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Eslopes ( 4 de mayo de 2018), Galileo (19 de diciembre de 2015), Rmcostar ( 9 de abril de 2016)
  #2
Antiguo 19 de diciembre de 2015, 21:39
IDENTIFICATION DIVISION
Galileo
Novato Junior
ENVIRONMENT DIVISION
Avatar de Galileo
DATA DIVISION
Forero desde (Registrado)junio 2015
España
UbicaciónMurcia
Última Actividad13.12.2018 19:27
PROCEDURE DIVISION
PostsPosts: 37
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 34
Mejores respuestasSoluiones: 7
ReputaciónReputación: 0
Galileo is on a distinguished road Galileo is on a distinguished road Galileo is on a distinguished road
Predeterminado

Éste código es sencillo y directo. Me gusta.
Galileo no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
selecciónar línea , table control


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 09:38.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.