12-28-2007 8:34 AM
Hi!
I am using cl_gui_list_tree for a list tree, i want to know if i can have several items selected, i have seen it in cl_gui_alv_tree programa, but i don´t know the events or the property for this other class. I want to know if it os possible or if i can implement it?
Thanks in advance
regards
12-28-2007 8:45 AM
Hi,
This is used for showing the screens in ALVreports by using ooabap classes,
i am giving the simple code for that one.
program z.
----
Constants *
----
constants: c_me like trdir-cnam value 'VNDOVV',
c_myurl type scarr-url value
'http://www.brainbench.com/transcript.jsp?pid=147699',
c_width type i value 260,
c_height type i value 130.
----
Types *
----
types: begin of t_pgm,
year(4) type c,
name like trdir-name,
end of t_pgm,
begin of t_pgmkey,
id type i,
name like trdir-name,
end of t_pgmkey.
----
Data *
----
data: it_pgmkey type table of t_pgmkey.
----
Classes *
----
----
Definitions *
----
class screen_init definition create private.
public section.
class-methods init_screen returning value(this)
type ref to screen_init.
methods constructor.
private section.
class-data a_id type i.
data: splitter_h type ref to cl_gui_splitter_container,
splitter_v type ref to cl_gui_splitter_container,
picture type ref to cl_gui_picture,
tree type ref to cl_gui_simple_tree.
methods: fill_tree,
fill_picture.
endclass.
----
class screen_handler definition.
public section.
methods: constructor importing container
type ref to cl_gui_container,
handle_node_double_click
for event node_double_click
of cl_gui_simple_tree
importing node_key,
handle_picture_double_click
for event picture_dblclick
of cl_gui_picture.
private section.
data: html_viewer type ref to cl_gui_html_viewer,
editor type ref to cl_gui_textedit.
methods: fill_html,
fill_src importing programid type trdir-name.
endclass.
----
Implementations *
----
class screen_init implementation.
----
method init_screen.
data screen type ref to screen_init.
create object screen.
this = screen.
endmethod.
----
method constructor.
data: events type cntl_simple_events,
event like line of events,
event_handler type ref to screen_handler,
container_left type ref to cl_gui_container,
container_right type ref to cl_gui_container,
container_top type ref to cl_gui_container,
container_bottom type ref to cl_gui_container.
create object splitter_h
exporting
parent = cl_gui_container=>screen0
rows = 1
columns = 2.
call method splitter_h->set_border
exporting border = cl_gui_cfw=>false.
call method splitter_h->set_column_mode
exporting mode = splitter_h->mode_absolute.
call method splitter_h->set_column_width
exporting id = 1
width = c_width.
container_left = splitter_h->get_container( row = 1 column = 1 ).
container_right = splitter_h->get_container( row = 1 column = 2 ).
create object splitter_v
exporting
parent = container_left
rows = 2
columns = 1.
call method splitter_v->set_border
exporting border = cl_gui_cfw=>false.
call method splitter_v->set_row_mode
exporting mode = splitter_v->mode_absolute.
call method splitter_v->set_row_height
exporting id = 1
height = c_height.
container_top = splitter_v->get_container( row = 1 column = 1 ).
container_bottom = splitter_v->get_container( row = 2 column = 1 ).
create object picture
exporting parent = container_top.
create object tree
exporting parent = container_bottom
node_selection_mode =
cl_gui_simple_tree=>node_sel_mode_single.
create object event_handler
exporting container = container_right.
event-eventid = cl_gui_simple_tree=>eventid_node_double_click.
event-appl_event = ' '. "system event, does not trigger PAI
append event to events.
call method tree->set_registered_events
exporting events = events.
clear: event, events[].
event-eventid = cl_gui_picture=>eventid_picture_dblclick.
event-appl_event = ' '. "system event, does not trigger PAI
append event to events.
call method picture->set_registered_events
exporting events = events.
set handler: event_handler->handle_node_double_click for tree,
event_handler->handle_picture_double_click for picture.
call method: me->fill_picture,
me->fill_tree.
endmethod.
----
method fill_picture.
call method:
picture->load_picture_from_sap_icons exporting icon = '@J4@',
picture->set_display_mode
exporting display_mode = picture->display_mode_fit_center.
endmethod.
----
method fill_tree.
data: node_table type table of abdemonode,
node type abdemonode,
w_pgm type t_pgm,
w_cdat type rdir_cdate,
it_pgm type table of t_pgm,
w_pgmkey type t_pgmkey.
clear: a_id, it_pgmkey[].
select distinct name cdat from trdir into (w_pgm-name, w_cdat)
where cnam = c_me.
w_pgm-year = w_cdat(4).
append w_pgm to it_pgm.
clear w_pgm.
endselect.
sort it_pgm.
node-hidden = ' '. " All nodes are visible,
node-disabled = ' '. " selectable,
node-isfolder = 'X'. " a folder,
node-expander = ' '. " have no '+' sign for expansion.
loop at it_pgm into w_pgm.
at new year.
node-node_key = w_pgm-year.
clear node-relatkey.
clear node-relatship.
node-text = w_pgm-year.
node-n_image = ' '.
node-exp_image = ' '.
append node to node_table.
endat.
at new name.
add 1 to a_id.
node-node_key = w_pgmkey-id = a_id.
w_pgmkey-name = w_pgm-name.
node-relatkey = w_pgm-year.
node-relatship = cl_gui_simple_tree=>relat_last_child.
node-text = w_pgm-name.
node-n_image = '@0P@'.
node-exp_image = '@0P@'.
append w_pgmkey to it_pgmkey.
endat.
append node to node_table.
endloop.
call method tree->add_nodes
exporting table_structure_name = 'ABDEMONODE'
node_table = node_table.
endmethod.
endclass.
----
class screen_handler implementation.
----
method constructor.
create object: html_viewer exporting parent = container,
editor exporting parent = container
wordwrap_mode =
cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = 72.
call method: fill_html,
editor->set_readonly_mode exporting readonly_mode = 1.
endmethod.
----
method handle_node_double_click.
data: w_name type programm,
w_id type i,
w_year(4) type c,
w_pgmkey type t_pgmkey.
w_name = node_key+4.
w_id = w_name.
clear w_name.
read table it_pgmkey into w_pgmkey with key id = w_id
binary search.
if sy-subrc = 0.
w_name = w_pgmkey-name.
endif.
w_year = node_key(4).
if w_name is initial.
call method: fill_html,
html_viewer->set_visible exporting visible = 'X',
editor->set_visible exporting visible = ' '.
else.
call method: fill_src exporting programid = w_name,
editor->set_visible exporting visible = 'X',
html_viewer->set_visible exporting visible = ' '.
endif.
call method cl_gui_cfw=>flush.
endmethod.
----
method handle_picture_double_click.
call method: fill_html,
html_viewer->set_visible exporting visible = 'X',
editor->set_visible exporting visible = ' '.
call method cl_gui_cfw=>flush.
endmethod.
----
method fill_html.
call method html_viewer->show_url exporting url = c_myurl.
endmethod.
----
method fill_src.
types t_line(72) type c.
data src type table of t_line.
read report programid into src.
call method: editor->delete_text,
editor->set_text_as_r3table exporting table = src[].
endmethod.
endclass.
----
Data *
----
data this_screen type ref to screen_init.
----
Program execution *
----
load-of-program.
call screen 100.
----
Dialog Modules PBO *
----
module status_0100 output.
set pf-status 'SCREEN_100'.
set titlebar 'TIT_100'.
this_screen = screen_init=>init_screen( ).
endmodule.
----
Dialog Modules PAI *
----
module cancel input.
leave program.
endmodule.
----
please reward points, if it is helpful,
regards,
satish.
12-28-2007 8:45 AM
Hi,
This is used for showing the screens in ALVreports by using ooabap classes,
i am giving the simple code for that one.
program z.
----
Constants *
----
constants: c_me like trdir-cnam value 'VNDOVV',
c_myurl type scarr-url value
'http://www.brainbench.com/transcript.jsp?pid=147699',
c_width type i value 260,
c_height type i value 130.
----
Types *
----
types: begin of t_pgm,
year(4) type c,
name like trdir-name,
end of t_pgm,
begin of t_pgmkey,
id type i,
name like trdir-name,
end of t_pgmkey.
----
Data *
----
data: it_pgmkey type table of t_pgmkey.
----
Classes *
----
----
Definitions *
----
class screen_init definition create private.
public section.
class-methods init_screen returning value(this)
type ref to screen_init.
methods constructor.
private section.
class-data a_id type i.
data: splitter_h type ref to cl_gui_splitter_container,
splitter_v type ref to cl_gui_splitter_container,
picture type ref to cl_gui_picture,
tree type ref to cl_gui_simple_tree.
methods: fill_tree,
fill_picture.
endclass.
----
class screen_handler definition.
public section.
methods: constructor importing container
type ref to cl_gui_container,
handle_node_double_click
for event node_double_click
of cl_gui_simple_tree
importing node_key,
handle_picture_double_click
for event picture_dblclick
of cl_gui_picture.
private section.
data: html_viewer type ref to cl_gui_html_viewer,
editor type ref to cl_gui_textedit.
methods: fill_html,
fill_src importing programid type trdir-name.
endclass.
----
Implementations *
----
class screen_init implementation.
----
method init_screen.
data screen type ref to screen_init.
create object screen.
this = screen.
endmethod.
----
method constructor.
data: events type cntl_simple_events,
event like line of events,
event_handler type ref to screen_handler,
container_left type ref to cl_gui_container,
container_right type ref to cl_gui_container,
container_top type ref to cl_gui_container,
container_bottom type ref to cl_gui_container.
create object splitter_h
exporting
parent = cl_gui_container=>screen0
rows = 1
columns = 2.
call method splitter_h->set_border
exporting border = cl_gui_cfw=>false.
call method splitter_h->set_column_mode
exporting mode = splitter_h->mode_absolute.
call method splitter_h->set_column_width
exporting id = 1
width = c_width.
container_left = splitter_h->get_container( row = 1 column = 1 ).
container_right = splitter_h->get_container( row = 1 column = 2 ).
create object splitter_v
exporting
parent = container_left
rows = 2
columns = 1.
call method splitter_v->set_border
exporting border = cl_gui_cfw=>false.
call method splitter_v->set_row_mode
exporting mode = splitter_v->mode_absolute.
call method splitter_v->set_row_height
exporting id = 1
height = c_height.
container_top = splitter_v->get_container( row = 1 column = 1 ).
container_bottom = splitter_v->get_container( row = 2 column = 1 ).
create object picture
exporting parent = container_top.
create object tree
exporting parent = container_bottom
node_selection_mode =
cl_gui_simple_tree=>node_sel_mode_single.
create object event_handler
exporting container = container_right.
event-eventid = cl_gui_simple_tree=>eventid_node_double_click.
event-appl_event = ' '. "system event, does not trigger PAI
append event to events.
call method tree->set_registered_events
exporting events = events.
clear: event, events[].
event-eventid = cl_gui_picture=>eventid_picture_dblclick.
event-appl_event = ' '. "system event, does not trigger PAI
append event to events.
call method picture->set_registered_events
exporting events = events.
set handler: event_handler->handle_node_double_click for tree,
event_handler->handle_picture_double_click for picture.
call method: me->fill_picture,
me->fill_tree.
endmethod.
----
method fill_picture.
call method:
picture->load_picture_from_sap_icons exporting icon = '@J4@',
picture->set_display_mode
exporting display_mode = picture->display_mode_fit_center.
endmethod.
----
method fill_tree.
data: node_table type table of abdemonode,
node type abdemonode,
w_pgm type t_pgm,
w_cdat type rdir_cdate,
it_pgm type table of t_pgm,
w_pgmkey type t_pgmkey.
clear: a_id, it_pgmkey[].
select distinct name cdat from trdir into (w_pgm-name, w_cdat)
where cnam = c_me.
w_pgm-year = w_cdat(4).
append w_pgm to it_pgm.
clear w_pgm.
endselect.
sort it_pgm.
node-hidden = ' '. " All nodes are visible,
node-disabled = ' '. " selectable,
node-isfolder = 'X'. " a folder,
node-expander = ' '. " have no '+' sign for expansion.
loop at it_pgm into w_pgm.
at new year.
node-node_key = w_pgm-year.
clear node-relatkey.
clear node-relatship.
node-text = w_pgm-year.
node-n_image = ' '.
node-exp_image = ' '.
append node to node_table.
endat.
at new name.
add 1 to a_id.
node-node_key = w_pgmkey-id = a_id.
w_pgmkey-name = w_pgm-name.
node-relatkey = w_pgm-year.
node-relatship = cl_gui_simple_tree=>relat_last_child.
node-text = w_pgm-name.
node-n_image = '@0P@'.
node-exp_image = '@0P@'.
append w_pgmkey to it_pgmkey.
endat.
append node to node_table.
endloop.
call method tree->add_nodes
exporting table_structure_name = 'ABDEMONODE'
node_table = node_table.
endmethod.
endclass.
----
class screen_handler implementation.
----
method constructor.
create object: html_viewer exporting parent = container,
editor exporting parent = container
wordwrap_mode =
cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = 72.
call method: fill_html,
editor->set_readonly_mode exporting readonly_mode = 1.
endmethod.
----
method handle_node_double_click.
data: w_name type programm,
w_id type i,
w_year(4) type c,
w_pgmkey type t_pgmkey.
w_name = node_key+4.
w_id = w_name.
clear w_name.
read table it_pgmkey into w_pgmkey with key id = w_id
binary search.
if sy-subrc = 0.
w_name = w_pgmkey-name.
endif.
w_year = node_key(4).
if w_name is initial.
call method: fill_html,
html_viewer->set_visible exporting visible = 'X',
editor->set_visible exporting visible = ' '.
else.
call method: fill_src exporting programid = w_name,
editor->set_visible exporting visible = 'X',
html_viewer->set_visible exporting visible = ' '.
endif.
call method cl_gui_cfw=>flush.
endmethod.
----
method handle_picture_double_click.
call method: fill_html,
html_viewer->set_visible exporting visible = 'X',
editor->set_visible exporting visible = ' '.
call method cl_gui_cfw=>flush.
endmethod.
----
method fill_html.
call method html_viewer->show_url exporting url = c_myurl.
endmethod.
----
method fill_src.
types t_line(72) type c.
data src type table of t_line.
read report programid into src.
call method: editor->delete_text,
editor->set_text_as_r3table exporting table = src[].
endmethod.
endclass.
----
Data *
----
data this_screen type ref to screen_init.
----
Program execution *
----
load-of-program.
call screen 100.
----
Dialog Modules PBO *
----
module status_0100 output.
set pf-status 'SCREEN_100'.
set titlebar 'TIT_100'.
this_screen = screen_init=>init_screen( ).
endmodule.
----
Dialog Modules PAI *
----
module cancel input.
leave program.
endmodule.
----
please reward points, if it is helpful,
regards,
satish.
12-28-2007 8:55 AM
Hi ,
It is possible .
You GET_SELECTED_NODES EVENTS OF cl_gui_list_tree class.
Please reward if useful.