PROGRAM.
*----------------------------------------------------------------------*
* Easy Splitter Container
*----------------------------------------------------------------------*
* Copyright © (2011) by prog.art consulting GmbH & Co. KG
* Author: Gerd Untermann · Mobile: +49-172-3124335 · Email: info@se80.com
*----------------------------------------------------------------------*
INCLUDE zpa_se80_howto_ic_general.
*----------------------------------------------------------------------*
CLASS lcl_main DEFINITION INHERITING FROM lcl_report.
PUBLIC SECTION.
METHODS at_user_command REDEFINITION.
ENDCLASS. "lcl_main DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_main IMPLEMENTATION.
METHOD at_user_command.
DATA: l_dialogbox TYPE REF TO cl_gui_dialogbox_container,
l_splitter TYPE REF TO cl_gui_easy_splitter_container,
l_picture TYPE REF TO cl_gui_picture,
l_url TYPE cndp_url.
* Create Container
l_dialogbox = create_container( ).
* Create easy splitter container
CREATE OBJECT l_splitter EXPORTING parent = l_dialogbox
orientation = l_splitter->orientation_vertical.
* Top splitter
CREATE OBJECT l_picture EXPORTING parent = l_splitter->top_left_container.
*
TRY.
l_url = dp_publish_www_url( i_objid = 'RSAN_PR_LOGO' ).
CATCH lcx_error.
BREAK-POINT.
ENDTRY.
* Load picture
l_picture->load_picture_from_url_async( url = l_url ).
* Stretch picture
l_picture->set_display_mode( l_picture->display_mode_stretch ).
* Bottom splitter
CREATE OBJECT l_picture EXPORTING parent = l_splitter->bottom_right_container.
*
TRY.
l_url = dp_publish_www_url( i_objid = 'SCEM_START_LOGO' ).
CATCH lcx_error.
BREAK-POINT.
ENDTRY.
* Load picture
l_picture->load_picture_from_url_async( url = l_url ).
* Stretch picture
l_picture->set_display_mode( l_picture->display_mode_stretch ).
ENDMETHOD. "at_user_command
ENDCLASS. "lcl_main IMPLEMENTATION