实战SAP：【总结】文本编辑器

*&---------------------------------------------------------------------*
*& Report  ZTESTA_01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztesta_01.

DATA: ok_code TYPE sy-ucomm,
save_ok LIKE ok_code.
*定制控制 编辑对象定义
DATA container TYPE REF TO cl_gui_custom_container.
DATA editor TYPE REF TO cl_gui_textedit.

DATA: init,
m1(256) TYPE c OCCURS 0,
line(256) TYPE c.

line = '请输入：'.
APPEND line TO m1.

CALL SCREEN 100.

REFRESH m1.
CALL METHOD editor->get_text_as_r3table
IMPORTING
table = m1.

LOOP AT m1 INTO line.
WRITE / line.
ENDLOOP.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
IF init IS INITIAL.
init = 'X'.
CREATE OBJECT: container EXPORTING container_name = 'PP'.

CREATE OBJECT editor
EXPORTING
parent = container
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = 256
wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
ENDIF.

CALL METHOD editor->set_text_as_r3table
EXPORTING
table = m1.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT