abap实现屏幕上显示logo图片

1、se38新建程序

1. * Type declarations.....................
   
2. TYPES pict_line(256) TYPE c.
   
3. * data declarations......................
   
4. DATA :init,
   
5.       container TYPE REF TO cl_gui_custom_container,
   
6.       editor    TYPE REF TO cl_gui_textedit,
   
7.       picture   TYPE REF TO cl_gui_picture,
   
8.       pict_tab TYPE TABLE OF pict_line,
   
9.       url(255) TYPE c.
   
10. 
    
11. START-OF-SELECTION .
    
12.   CALL SCREEN 100.
    
13. 
    
14. * Dialog modules......................................
    
15. MODULE status_0100 OUTPUT.
    
16.   SET PF-STATUS 'SCREEN100'.
    
17.   IF init IS INITIAL.
    
18.     init = 'X'.
    
19.     CREATE OBJECT:
    
20.            container  EXPORTING container_name = 'PICTURE_CONTAINER',
    
21.            picture    EXPORTING parent = container.
    
22.   ENDIF.
    
23. 
    
24.   IMPORT pict_tab = pict_tab FROM DATABASE abtree(pi) ID 'ENJOY'.
    
25. 
    
26.   CALL FUNCTION 'DP_CREATE_URL'
    
27.     EXPORTING
    
28.       type    = 'IMAGE'
    
29.       subtype = 'GIF'
    
30.     TABLES
    
31.       data    = pict_tab
    
32.     CHANGING
    
33.       url     = url.
    
34. 
    
35.   CALL METHOD picture->load_picture_from_url
    
36.     EXPORTING
    
37.       url = url.
    
38. 
    
39.   CALL METHOD picture->set_display_mode
    
40.     EXPORTING
    
41.       display_mode = picture->display_mode_fit_center.
    
42. ENDMODULE.                    "status_0100 OUTPUT

复制代码

2、创建标准屏幕100
layout 绘制customer container，并命名PICTURE_CONTAINER
逻辑流：

1. PROCESS BEFORE OUTPUT.
   
2.   MODULE STATUS_0100.
   
3. *
   
4. PROCESS AFTER INPUT.
   
5. *  MODULE USER_COMMAND_0100.

复制代码

3、执行程序效果：

PS:上传logo图片，T-code:se78

1. CALL METHOD pic->set_display_mode
   
2.     EXPORTING
   
3.       display_mode = 0 .

复制代码

设置显示模式, mode 可取值:

• 0:原始大小显示   
• 1:图片自动调整大小显示   
• 2:纵向拉伸,局左显示   
• 3: 原始大小,居中显示  
• 4:纵向拉伸,居中显示
• load的时候默认的是原始大小