Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL + WinAPI
Cocina PowerCOBOL + WinAPI Código WinAPI en PowerCOBOL
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] OCX para alterar ListView Rapinto Controles y Componentes Gratuitos 5 26 de noviembre de 2019 10:22
[Petición] ListView con impresión multipágina FabioYeyo Controles y Componentes (DLL/OCX) 1 13 de mayo de 2017 09:32
[Información] Ocultar columna en un ListView Josber PowerCOBOL (ActiveX, v4 - v11) 5 29 de octubre de 2016 22:12
[Aporte] Crear un ListView Kuk Cocina PowerCOBOL V3L10 1 19 de diciembre de 2015 20:10
[Sintaxis] Colores en RGB... Fito PowerCOBOL (ActiveX, v4 - v11) 5 23 de septiembre de 2015 23:17
Respuesta
 
Herramientas

  #1
Antiguo 15 de noviembre de 2015, 18:19
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
15.06.2021 10:54
PROCEDURE DIVISION
Posts: 581
Enviado: 267
Recibido: 286
Soluiones: 38
Reputación: 29
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Tabla ListView con Colores

Por todos nosotros es sabido las pocas, por no decir ninguna . opciones que tiene el control ListView para hacerlo más "bonito". Haciendo limpieza en mi ordenador, he encontrado parte de una rutina original de José Holzman, para colorear un ListView, así que comparto el programa de prueba que he hecho para ver como funciona, por si le interesa a alguien.


Entorno: PWC9, (aunque lo más seguro es que en PWC7 Y 5 funcione)
Tipo: Ejecutable
Contenido: Ejecutable, Proyecto, Icono en un archivo Zip

Sólo he conseguido cambiar el color de fondo, no sé si habrá posibilidades de cambiar el color de texto por éste método, si alguien tiene algo más que aportar, se agradecería.

Un saludo a todos.-
Imágenes Adjuntas
Tipo de Archivo: jpg ListView Coloreado 1.jpg (79,3 KB, 53 descargas)
Tipo de Archivo: jpg ListView Coloreado 2.jpg (87,8 KB, 50 descargas)
Archivos Adjuntos
Tipo de Archivo: zip ListView con Color.zip (20,9 KB, 58 descargas)
Josber no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Hrmcobol (16 de noviembre de 2015), Kuk (15 de noviembre de 2015), Socavi (19 de noviembre de 2015)
  #2
Antiguo 16 de noviembre de 2015, 03:48
IDENTIFICATION DIVISION
Roger
 Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 80
Soluiones: 5
Reputación: 13
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

Solo descarga el icono?? :ojo2:
Roger no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 16 de noviembre de 2015, 06:59
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
15.06.2021 10:54
PROCEDURE DIVISION
Posts: 581
Enviado: 267
Recibido: 286
Soluiones: 38
Reputación: 29
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Roger Ver Mensaje
Solo descarga el icono??
No me he dado cuenta, Roger, lo siento, aquí lo teneís resubido y comprobado

Un saludo
Archivos Adjuntos
Tipo de Archivo: zip ListView con Color.zip (200,9 KB, 69 descargas)
Josber no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 18 de noviembre de 2015, 22:24
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Josber,

Fiz um pequeno OCX em Visual Basic 6, para incluir no PowerCobol, que permite alterar muitas coisas na Listview.
Entre elas alterar a cor de fundo de cada linha, conforme a imagem em anexo.
Ainda tem alguns problemas, mas já funciona muito bem.

Se pretenderem posso colocar aqui no foro.

Un saludo,
Rui Pinto
Imágenes Adjuntas
Tipo de Archivo: jpg Image.jpg (166,0 KB, 84 descargas)
Rapinto no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 19 de noviembre de 2015, 06:47
IDENTIFICATION DIVISION
Josber
 Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
febrero 2015
Alicante
15.06.2021 10:54
PROCEDURE DIVISION
Posts: 581
Enviado: 267
Recibido: 286
Soluiones: 38
Reputación: 29
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Rapinto Ver Mensaje
Se pretenderem posso colocar aqui no foro.
Pues sí Rui, te lo agradeceríamos y si es con algún ejemplo, mejor aún

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 19 de noviembre de 2015, 14:19
IDENTIFICATION DIVISION
Roger
 Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 80
Soluiones: 5
Reputación: 13
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

Rapinto, ese boton que muestras "cliente" es tambien del powercobol o de otro ocx??

Disculpen por la pregunta los demas foreros se me colo a esta parte del foro.
Roger no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 19 de noviembre de 2015, 21:17
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Roger,

É a ComboBox do Fujitsu Cobol, mas utilizando o "manifest".
Já existe no foro a explicação de como colocar o ficheiro "manifest" do .exe.
Na CMTAB fica com o mesmo efeito.
Saludo,
Rui

Añadido despues de 42 minutos
Josber,

Coloquei no foro relativo a OCX (OCX e exemplo).
Se não estiver correto mudem, por favor.
Un saludo
Rui

Última edición por Rapinto fecha: 19 de noviembre de 2015 a las 22:00. Razón: Post añadido
Rapinto no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 20 de noviembre de 2015, 00:03
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
15.06.2021 16:17
PROCEDURE DIVISION
Posts: 1.753
Enviado: 551
Recibido: 720
Soluiones: 94
Reputació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
Predeterminado

Rapinto, Roger se refería al botón "Exportar" con un icono de Excel



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 20 de noviembre de 2015, 00:53
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 221
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado

Kuk e Josber,

Desculpa, percebi mal.
O botão de "Exportar" com o icon do Excel é o botão gratuito da Innovasys.

Saludos,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 27 de noviembre de 2015, 12:16
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
15.06.2021 16:17
PROCEDURE DIVISION
Posts: 1.753
Enviado: 551
Recibido: 720
Soluiones: 94
Reputació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
Predeterminado

Rapinto, y cómo alternas los colores de los ListItem en el OCX, por WinAPI?



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
color , listview , ocx , winapi


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 17:18.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.