Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DATA: w_container TYPE REF TO cl_gui_custom_container,
- w_splitter TYPE REF TO cl_gui_splitter_container,
- w_child1 TYPE REF TO cl_gui_container,
- w_child2 TYPE REF TO cl_gui_container,
- w_splitter2 TYPE REF TO cl_gui_splitter_container,
- w_child21 TYPE REF TO cl_gui_container,
- w_child22 TYPE REF TO cl_gui_container.
- ** create a container for the control
- CREATE OBJECT w_container
- EXPORTING
- container_name = 'CC_CADEN'
- EXCEPTIONS
- cntl_error = 1
- cntl_system_error = 2
- create_error = 3
- lifetime_error = 4
- lifetime_dynpro_dynpro_link = 5.
- IF sy-subrc <> 0.
- MESSAGE a000(tree_control_msg).
- ENDIF.
- ** Instance of Splitter control - 2 columns
- CREATE OBJECT w_splitter
- EXPORTING parent = w_container
- rows = 1
- columns = 2.
- ** Assign first column to continer
- CALL METHOD w_splitter->get_container
- EXPORTING
- row = 1
- column = 1
- RECEIVING
- container = w_child1.
- ** Assign 2nd child to holding container
- CALL METHOD w_splitter->get_container
- EXPORTING
- row = 1
- column = 2
- RECEIVING
- container = w_child2.
- ** Instance of Splitter control - 2 rows
- CREATE OBJECT w_splitter2
- EXPORTING parent = w_child1
- rows = 2
- columns = 1.
- ** Assign first row of 2nd column to continer
- CALL METHOD w_splitter2->get_container
- EXPORTING
- row = 1
- column = 1
- RECEIVING
- container = w_child21.
- ** Assign 2nd row 2nd column to continer
- CALL METHOD w_splitter2->get_container
- EXPORTING
- row = 2
- column = 1
- RECEIVING
- container = w_child22.
- CALL METHOD W_SPLITTER->SET_COLUMN_WIDTH
- EXPORTING
- ID = 1
- WIDTH = 28.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement