topic Re: load picture in Application Development and Automation Discussions

load picture

Former Member — Thu, 08 Feb 2007 07:31:26 GMT

hi all,

i loaded a picture to a screen,

but because this is my first time i follow the examples and succeed.

my problem is that the picture that had in the example is not the picture that i want to have on the screen.

is anyone can tell me how can i found all pictures that in sap and what data do i need to connect the picture to my screen.

my example use :

QUERY_TABLE-NAME = '_OBJECT_ID'.

QUERY_TABLE-VALUE = 'ENJOYSAP_LOGO'.

APPEND QUERY_TABLE.

CALL FUNCTION 'WWW_GET_MIME_OBJECT'

thanks in advanced'

dana.

Re: load picture

Former Member — Thu, 08 Feb 2007 07:36:27 GMT

Hi,

Look at the below thread, this will have an example program also

Regards

Sudheer

Re: load picture

Former Member — Thu, 08 Feb 2007 08:10:48 GMT

Hi,

You can use picture control to attach a picture to your screen.The sample code is below:

The custom container in the screen layout is named as 'CONTAINER'.

REPORT SAMPLE.

DATA: picture type ref to cl_gui_picture,

cont type ref to cl_gui_custom_container.

DATA: I_EVENTS TYPE CNTL_SIMPLE_EVENTS,

WA_EVENTS TYPE CNTL_SIMPLE_EVENT,

OK_CODE TYPE SY-UCOMM,

p_url type cndp_url.

Class click definition.

PUBLIC SECTION.

METHODS: click_handle for event picture_click of cl_gui_picture

importing MOUSE_POS_X MOUSE_POS_Y.

endclass.

DATA: click_variable type ref to click.

class click implementation.

method click_handle.

DATA: X_POS(5),Y_POS(5).

X_POS = MOUSE_POS_X.

Y_POS = MOUSE_POS_Y.

MESSAGE I000(OK) WITH 'Picture Click' X_POS Y_POS.

endmethod.

endclass.

START-OF-SELECTION.

call screen 100.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'GUI'.

SET TITLEBAR 'xxx'.

if cont is initial.

CREATE OBJECT CONT

EXPORTING

CONTAINER_NAME = 'CONTAINER'.

CREATE OBJECT PICTURE

EXPORTING

LIFETIME =
SHELLSTYLE =

PARENT = cont

NAME =
EXCEPTIONS
ERROR = 1
others = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

wa_events-EVENTID = picture->EVENTID_PICTURE_CLICK.

wa_events-APPL_EVENT = 'X'.

append wa_events to i_events.

CALL METHOD PICTURE->SET_REGISTERED_EVENTS

EXPORTING

EVENTS = i_events.

create object click_variable.

set handler click_variable->click_handle for picture.

CALL METHOD PICTURE->SET_3D_BORDER

EXPORTING

BORDER = 1.

CALL FUNCTION 'DP_PUBLISH_WWW_URL'

EXPORTING

OBJID = 'HTMLCNTL_TESTHTM2_SAP_AG'

LIFETIME = cndp_lifetime_transaction

IMPORTING

URL = p_url

IF SY-SUBRC = 0.

CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL_ASYNC

EXPORTING

URL = p_url.

ENDIF.

endif.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

CASE OK_CODE.

WHEN 'BACK'.

LEAVE PROGRAM.

WHEN 'NORMAL'.