Stimmt. Wald, Bäume... eh schon wissenewx hat geschrieben:...oder es fehlt ein cl_gui_cfw=>flush( ) hinter dem Get_...
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report ZBL_DOCK
*&---------------------------------------------------------------------*
REPORT zbl_dock.
DATA:
go_dock TYPE REF TO cl_gui_docking_container,
gv_dock_pos TYPE i VALUE 600. " Abdeckung des Docking-Containers
START-OF-SELECTION.
CALL SCREEN 2000.
*&---------------------------------------------------------------------*
*& Module PBO_2000 OUTPUT
*&---------------------------------------------------------------------*
MODULE pbo_2000 OUTPUT.
IF go_dock IS NOT BOUND.
CREATE OBJECT go_dock
EXPORTING
repid = sy-repid
extension = 600. " Dynproabdeckung in 1/10-Prozent
* DockingContainer unten andocken
CALL METHOD go_dock->dock_at
EXPORTING
side = cl_gui_docking_container=>dock_at_bottom.
ENDIF.
ENDMODULE. " PBO_2000 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_2000 INPUT
*----------------------------------------------------------------------*
MODULE user_command_2000 INPUT.
cl_gui_cfw=>flush( ).
CALL METHOD go_dock->get_extension
IMPORTING
extension = gv_dock_pos.
cl_gui_cfw=>flush( ).
BREAK-POINT.
SET SCREEN 0.
LEAVE SCREEN.
ENDMODULE. " USER_COMMAND_2000 INPUT
Code: Alles auswählen.
CREATE OBJECT gr_docking
EXPORTING
repid = gv_repid
dynnr = '2000'
* extension = screen_size_left. "Größe: Pixel
ratio = 45.