SAP多行文本编辑实例

REPORT DEMO_CUSTOM_CONTROL .

* Declarations *****************************************************
*注意程序是参照标准DEMO：DEMO_CUSTOM_CONTORL创建的，屏幕跟标准的基本一直，出去新增加了一个更改按钮外！
CLASS EVENT_HANDLER DEFINITION.
  PUBLIC SECTION.
    METHODS: HANDLE_F1 FOR EVENT F1 OF CL_GUI_TEXTEDIT
             IMPORTING SENDER,
             HANDLE_F4 FOR EVENT F4 OF CL_GUI_TEXTEDIT
             IMPORTING SENDER.
ENDCLASS.

DATA: OK_CODE LIKE SY-UCOMM,
      SAVE_OK LIKE SY-UCOMM.

DATA: INIT,
      CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      EDITOR    TYPE REF TO CL_GUI_TEXTEDIT.

DATA: EVENT_TAB TYPE CNTL_SIMPLE_EVENTS,
      EVENT     TYPE CNTL_SIMPLE_EVENT.

DATA: LINE(256) TYPE C,
      TEXT_TAB LIKE STANDARD TABLE OF LINE,
      FIELD LIKE LINE.

DATA HANDLE TYPE REF TO EVENT_HANDLER.

* Reporting Events ***************************************************

START-OF-SELECTION.

  LINE = 'First line in TextEditControl'.
  APPEND LINE TO TEXT_TAB.
  LINE = '--------------------------------------------------'.
  APPEND LINE TO TEXT_TAB.
  LINE = '...'.
  APPEND LINE TO TEXT_TAB.

  CALL SCREEN 100.

* Dialog Modules *********************************************