Auflösung / max. Breite / Docking Container / Custom Control

Auflösung / max. Breite / Docking Container / Custom Control

Nabend zusammen

Nach einem Tag lang suchen, kommt nun hier die Frage.

Anfangs hatte ich das Problem, dass sich meine 2 Custom Container nicht verschieben ließen (Links ein Tree, nach Doppelklick erscheint rechts daneben ein ALV). Dieses Problem wurde durch 2 Docking Container in einem Custom Control gelöst.

Neues Problem: Ich möchte gerne die max. mögliche Breite (abhängig vom User/PC/Auflösung) ermitteln, um so die Breite meines Tree's und meines ALV's anpassen zu können.

Ich finde hierzu leider keinen passenden Beitrag. Ein get_width auf den Custom Control nach Initializierung bringt nichts.

Anbei mein Coding
________________________________________________
FORM objects_create
CHANGING cr_tree TYPE REF TO cl_gui_alv_tree
cr_alv TYPE REF TO cl_gui_alv_grid.

CONSTANTS: lc_true TYPE xfeld VALUE 'X',
lc_container_tree(20) TYPE c VALUE 'TREECONTAINER'.

DATA: lr_docking TYPE REF TO cl_gui_docking_container,
lr_docking2 TYPE REF TO cl_gui_docking_container,
lr_container TYPE REF TO cl_gui_container.

CREATE OBJECT lr_container
EXPORTING
clsid = space
container_name = lc_container_tree
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
lifetime_dynpro_illegal_parent = 6
OTHERS = 7.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

*ALV Tree
IF cr_tree IS INITIAL.

CREATE OBJECT lr_docking
EXPORTING
parent = lr_container
extension = 270
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CREATE OBJECT cr_tree
EXPORTING
parent = lr_docking
node_selection_mode = cl_gui_simple_tree=>node_sel_mode_single
no_toolbar = lc_true
no_html_header = lc_true
EXCEPTIONS
lifetime_error = 1
cntl_system_error = 2
create_error = 3
failed = 4
illegal_node_selection_mode = 5
OTHERS = 6.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDIF.

*ALV Grid
IF cr_alv IS INITIAL.

CREATE OBJECT lr_docking2
EXPORTING
parent = lr_container
extension = 1530
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
OTHERS = 6.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CREATE OBJECT cr_alv
EXPORTING
i_parent = lr_docking2
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
OTHERS = 5.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDIF.
ENDFORM. " tree_create
________________________________________________
Vielen lieben Dank im Voraus!
Netten Gruß,
Salzi