二维码

Screen长文本的编辑

qiaoranhuishou发表于 2017-02-17 16:24qiaoranhuishou 最后回复于 2017-02-17 16:24 [复制链接] 502 0

编辑长文本的实例:
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.   TYPES:BEGIN OF ty_text,
  5.           line TYPE c LENGTH 40,
  6.         END OF ty_text.

  7.   DATA: gs_thead   LIKE thead,
  8.              gt_ctlines TYPE TABLE OF ty_text WITH HEADER LINE,
  9.              gc_tdname  TYPE thead-tdobject,
  10.              gt_dtlines TYPE TABLE OF tline WITH HEADER LINE,
  11.              gc_tdobject    TYPE thead-tdobject VALUE 'ZFI01',
  12.              gc_tdid        TYPE thead-tdid VALUE  'ZF01',
  13.              gv_text TYPE string,
  14.              op01(20) TYPE c.     "屏幕元素
  15.   DATA : ok_code TYPE sy-ucomm.
  16.   SELECTION-SCREEN BEGIN OF SCREEN 3001   
  17.       AS SUBSCREEN .
  18.   PARAMETERS : p_czyy TYPE zfit005-zczyy.
  19.   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.   PERFORM frm_free_textedit USING p_container p_textedit.

  5.   CREATE OBJECT p_container
  6.     EXPORTING
  7.       container_name = p_cont_name.

  8.   CREATE OBJECT p_textedit
  9.     EXPORTING
  10.       parent                     = p_container
  11.       wordwrap_mode              = cl_gui_textedit=>wordwrap_at_fixed_position
  12.       wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
  13. ENDFORM.            
复制代码



效果如下

效果如下
回复

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

快速回复 返回顶部 返回列表