topic Re: PICTURE ON A MODULE POOL SCREEN in Application Development and Automation Discussions

topic Re: PICTURE ON A MODULE POOL SCREEN in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961447#M395198 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P>Look at the demp Programs in SAP</P><P></P><P>DEMO_PICTURE_CONTROL</P><P>RSDEMO_PICTURE_CONTROL</P><P>SAP_PICTURE_DEMO</P><P>SAP_PICTURE_DEMO_DRAG_DROP</P><P>SAP_PICTURE_DEMO_ICON</P><P></P><P>Regards</P><P> Sudheer</P></BODY></HTML> Fri, 09 Feb 2007 11:09:47 GMT Former Member 2007-02-09T11:09:47Z PICTURE ON A MODULE POOL SCREEN https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961445#M395196 <HTML><HEAD></HEAD><BODY><P>Hi All.</P><P>I have an issue in module pool program.</P><P>I designed a screen with number 100.</P><P>on this screen they want to put some picture...like some logo.</P><P></P><P>Is it possible to put the picture on this screen 0100.</P><P></P><P>Please can any body ,help me to solve this issue.</P><P></P><P>Thanks in advance,</P><P>Regards,</P><P>Eswar.</P></BODY></HTML> Fri, 09 Feb 2007 11:00:00 GMT https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961445#M395196 Former Member 2007-02-09T11:00:00Z Re: PICTURE ON A MODULE POOL SCREEN https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961446#M395197 <HTML><HEAD></HEAD><BODY><P>hi,</P><P></P><P>compare demo report SAP_PICTURE_DEMO</P><P></P><P>and se38 - reuse library</P><P></P><P></P><P>regards Andreas</P></BODY></HTML> Fri, 09 Feb 2007 11:07:45 GMT https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961446#M395197 andreas_mann3 2007-02-09T11:07:45Z Re: PICTURE ON A MODULE POOL SCREEN https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961447#M395198 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P>Look at the demp Programs in SAP</P><P></P><P>DEMO_PICTURE_CONTROL</P><P>RSDEMO_PICTURE_CONTROL</P><P>SAP_PICTURE_DEMO</P><P>SAP_PICTURE_DEMO_DRAG_DROP</P><P>SAP_PICTURE_DEMO_ICON</P><P></P><P>Regards</P><P> Sudheer</P></BODY></HTML> Fri, 09 Feb 2007 11:09:47 GMT https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961447#M395198 Former Member 2007-02-09T11:09:47Z Re: PICTURE ON A MODULE POOL SCREEN https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961448#M395199 <HTML><HEAD></HEAD><BODY><P>Hello,</P><P></P><P>You can use picture control to attach a picture to your screen.The sample code is below:</P><P></P><P>The custom container in the screen layout is named as 'CONTAINER'.</P><P></P><P>REPORT SAMPLE.</P><P>DATA: picture type ref to cl_gui_picture,</P><P>cont type ref to cl_gui_custom_container.</P><P></P><P>DATA: I_EVENTS TYPE CNTL_SIMPLE_EVENTS,</P><P>WA_EVENTS TYPE CNTL_SIMPLE_EVENT,</P><P>OK_CODE TYPE SY-UCOMM,</P><P>p_url type cndp_url.</P><P></P><P>Class click definition.</P><P>PUBLIC SECTION.</P><P>METHODS: click_handle for event picture_click of cl_gui_picture</P><P>importing MOUSE_POS_X MOUSE_POS_Y.</P><P>endclass.</P><P></P><P>DATA: click_variable type ref to click.</P><P></P><P>class click implementation.</P><P>method click_handle.</P><P></P><P>DATA: X_POS(5),Y_POS(5).</P><P></P><P>X_POS = MOUSE_POS_X.</P><P>Y_POS = MOUSE_POS_Y.</P><P></P><P>MESSAGE I000(OK) WITH 'Picture Click' X_POS Y_POS.</P><P></P><P>endmethod.</P><P>endclass.</P><P></P><P>START-OF-SELECTION.</P><P>call screen 100.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module STATUS_0100 OUTPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE STATUS_0100 OUTPUT.</P><P>SET PF-STATUS 'GUI'.</P><UL><LI level="1" type="ul"><P>SET TITLEBAR 'xxx'.</P></LI></UL><P></P><P>if cont is initial.</P><P></P><P>CREATE OBJECT CONT</P><P>EXPORTING</P><P>CONTAINER_NAME = 'CONTAINER'.</P><P></P><P></P><P></P><P>CREATE OBJECT PICTURE</P><P>EXPORTING</P><UL><LI level="1" type="ul"><P>LIFETIME =</P></LI><LI level="1" type="ul"><P>SHELLSTYLE =</P></LI></UL><P>PARENT = cont</P><UL><LI level="1" type="ul"><P>NAME =</P></LI><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P>ERROR = 1</P></LI><LI level="1" type="ul"><P>others = 2</P></LI></UL><P>.</P><P>IF SY-SUBRC <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P>WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>ENDIF.</P><P></P><P></P><P></P><P>wa_events-EVENTID = picture->EVENTID_PICTURE_CLICK.</P><P>wa_events-APPL_EVENT = 'X'.</P><P>append wa_events to i_events.</P><P></P><P>CALL METHOD PICTURE->SET_REGISTERED_EVENTS</P><P>EXPORTING</P><P>EVENTS = i_events.</P><P></P><P></P><P>create object click_variable.</P><P></P><P>set handler click_variable->click_handle for picture.</P><P></P><P></P><P>CALL METHOD PICTURE->SET_3D_BORDER</P><P>EXPORTING</P><P>BORDER = 1.</P><P></P><P></P><P></P><P>CALL FUNCTION 'DP_PUBLISH_WWW_URL'</P><P>EXPORTING</P><P>OBJID = 'HTMLCNTL_TESTHTM2_SAP_AG'</P><P>LIFETIME = cndp_lifetime_transaction</P><P>IMPORTING</P><P>URL = p_url</P><P>.</P><P>IF SY-SUBRC = 0.</P><P></P><P>CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL_ASYNC</P><P>EXPORTING</P><P>URL = p_url.</P><P></P><P>ENDIF.</P><P></P><P>endif.</P><P>ENDMODULE. " STATUS_0100 OUTPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Module USER_COMMAND_0100 INPUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>MODULE USER_COMMAND_0100 INPUT.</P><P></P><P>CASE OK_CODE.</P><P></P><P>WHEN 'BACK'.</P><P>LEAVE PROGRAM.</P><P>WHEN 'NORMAL'.</P><P>CALL METHOD PICTURE->SET_DISPLAY_MODE</P><P>EXPORTING</P><P>DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_NORMAL.</P><P></P><P>WHEN 'FIT'.</P><P>CALL METHOD PICTURE->SET_DISPLAY_MODE</P><P>EXPORTING</P><P>DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT.</P><P></P><P>WHEN 'NORMAL_C'.</P><P>CALL METHOD PICTURE->SET_DISPLAY_MODE</P><P>EXPORTING</P><P>DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_NORMAL_CENTER.</P><P></P><P>WHEN 'FIT_C'.</P><P>CALL METHOD PICTURE->SET_DISPLAY_MODE</P><P>EXPORTING</P><P>DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT_CENTER.</P><P></P><P>WHEN 'STRETCH'.</P><P>CALL METHOD PICTURE->SET_DISPLAY_MODE</P><P>EXPORTING</P><P>DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_STRETCH.</P><P></P><P>WHEN 'CLEAR'.</P><P>CALL METHOD PICTURE->CLEAR_PICTURE.</P><P></P><P>WHEN SPACE.</P><P>CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL</P><P>EXPORTING</P><P>URL = P_URL.</P><UL><LI level="1" type="ul"><P>IMPORTING</P></LI><LI level="1" type="ul"><P>RESULT = RETURN.</P></LI></UL><P></P><P>CALL METHOD CL_GUI_CFW=>FLUSH.</P><P></P><P>endcase.</P><P></P><P>endmodule.</P><P></P><P></P><P></P><P>Also check demo program:RSDEMO_PICTURE_CONTROL</P><P></P><P><b>TO GET DIFFERENT PICTURES</b>:</P><P>(The following is <b>Judith Jessie Selvi's</b> reply for a similar query.Unfortunately I'm not able to track the URL of that thread).</P><P></P><P>Refer this link</P><P>1... create a logo using paint shop and save it as tifffile then using RSTXLDMC (is a program name) used to upload logo </P><P>2.....create a logo using paint shop and save it as bmpfile then using SE78 you can do this. </P><P></P><P><A href="http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCCIIMAGE/BCCIIMAGE.pdf" target="test_blank">http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCCIIMAGE/BCCIIMAGE.pdf</A></P><P></P><P><A href="http://www.sap-img.com/human/linking-employee-photos-using-sap-archive-link.htm" target="test_blank">http://www.sap-img.com/human/linking-employee-photos-using-sap-archive-link.htm</A></P><P></P><P>Transaction OAOR,</P><P></P><P></P><P>- OAOR (Business Document Navigator)</P><P></P><P>Give Class Name - PICTURES Class Type - OT..... then Execute</P><P>It will show you the list, then select ENJOYSAP_LOGO.</P><P>On that list, you will find one control with a "create" tab.</P><P>Click std. doc types.</P><P>Select SCREEN and double-click.</P><P>It will push FILE selection screen. </P><P>Select your company logo (.gif) and press OK.</P><P>It will ask for a description- for instance: "company logo".</P><P>It will let you know your doc has been stored successfully.</P><P>You can find your logo under ENJOYSAP_LOGO->Screen->company logo.</P><P>Just run your ALV program, you should find your company logo in place of the EnjoySAP logo.</P><P></P><P></P><P>Regards,</P><P>Beejal</P><P>**Reward if this helps</P></BODY></HTML> Fri, 09 Feb 2007 11:20:42 GMT https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961448#M395199 Former Member 2007-02-09T11:20:42Z Re: PICTURE ON A MODULE POOL SCREEN https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961449#M395200 <HTML><HEAD></HEAD><BODY><P>HI,</P><P></P><P>Check the following link:</P><P><A href="http://www.sapdevelopment.co.uk/graphics/add_image.htm" target="test_blank">http://www.sapdevelopment.co.uk/graphics/add_image.htm</A></P><P></P><P>It contains the sample code to solve your problem.</P><P></P><P>Hope this helps.</P><P>Reward if helpful.</P><P></P><P>Regards,</P><P>Sipra</P></BODY></HTML> Fri, 09 Feb 2007 11:21:05 GMT https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961449#M395200 Former Member 2007-02-09T11:21:05Z Re: PICTURE ON A MODULE POOL SCREEN https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961450#M395201 <HTML><HEAD></HEAD><BODY><P>Hi Venkat,</P><P> Check out the following sample program which will take the picture from presentation server and the same will be displayed in a picture control on the screen. </P><P></P><P>In this report , I have a selection-screen which will take the path of the file as input. After F8, the same pic will be displayed in a screen. On the screen, u need to create a custom control with name 'PICTURE_CONTROL_1' [in this example].</P><P></P><P>PROGRAM ypicture.</P><P>TYPE-POOLS : cndp.</P><P>selection-screen begin of block b1.</P><P>parameters : path type rlgrap-filename.</P><P>selection-screen end of block b1.</P><P>SET SCREEN 200.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P>DATA</P></LI></UL><P>************************************************************************</P><P>DATA function LIKE sy-ucomm. " OK-Code field in screen 200</P><P>DATA url TYPE cndp_url. " URL-field in screen 200</P><P>DATA url2 TYPE cndp_url. " URL-field in screen 200</P><P>DATA picture_control_1 TYPE REF TO cl_gui_picture.</P><P>DATA container_1 TYPE REF TO cl_gui_custom_container.</P><P>DATA event_tab TYPE cntl_simple_events.</P><P>DATA event_tab_line TYPE cntl_simple_event.</P><P>DATA return TYPE i.</P><P></P><P>AT SELECTION-SCREEN ON VALUE-REQUEST FOR path.</P><P> PERFORM f1000_file_select.</P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P>PBO</P></LI><LI level="1" type="ul"><P>before_output</P></LI></UL><P>************************************************************************</P><P>MODULE before_output OUTPUT.</P><P> SET PF-STATUS 'MAIN0001'.</P><P> IF picture_control_1 IS INITIAL.</P><P></P><UL><LI level="1" type="ul"><P>Create controls</P></LI></UL><P> CREATE OBJECT container_1</P><P> EXPORTING container_name = 'PICTURE_CONTROL_1'.</P><P></P><P> CREATE OBJECT picture_control_1 EXPORTING parent = container_1.</P><UL><LI level="1" type="ul"><P>new async implementation since 4.6C</P></LI></UL><P>CALL FUNCTION 'DP_PUBLISH_WWW_URL'</P><P> EXPORTING</P><P> OBJID = 'ZSATYA.GIF'</P><P> LIFETIME = cndp_lifetime_transaction</P><P> IMPORTING</P><P> URL = url</P><P> EXCEPTIONS</P><P> OTHERS = 1.</P><P></P><P> concatenate 'file://' path into url.</P><P> CALL METHOD PICTURE_CONTROL_1->LOAD_PICTURE_FROM_URL</P><P> exporting url = url.</P><P> ENDIF.</P><P>ENDMODULE. "before_output OUTPUT</P><P></P><P></P><P>************************************************************************</P><UL><LI level="1" type="ul"><P>PAI</P></LI><LI level="1" type="ul"><P>after_input</P></LI></UL><P>************************************************************************</P><P>MODULE after_input INPUT.</P><P> CASE function.</P><UL><LI level="1" type="ul"><P>At the end of the program destroy the control</P></LI></UL><P> WHEN 'BACK'.</P><P> CALL METHOD container_1->free.</P><P> LEAVE TO SCREEN 0.</P><P></P><P></P><UL><LI level="1" type="ul"><P>Clear the picture</P></LI></UL><P> WHEN 'CLEAR'.</P><P> CALL METHOD picture_control_1->clear_picture.</P><P></P><UL><LI level="1" type="ul"><P>Load a new picture</P></LI></UL><P> WHEN space.</P><P> CALL METHOD picture_control_1->load_picture_from_url</P><P> EXPORTING</P><P> url = url</P><P> IMPORTING</P><P> RESULT = return.</P><P> CALL METHOD cl_gui_cfw=>flush.</P><P> IF return = 0.</P><P> url = text-000.</P><P> ENDIF.</P><P></P><P> ENDCASE.</P><P></P><P> CLEAR function.</P><P>ENDMODULE. "after_input INPUT</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form f1000_file_select</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM f1000_file_select .</P><P> DATA: li_file_table TYPE filetable,</P><P> wa_file_table TYPE file_table,</P><P> lws_rc TYPE i,</P><P> lws_user_action TYPE i.</P><P> DATA : lc_title TYPE string.</P><P> CONSTANTS :lc_ext TYPE string VALUE '<STRONG>.</STRONG>',</P><P> lc_directory TYPE string VALUE 'C:\'.</P><P> CLEAR: path.</P><P> REFRESH: li_file_table.</P><P> lc_title = text-049.</P><P>*-- Class to select the file.</P><P> CALL METHOD cl_gui_frontend_services=>file_open_dialog</P><P> EXPORTING</P><P> window_title = lc_title</P><P> default_extension = lc_ext</P><P> initial_directory = lc_directory</P><P> CHANGING</P><P> file_table = li_file_table</P><P> rc = lws_rc</P><P> user_action = lws_user_action</P><P> EXCEPTIONS</P><P> cntl_error = 1</P><P> error_no_gui = 2</P><P> not_supported_by_gui = 3</P><P> OTHERS = 4.</P><P> IF sy-subrc NE 0.</P><P> MESSAGE e001(zdemet) WITH text-002.</P><P> ENDIF.</P><P> READ TABLE li_file_table INDEX 1 INTO wa_file_table.</P><P> IF sy-subrc = 0.</P><P> path = wa_file_table-filename.</P><P> ENDIF.</P><P>endform. " f1000_file_select</P><P></P><P>-SatyaPriya</P></BODY></HTML> Fri, 09 Feb 2007 11:21:47 GMT https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961450#M395201 Former Member 2007-02-09T11:21:47Z Re: PICTURE ON A MODULE POOL SCREEN https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961451#M395202 <HTML><HEAD></HEAD><BODY><P>Hello Venkat,</P><P>Also check the demo program:</P><P>RSDEMO_PICTURE_CONTROL</P><P></P><P>Regards,</P><P>Beejal</P><P>**Reward if this helps</P></BODY></HTML> Fri, 09 Feb 2007 11:22:26 GMT https://community.sap.com/t5/application-development-and-automation-discussions/picture-on-a-module-pool-screen/m-p/1961451#M395202 Former Member 2007-02-09T11:22:26Z