Insert Picture in Screen Painter

Ø To Insert LOGO in Screen Painter
Design a screen with the custom control, by name PICTURE_CONTAINER.

IN SE51.
Flow Logic:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.

PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.

IN SE38:

REPORT ZTEST .
* Type declarations.....................
TYPES pict_line(256) TYPE c.
* data declarations......................
DATA : init,
container TYPE REF TO cl_gui_custom_container,
editor TYPE REF TO cl_gui_textedit,
picture TYPE REF TO cl_gui_picture,
pict_tab TYPE TABLE OF pict_line,
url(255) TYPE c.

CALL SCREEN 100.
* Dialog modules......................................
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN100'.
IF init is initial.
init = 'X'.
CREATE OBJECT: container EXPORTING container_name = 'PICTURE_CONTAINER',
picture EXPORTING parent = container.
ENDIF.

IMPORT pict_tab = pict_tab FROM DATABASE abtree(pi) ID 'ENJOY'.

CALL FUNCTION 'DP_CREATE_URL'
EXPORTING
type = 'IMAGE'
subtype = 'GIF'
TABLES
data = pict_tab
CHANGING
url = url.

CALL METHOD picture->load_picture_from_url
EXPORTING url = url.

CALL METHOD picture->set_display_mode
EXPORTING display_mode = picture->display_mode_fit_center.

ENDMODULE.


MODULE cancel INPUT.
LEAVE TO SCREEN 0.
ENDMODULE.