Colores en RGB...

[Fito]

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:


Working...
01 colores global.
02 w-rgb.
03 w-rojo pic x.
03 w-verde pic x.
03 w-azul pic x.
03 pic x value low-value.
02 bin-2 pic S9(4) binary.
02 redefines bin-2.
03 pic x.
03 bin-1 pic x.
Procedure...
move 205 to bin-2 move bin-1 to w-rojo.
move 255 to bin-2 move bin-1 to w-verde.
move 205 to bin-2 move bin-1 to w-azul.
move w-rgb to ...



Espero les sea útil...

Saludos. Fito...

[Kuk]

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]

Seguramente, esto debe estar convirtiendo de decimal a Hexa.

[Kuk]

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]

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

ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SV-COLOR PIC X(4).
01 SV-COLOR-N REDEFINES SV-COLOR PIC S9(9) COMP-5.
PROCEDURE DIVISION.

MOVE X"FFFF3300" TO SV-COLOR

MOVE SV-COLOR-N TO "BackColor" OF CmText1

[Rapinto]

Pode ser que ajude alguém:

Constants for the System Colors
System color
Constant

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