ALV GRID颜色设置
ALV的颜色分为行的颜色、列的颜色和CELL的颜色。
1.行的颜色
需要在要显示的内表中添加一个字段放置颜色信息，比如COLOR(4) TYPE C .
ITAB-COLOR = 'C700'.
此外，还要根据采用的FM方式还是CLASS方式设置一下显示颜色
-
FM方式： LS_LAYOUT-INFO_FIELDNAME = 'COLOR'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING IS_LAYOUT = LS_LAYOUT IT_FIELDCAT = LT_FIELDCAT TABLES T_OUTTAB = ITAB.
-
CLASS方式： SLA-INFO_FNAME = 'COLOR'. CALL METHOD GO_GRID->SET_TABLE_FOR_FIRST_DISPLAY EXPORTING IS_VARIANT = GS_VARIANT I_SAVE = 'A' IS_LAYOUT = SLA CHANGING IT_OUTTAB = ITAB[] IT_FIELDCATALOG = GT_FIELDCAT[] EXCEPTIONS INVALID_PARAMETER_COMBINATION = 1 PROGRAM_ERROR = 2 TOO_MANY_LINES = 3 OTHERS = 4.
2.列的颜色 设置FIELDCAT就可以了，如：TMP_FIELDCAT-EMPHASIZE = 'C500'. "列的颜色
3.CELL的颜色 需要在要显示的内表添加一个字段：cellcolors TYPE lvc_t_scol. ls_cellcolor-color-col = '5' . ls_cellcolor-color-int = '1' . ls_cellcolor-color-inv = '1' . APPEND ls_cellcolor TO list-cellcolors . APPEND list.
例子：
REPORT Z_BARRY_ALV_CL_COLOR2 .
TYPES: BEGIN OF ilist_s , name1(10), name2(10), name3(10), END OF ilist_s. DATA: ilist TYPE STANDARD TABLE OF ilist_s WITH HEADER LINE .
DATA: BEGIN OF list OCCURS 0. INCLUDE STRUCTURE ilist . DATA: rowcolor(4) TYPE c , cellcolors TYPE lvc_t_scol , cellstyles TYPE lvc_t_styl , celltext TYPE alv_t_dtv . DATA: END OF list.
DATA: ok_code LIKE sy-ucomm. DATA: l_valid(1) TYPE c. DATA: go_grid TYPE REF TO cl_gui_alv_grid.
DATA: gt_fieldcat TYPE lvc_t_fcat, gs_fieldcat TYPE lvc_s_fcat, sla TYPE lvc_s_layo. DATA: ls_fieldcat TYPE lvc_s_fcat. DATA ls_style TYPE lvc_s_styl . DATA ls_cellcolor TYPE lvc_s_scol . DATA ls_celltext TYPE alv_s_dtv .
*---------------------------------------------------------------------*
* CLASS lcl_event_receiver DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS handle_button_click
FOR EVENT button_click OF cl_gui_alv_grid
IMPORTING es_col_id
es_row_no.
ENDCLASS. "lcl_event_receiver DEFINITION
*---------------------------------------------------------------------*
* CLASS lcl_event_receiver IMPLEMENTATION
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_button_click.
PERFORM test USING es_col_id
es_row_no.
ENDMETHOD. "handle_f4
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
DATA: event_receiver TYPE REF TO lcl_event_receiver. DATA: ii TYPE i .
START-OF-SELECTION.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'NAME1'.
ls_fieldcat-scrtext_l = 'NAME1'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'NAME2'.
ls_fieldcat-scrtext_l = 'NAME2'.
* ls_fieldcat-emphasize = 'C610'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'NAME3'.
ls_fieldcat-scrtext_l = 'NAME3'.
APPEND ls_fieldcat TO gt_fieldcat.
list-name1 = 'A'.
list-name2 = 'ARE'.
ls_cellcolor-fname = 'NAME1' .
ls_cellcolor-color-col = '5' .
ls_cellcolor-color-int = '1' .
ls_cellcolor-color-inv = '1' .
APPEND ls_cellcolor TO list-cellcolors .
APPEND list.
list-name1 = 'AA'.
list-name2 = 'BB'.
ls_cellcolor-fname = 'NAME2' .
ls_cellcolor-color-col = '3' .
ls_cellcolor-color-int = '1' .
ls_cellcolor-color-inv = '1' .
APPEND ls_cellcolor TO list-cellcolors .
APPEND list.
list-name1 = 'HOW'.
list-name2 = 'ARE'.
list-rowcolor = 'C410'.
ls_style-fieldname = 'NAME3' .
ls_style-style = cl_gui_alv_grid=>mc_style_button .
* ls_style-style = cl_gui_alv_grid=>MC_STYLE_HOTSPOT.
APPEND ls_style TO list-cellstyles .
ls_celltext-buttoncell = 'TEST'.
APPEND ls_celltext TO list-celltext.
APPEND list.
sla-stylefname = 'CELLSTYLES'. sla-ctab_fname = 'CELLCOLORS'. sla-info_fname = 'ROWCOLOR'.
WRITE 'a'. CREATE OBJECT go_grid EXPORTING i_parent = cl_gui_container=>screen0.
CREATE OBJECT event_receiver. SET HANDLER event_receiver->handle_button_click FOR go_grid.
CALL METHOD go_grid->set_table_for_first_display EXPORTING * is_variant = gs_variant i_save = 'A' is_layout = sla CHANGING it_outtab = list[] it_fieldcatalog = gt_fieldcat[] EXCEPTIONS invalid_parameter_combination = 1 program_error = 2 too_many_lines = 3 OTHERS = 4. *&---------------------------------------------------------------------* *& Form test *&---------------------------------------------------------------------* FORM test USING p_es_col_id TYPE lvc_s_col p_es_row_no TYPE lvc_s_roid. MESSAGE i899(fi) WITH p_es_col_id-fieldname p_es_row_no-row_id . ENDFORM. " test
转自：http://blog.chinaunix.net/u1/40527/showart.php?id=344295