Screen长文本的编辑

编辑长文本的实例：
1.首先定义字段等全局变量

1. * Create reference to the custom container
   
2.   DATA: gc_conttext1 TYPE REF TO cl_gui_custom_container,
   
3.         gc_textedit1 TYPE REF TO cl_gui_textedit.
   
4. 
   
5.   TYPES:BEGIN OF ty_text,
   
6.           line TYPE c LENGTH 40,
   
7.         END OF ty_text.
   
8. 
   
9.   DATA: gs_thead   LIKE thead,
   
10.              gt_ctlines TYPE TABLE OF ty_text WITH HEADER LINE,
    
11.              gc_tdname  TYPE thead-tdobject,
    
12.              gt_dtlines TYPE TABLE OF tline WITH HEADER LINE,
    
13.              gc_tdobject    TYPE thead-tdobject VALUE 'ZFI01',
    
14.              gc_tdid        TYPE thead-tdid VALUE  'ZF01',
    
15.              gv_text TYPE string,
    
16.              op01(20) TYPE c.     "屏幕元素
    
17.   DATA : ok_code TYPE sy-ucomm.
    
18.   SELECTION-SCREEN BEGIN OF SCREEN 3001   
    
19.       AS SUBSCREEN .
    
20.   PARAMETERS : p_czyy TYPE zfit005-zczyy.
    
21.   SELECTION-SCREEN END OF SCREEN 3001.

复制代码

2.调用屏幕

1. <span style="background-color: rgb(255, 255, 255);"> </span><span style="background-color: rgb(255, 255, 255);">CALL SCREEN 3000 STARTING AT 20 10</span>

复制代码

3.创建文本容器

1. FORM frm_create_textedit USING p_container TYPE REF TO cl_gui_custom_container
   
2.                            p_textedit  TYPE REF TO cl_gui_textedit.
   
3.   CONSTANTS p_cont_name(4) TYPE c VALUE 'CONT'.
   
4. 
   
5.   PERFORM frm_free_textedit USING p_container p_textedit.
   
6. 
   
7.   CREATE OBJECT p_container
   
8.     EXPORTING
   
9.       container_name = p_cont_name.
   
10. 
    
11.   CREATE OBJECT p_textedit
    
12.     EXPORTING
    
13.       parent                     = p_container
    
14.       wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
    
15.       wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
    
16. ENDFORM.            

复制代码