Önceki Sayfa

Using Different Color in ABAP

*

* Different Color in ABAP

*

REPORT ZCOLOR LINE-SIZE 90 NO STANDARD PAGE HEADING.

DATA: BEGIN OF TP OCCURS 10, ID, NR(8), TEXT(255), END OF TP.

DATA: LENGTH TYPE I VALUE 8,           " Length of list

TESTSTRING(15) TYPE C VALUE '012345678901234',

WIDTH TYPE I.                    " Width of list

DATA: TXT_REPORT LIKE DOKHL-OBJECT.

START-OF-SELECTION.

PERFORM HEADING.

PERFORM OUTPUT_BODY.

FORM HEADING.

FORMAT INTENSIFIED OFF.              " Remove any INTENSIFIED

ULINE AT (WIDTH).                    " Upper frame border

FORMAT COLOR COL_HEADING INTENSIFIED." Title color

WRITE: / SY-VLINE.                   " Left border

WRITE: 'No |Colour        |intensified    |intensified off|',

'inverse' NO-GAP.

WRITE: AT WIDTH SY-VLINE.            " Right border

ULINE AT (WIDTH).                    " Line below titles

FORMAT COLOR OFF.

ENDFORM.

FORM OUTPUT_BODY.

DO LENGTH TIMES.

PERFORM WRITE_LINE USING SY-INDEX.

ENDDO.

ENDFORM.

FORM WRITE_LINE USING COUNT TYPE I.

DATA: HELP(14) TYPE C,

COUNT1 TYPE I.

COUNT1 = SY-INDEX - 1.

WRITE: / SY-VLINE NO-GAP.

WRITE: (4) COUNT1 COLOR COL_KEY INTENSIFIED NO-GAP.

WRITE: SY-VLINE NO-GAP.

CASE COUNT1.

WHEN '0'.

HELP = 'COL_BACKGROUND'.

WHEN '1'.

HELP = 'COL_HEADING'.

WHEN '2'.

HELP = 'COL_NORMAL'.

WHEN '3'.

HELP = 'COL_TOTAL'.

WHEN '4'.

HELP = 'COL_KEY'.

WHEN '5'.

HELP = 'COL_POSITIVE'.

WHEN '6'.

HELP = 'COL_NEGATIVE'.

WHEN '7'.

HELP = 'COL_GROUP'.

ENDCASE.

WRITE: HELP COLOR COL_KEY INTENSIFIED NO-GAP.

WRITE: SY-VLINE NO-GAP.

WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED NO-GAP.

WRITE: SY-VLINE NO-GAP.

WRITE: TESTSTRING COLOR = COUNT1 INTENSIFIED OFF NO-GAP.

WRITE: SY-VLINE NO-GAP.

WRITE: TESTSTRING COLOR = COUNT1 INVERSE NO-GAP.

WRITE AT WIDTH SY-VLINE NO-GAP.

ENDFORM.

*-- End of Program

Copyright © 2010. KM Group. All Rights Reserved.