Cobol Foro
Registrarse
Temas de Hoy
Enlaces
Registrarse
Preguntas Frecuentes
Lista de Usuarios
Calendario
Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
Actualizar esta página [Sintaxis] Colores en RGB...
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Duda] Cambiar colores editor PowerCOBOL v10.1 Kuk PowerCOBOL (ActiveX, v4 - v11) 0 28 de enero de 2024 12:51
[Compilador] Exportar para o Excel con colores Joseg PowerCOBOL (ActiveX, v4 - v11) 3 23 de agosto de 2023 12:41
[PowerCOBOL + WinAPI] ListView con Colores Josber Cocina PowerCOBOL 12 11 de enero de 2023 15:39
[Sintaxis] Colores en RM/COBOL 85 Paco_Diaz COBOL - General 3 11 de diciembre de 2022 20:15
[Compilador] Colores em Powercobol Joseg PowerCOBOL (ActiveX, v4 - v11) 1 9 de septiembre de 2020 17:28

Respuesta
 
Herramientas

  #1
Antiguo 22 de septiembre de 2015, 00:41
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243
Divertido Colores en RGB...
1
Likes

Kuk

 Inactivo Inactivo
Hola Amigos:

A raíz de un post anterior donde KUK dice que power no maneja colores rgb, les paso una forma de utilizarlo. Lo uso hace muchos años, asi que no recuerdo de dónde la saqué para hacer referencia, mil perdones al autor:

Código COBOL:
  1. Working...
  2.        01  colores global.
  3.            02 w-rgb.
  4.               03 w-rojo         pic x.
  5.               03 w-verde        pic x.
  6.               03 w-azul         pic x.
  7.               03                pic x  value low-value.
  8.            02 bin-2             pic S9(4) binary.
  9.            02 redefines bin-2.
  10.               03                pic x.
  11.               03 bin-1          pic x.
  12. Procedure...
  13.      move 205        to bin-2   move bin-1   to w-rojo.
  14.      move 255        to bin-2   move bin-1   to w-verde.
  15.      move 205        to bin-2   move bin-1   to w-azul.
  16.      move w-rgb     to ...

Espero les sea útil...

Saludos. Fito...
Fito is offline   Responder Con Cita
  #2
Antiguo 22 de septiembre de 2015, 10:36
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
0
Likes

None...

Inactivo Inactivo
Fito, lo que yo decía era que no aceptaba como el Power 3 : X"rrggbb00". Aunque habría que mirar con H"rrggbb00" a lo mejor así lo coge.

De todos modos tu rutina será de utilidad.


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 is offline   Responder Con Cita
  #3
Antiguo 22 de septiembre de 2015, 15:10
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 19.09.2026 13:19
Posts Posts: 458
Likes enviados Enviados: 267
Likes recibidos Recibidos: 243
Predeterminado
0
Likes

None...

Inactivo Inactivo
Seguramente, esto debe estar convirtiendo de decimal a Hexa.
Fito is offline   Responder Con Cita
  #4
Antiguo 22 de septiembre de 2015, 16:29
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
0
Likes

None...

Inactivo Inactivo
Fito, X es en formato CHAR, por eso no deja. Pero H es en formato Byte, con lo cual debería dejar. A ver si me da tiempo hoy y lo pruebo.


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 is offline   Responder Con Cita
  #5
Antiguo 23 de septiembre de 2015, 21:54
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207
Predeterminado
0
Likes

None...

Inactivo Inactivo
Lo he comprobado, lo que funciona en Power 9 es lo siguiente:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  SV-COLOR    PIC X(4).
  5.  01  SV-COLOR-N REDEFINES SV-COLOR PIC S9(9) COMP-5.
  6.  PROCEDURE       DIVISION.
  7.      
  8.      MOVE X"FFFF3300" TO SV-COLOR
  9.      
  10.      MOVE SV-COLOR-N TO "BackColor" OF CmText1


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 is offline   Responder Con Cita
  #6
Antiguo 24 de septiembre de 2015, 00:17
Rapinto
Gran amigo del Foro
Guru de COBOL
Activista del Foro: Activista del Foro - Issue reason: ¡Gracias! Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por ayudar mucho a los foreros Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por saber demasiado! 
Última Actividad 29.01.2018 20:23
Posts Posts: 240
Likes enviados Enviados: 19
Likes recibidos Recibidos: 224
Predeterminado
0
Likes

None...

Inactivo Inactivo
Pode ser que ajude alguém:

Constants for the System Colors
System color
Constant

Código:
 Active title bar            POW-COLOR-ACTIVETITLEBAR
 Active title bar texto      POW-COLOR-ACTIVETITLEBARTEXT
 Active window border        POW-COLOR-ACTIVEBORDER
 Application workspace       POW-COLOR-APPLICATIONWORKSPACE
 Button dark shadow          POW-COLOR-BUTTONDARKSHADOW
 Button highlight            POW-COLOR-BUTTONHIGHLIGHT
 Button light shadow         POW-COLOR-BUTTONLIGHTSHADOW
 Button shadow               POW-COLOR-BUTTONSHADOW
 Button surfasse             POW-COLOR-BUTTONFACE
 Button texto                POW-COLOR-BUTTONTEXT
 Desktop                     POW-COLOR-DESKTOP
 Disabled texto              POW-COLOR-DISABLEDTEXT
 Highlight                   POW-COLOR-HIGHLIGHT
 Highlight texto             POW-COLOR-HIGHLIGHTEDTEXT
 Inactive title bar          POW-COLOR-INACTIVETITLEBAR
 Inactive title bar texto    POW-COLOR-INACTIVETITLEBARTEXT
 Inactive window border      POW-COLOR-INACTIVEBORDER 
 Menu bar                    POW-COLOR-MENUBAR
 Menu texto                  POW-COLOR-MENUTEXT
 Scroll bars                 POW-COLOR-SCROLLBARS
 Tool Tip background         POW-COLOR-TOOLTIP
 Tool Tip texto              POW-COLOR-TOOLTIPTEXT
 Window background           POW-COLOR-WINDOWBACKGROUND
 Window frame                POW-COLOR-WINDOWFRAME
 Window texto                POW-COLOR-WINDOWTEXT
(copiado do manual Fujitsu Cobol)

Saludos,
Rui Pinto
Rapinto is offline   Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »


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
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 12:11.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.

Top
 Archivo - Cobol Foro
Webdesign by: vbdesigns.de
Contactar con Nosotros - Cobol Foro
Top