Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Selection screen

Former Member
0 Likes
328

Hi to all,

i hav copied a standard program to z...

client req is to insert company logo in selection screen..

Can any1 guide me with code?

thanks in advance.

2 REPLIES 2
Read only

kiran_k8
Active Contributor
0 Likes
268

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.

Read only

Former Member
0 Likes
268

tx for immediate reply

executed ur code , border is visible in selection screen but nt able to view any img tat i created n stored as gif image in c drive...

wat steps shud b done to get image...