Hi,
Try this.It may give you some lead.
REPORT Zf13 .
DATA:docking TYPE REF TO cl_gui_docking_container,
picture_control_1 TYPE REF TO cl_gui_picture,
url(256) TYPE c .
DATA : begin of imakt occurs 0,
matnr like makt-matnr,
spras like makt-spras,
maktx like makt-maktx,
end of imakt.
DATA: itrepid LIKE sy-repid.
itrepid = sy-repid.
parameters:p_matnr like makt-matnr.
select matnr spras maktx from makt into table imakt where matnr = p_matnr.
loop at imakt.
write:/ imakt-matnr,
imakt-spras,
imakt-maktx.
endloop.
AT SELECTION-SCREEN OUTPUT.
PERFORM show_pic.
&----
*& Form show_pic
&----
FORM show_pic.
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 = 55
left = 750
top = 08
width = 350.
CALL METHOD picture_control_1->load_picture_from_url
EXPORTING
url = 'C:\zpic.gif'.
*here you give the path where your pic is stored on the desktop
IF sy-subrc NE 0.
ENDIF.
ENDFORM.
K.Kiran.
Bluesky
