VisualAge RPG Parts Reference - IBM

VisualAge RPG Parts Reference - IBM VisualAge RPG Parts Reference - IBM

as400bks.rochester.ibm.com
from as400bks.rochester.ibm.com More from this publisher
08.05.2013 Views

Ejemplo de formato libre *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C EVAL RFcolor = %getatr('win01': 'SFL1': 'RowFGClr') * C EVAL %setatr('win01': 'SFL1': 'Index') = 1 C EVAL %setatr('win01': 'SFL1': 'RowFGClr') = 5 * Ejemplo de formato fijo *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C * 'SFL1' GETATR 'ROWFGCLR' 'RFcolor' 2 0 C 'SFL1' SETATR 1 'INDEX' C * 'SFL1' SETATR 5 'ROWFGCLR' 366 VisualAge RPG Manual de consulta de componentes

RowFGMix Consulta o establece la mezcla de colores de primer plano de una fila de subarchivo. Debe utilizar el atributo Index para identificar la fila en la que se consultará o se establecerá la mezcla de colores. Tipo Serie Se aplica a los componentes Subarchivo Códigos de operación SETATR Operativo en tiempo de ejecución sí GETATR sí Valor permitido La mezcla de colores de primer plano debe tener el formato siguiente: 'rojo:verde:azul' donde rojo, verde y azul son valores situados entre 0 y 255 que representan la intensidad del color respectivo. Ejemplo de formato libre *...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C * EVAL RFclrMx = %getatr('win01': 'SFL1': 'RowFGMix') C RFclrMx IFNE '10:23:200' C EVAL %setatr('win01': 'SFL1': 'RowFGMix') = '10:23:200' C * ENDIF Ejemplo de formato fijo *...1....+....2....+....3....+....4....+... .5....+....6....+....7....+....8 CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq---- * C 'SFL1' SETATR '10:23:200' 'ROWFGMIX' * Capítulo 2. Atributos de componente 367

Ejemplo de formato libre<br />

*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8<br />

CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----<br />

*<br />

C EVAL RFcolor = %getatr('win01': 'SFL1': 'RowFGClr')<br />

*<br />

C EVAL %setatr('win01': 'SFL1': 'Index') = 1<br />

C EVAL %setatr('win01': 'SFL1': 'RowFGClr') = 5<br />

*<br />

Ejemplo de formato fijo<br />

*...1....+....2....+....3....+....4....+....5....+....6....+....7....+....8<br />

CSRN01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq----<br />

*<br />

C<br />

*<br />

'SFL1' GETATR 'ROWFGCLR' 'RFcolor' 2 0<br />

C 'SFL1' SETATR 1 'INDEX'<br />

C<br />

*<br />

'SFL1' SETATR 5 'ROWFGCLR'<br />

366 <strong>VisualAge</strong> <strong>RPG</strong> Manual de consulta de componentes

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!