Coloring column in an ALV tree

[Former Member]

Hi all,

What I want to do is set background color for columns in a tree-view ALV(class cl_gui_alv_tree). However no matter how I set the field EMPHASIZE in the fieldcatalog internal table, the display of the ALV tree keeps unchange. Anyone can help me on this?

Thanks,

Chen Chang

[Former Member]

Hi,

<b>If u want to change the node colr in ALV tree do as follows</b>

• Adding Root Nodes for the tree.

• Key:

• NODE_KEY, RELATKEY, RELATSHIP, HIDDEN, DISABLED, ISFOLDER, N_IMAGE,

• EXP_IMAGE, <b>STYLE</b>, LAST_HITEM, NO_BRANCH, EXPANDER, DRAGDROPID, TEXT

perform f9101_node_list using: '1' 'ROOT' '' '' '' c_x '' '' '' '' ''

c_x '' text-003.

• Adding subitems for the root node.

perform f9101_node_list using:

• Material Details

'MATRL' '1' '' '' '' '' '' '' '' '' '' '' ''

text-001,

• Document Details

'DOCU' '1' '' '' '' '' '' '' '' '' '' '' ''

text-002.

form f9101_node_list using value(pnodekey)

value(prelatkey)

value(prelatship)

value(phidden)

value(pdisabled)

value(pisfolder)

value(pimage)

value(pexpimage)

value(pstyle)

value(plastitem)

value(pnobranch)

value(pexpander)

value(pdragdropid)

value(ptext).

w_nodes-node_key = pnodekey.

w_nodes-relatkey = prelatkey.

w_nodes-relatship = prelatship. "Natural number

w_nodes-hidden = phidden.

w_nodes-disabled = pdisabled.

w_nodes-isfolder = pisfolder.

w_nodes-n_image = pimage. "Icons / embedded bitmap

w_nodes-exp_image = pexpimage. "Icons / embedded bitmap

<b> w_nodes-style = pstyle.</b> w_nodes-last_hitem = plastitem. "Tree Control: Column Name / Item

"Name

w_nodes-no_branch = pnobranch.

w_nodes-expander = pexpander.

w_nodes-dragdropid = pdragdropid.

w_nodes-text = ptext.

append w_nodes to i_nodes.

endform. " f9101_node_list

Try changing the style so that u can change the column color.

If u want that in ALV grid

1.

2.

Got this from forum

report .

*****************************************************************

• Use of colours in ALV grid (cell, line and column) *

*****************************************************************

• Table

tables : mara.

• Type

types : begin of ty_mara,

matnr like mara-matnr,

matkl like mara-matkl,

counter(4) type n,

free_text(15) type c,

color_line(4) type c, " Line color

color_cell type lvc_t_scol, " Cell color

end of ty_mara.

• Structures

data : wa_mara type ty_mara,

wa_fieldcat type lvc_s_fcat,

is_layout type lvc_s_layo,

wa_color type lvc_s_scol.

• Internal table

data : it_mara type standard table of ty_mara,

it_fieldcat type standard table of lvc_s_fcat,

it_color type table of lvc_s_scol.

• Variables

data : okcode like sy-ucomm,

w_alv_grid type ref to cl_gui_alv_grid,

w_docking_container type ref to cl_gui_docking_container.

parameters : p_column as checkbox,

p_line as checkbox,

p_cell as checkbox.

at selection-screen output.

perform get_data.

perform fill_catalog.

if w_docking_container is initial.

perform create_objects.

endif.

&----

---

*& Form create_objects

&----

---

form create_objects.

create object w_docking_container

exporting

ratio = 60

exceptions

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5

others = 6.

create object w_alv_grid

exporting

i_parent = w_docking_container.

• Field that identify color line in internal table

move 'COLOR_LINE' to is_layout-info_fname.

• Field that identify cell color in inetrnal table

move 'COLOR_CELL' to is_layout-ctab_fname.

call method w_alv_grid->set_table_for_first_display

exporting

is_layout = is_layout

changing

it_outtab = it_mara

it_fieldcatalog = it_fieldcat

exceptions

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

others = 4.

endform.

&----

---

*& Form get_data

&----

---

form get_data.

select * from mara up to 5 rows.

clear : wa_mara-color_line, wa_mara-color_cell.

move-corresponding mara to wa_mara.

add 1 to wa_mara-counter.

move 'Blabla' to wa_mara-free_text.

if wa_mara-counter = '0002'

and p_line = 'X'.

• Color line move 'C410' to wa_mara-color_line.

elseif wa_mara-counter = '0004'

and p_cell = 'X'.

• Color cell

move 'FREE_TEXT' to wa_color-fname.

move '6' to wa_color-color-col.

move '1' to wa_color-color-int.

move '1' to wa_color-color-inv.

append wa_color to it_color.

wa_mara-color_cell[] = it_color[].

endif.

append wa_mara to it_mara.

endselect.

endform.

&----

---

*& Form fill_catalog

&----

---

form fill_catalog.

*****************************************************************

• Colour code : *

• Colour is a 4-char field where : *

• - 1st char = C (color property) *

• - 2nd char = color code (from 0 to 7) *

• 0 = background color *

• 1 = blue *

• 2 = gray *

• 3 = yellow *

• 4 = blue/gray *

• 5 = green *

• 6 = red *

• 7 = orange *

• - 3rd char = intensified (0=off, 1=on) *

• - 4th char = inverse display (0=off, 1=on) *

• *

• Colour overwriting priority : *

• 1. Line *

• 2. Cell *

• 3. Column *

*****************************************************************

data : w_position type i value '1'.

clear wa_fieldcat.

move w_position to wa_fieldcat-col_pos.

move 'MATNR' to wa_fieldcat-fieldname.

move 'MARA' to wa_fieldcat-ref_table.

move 'MATNR' to wa_fieldcat-ref_field.

append wa_fieldcat to it_fieldcat.

add 1 to w_position.

clear wa_fieldcat.

move w_position to wa_fieldcat-col_pos.

move 'MATKL' to wa_fieldcat-fieldname.

move 'MARA' to wa_fieldcat-ref_table.

move 'MATKL' to wa_fieldcat-ref_field.

• Color column

if p_column = 'X'.

move 'C610' to wa_fieldcat-emphasize.

endif.

append wa_fieldcat to it_fieldcat.

add 1 to w_position.

clear wa_fieldcat.

move w_position to wa_fieldcat-col_pos.

move 'COUNTER' to wa_fieldcat-fieldname.

move 'N' to wa_fieldcat-inttype.

move '4' to wa_fieldcat-intlen.

move 'Counter' to wa_fieldcat-coltext.

append wa_fieldcat to it_fieldcat.

add 1 to w_position.

clear wa_fieldcat.

move w_position to wa_fieldcat-col_pos.

move 'FREE_TEXT' to wa_fieldcat-fieldname.

move 'C' to wa_fieldcat-inttype.

move '20' to wa_fieldcat-intlen.

move 'Text' to wa_fieldcat-coltext.

append wa_fieldcat to it_fieldcat.

endform.

Check this link to get code for different colors http://www.sapdesignguild.org/resources/ma_guidelines/VisualDesignRules/colors.html

Try this out the same thing will work for Reuse also.

Thanks & Regards,

Judith.

Message was edited by: Judith Jessie Selvi

[Former Member]

Hi Judith,

Thank you for your reply. While, can you tell me how to populate the stype parameter in the first piece of your code, because I even don't know what's the value of it. Or you may paste the completed code for it.

Thanks,

Chen Chang

[athavanraja]

following are the values for style parameter.

{ COL_BACKGROUND }	 0	 GUI-specific 
{ 1 | COL_HEADING }	 1	 Gray-blue 
{ 2 | COL_NORMAL }	 2	 Light gray 
{ 3 | COL_TOTAL }	 3	 Yellow 
{ 4 | COL_KEY } 	 4	 Blue-green 
{ 5 | COL_POSITIVE } 	 5	 Green 
{ 6 | COL_NEGATIVE } 	 6	 Red 
{ 7 | COL_GROUP } 	 7	 Violet 

pass the number (0 to 7) to the style filed.

Hope this helps.

Regards

Raja

[Former Member]

Hi,

Sorry for late reply.

Check this link and search for this piece of code

http://www.sapdevelopment.co.uk/reporting/alv/alvtree/alvtree_completesetup.htm

layout-style = cl_gui_column_tree=>style_default.

Thanks & Regards,

Judith.