Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Colores en RGB... (https://www.cobolforo.es/showthread.php?t=241)

Fito 22 de septiembre de 2015 00:41
Colores en RGB...
 
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...

Kuk 22 de septiembre de 2015 10:36
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. ;)

Fito 22 de septiembre de 2015 15:10
Seguramente, esto debe estar convirtiendo de decimal a Hexa.

Kuk 22 de septiembre de 2015 16:29
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.

Kuk 23 de septiembre de 2015 21:54
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

Rapinto 24 de septiembre de 2015 00:17
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


La franja horaria es GMT +2. Ahora son las 02:30.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.