Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2014
158
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.91 KB | None | 0 0
  1. DATA: w_container TYPE REF TO cl_gui_custom_container,
  2. w_splitter TYPE REF TO cl_gui_splitter_container,
  3. w_child1 TYPE REF TO cl_gui_container,
  4. w_child2 TYPE REF TO cl_gui_container,
  5. w_splitter2 TYPE REF TO cl_gui_splitter_container,
  6. w_child21 TYPE REF TO cl_gui_container,
  7. w_child22 TYPE REF TO cl_gui_container.
  8.  
  9. ** create a container for the control
  10. CREATE OBJECT w_container
  11. EXPORTING
  12. container_name = 'CC_CADEN'
  13. EXCEPTIONS
  14. cntl_error = 1
  15. cntl_system_error = 2
  16. create_error = 3
  17. lifetime_error = 4
  18. lifetime_dynpro_dynpro_link = 5.
  19. IF sy-subrc <> 0.
  20. MESSAGE a000(tree_control_msg).
  21. ENDIF.
  22.  
  23. ** Instance of Splitter control - 2 columns
  24. CREATE OBJECT w_splitter
  25. EXPORTING parent = w_container
  26. rows = 1
  27. columns = 2.
  28.  
  29. ** Assign first column to continer
  30. CALL METHOD w_splitter->get_container
  31. EXPORTING
  32. row = 1
  33. column = 1
  34. RECEIVING
  35. container = w_child1.
  36.  
  37. ** Assign 2nd child to holding container
  38. CALL METHOD w_splitter->get_container
  39. EXPORTING
  40. row = 1
  41. column = 2
  42. RECEIVING
  43. container = w_child2.
  44.  
  45. ** Instance of Splitter control - 2 rows
  46. CREATE OBJECT w_splitter2
  47. EXPORTING parent = w_child1
  48. rows = 2
  49. columns = 1.
  50.  
  51. ** Assign first row of 2nd column to continer
  52. CALL METHOD w_splitter2->get_container
  53. EXPORTING
  54. row = 1
  55. column = 1
  56. RECEIVING
  57. container = w_child21.
  58.  
  59. ** Assign 2nd row 2nd column to continer
  60. CALL METHOD w_splitter2->get_container
  61. EXPORTING
  62. row = 2
  63. column = 1
  64. RECEIVING
  65. container = w_child22.
  66.  
  67. CALL METHOD W_SPLITTER->SET_COLUMN_WIDTH
  68. EXPORTING
  69. ID = 1
  70. WIDTH = 28.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement