Sunil,
Try this program
REPORT y_pic_show . DATA: docking TYPE REF TO cl_gui_docking_container, picture_control_1 TYPE REF TO cl_gui_picture, url(256) TYPE c . DATA : sum(4) , num1(4) , num2(4). PARAMETERS: p_dummy(4) DEFAULT '4' . PARAMETERS: p_dummy1(4) DEFAULT '5' . AT SELECTION-SCREEN OUTPUT. PERFORM show_pic. START-OF-SELECTION. num1 = p_dummy. num2 = p_dummy1. sum = num1 + num2. WRITE : / sum. *&---------------------------------------------------------------------* *& Form show_pic *&---------------------------------------------------------------------* FORM show_pic. DATA: repid LIKE sy-repid. repid = sy-repid. CREATE OBJECT picture_control_1 EXPORTING parent = docking. CHECK sy-subrc = 0. CALL METHOD picture_control_1->set_3d_border EXPORTING border = 5. CALL METHOD picture_control_1->set_display_mode EXPORTING display_mode = cl_gui_picture=>display_mode_stretch. CALL METHOD picture_control_1->set_position EXPORTING height = 150 left = 700 top = 10 width = 138. CALL METHOD picture_control_1->load_picture_from_url EXPORTING url = 'PIX PATHNAME'. IF sy-subrc NE 0. * Fehlerbehandlung ENDIF. ENDFORM. "show_pic
Regards,
Satish
Add a comment