REPORT Z_CHANGWENBEN_001.
DATA: CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
EDITOR01 TYPE REF TO CL_GUI_TEXTEDIT.
START-OF-SELECTION.
CALL SCREEN 0100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'S0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
LEAVE TO SCREEN 0.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module INIT OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INIT OUTPUT.
PERFORM CREATE_CON.
PERFORM CREATE_EDI.
ENDMODULE. " INIT OUTPUT
*&---------------------------------------------------------------------*
*& Form CREATE_CON
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CREATE_CON .
IF CONTAINER IS INITIAL .
CREATE OBJECT CONTAINER
EXPORTING
CONTAINER_NAME = 'CONTAINER01'.
ENDIF.
ENDFORM. " CREATE_CON
*&---------------------------------------------------------------------*
*& Form CREATE_EDI
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CREATE_EDI .
IF EDITOR01 IS INITIAL.
CREATE OBJECT EDITOR01
EXPORTING
PARENT = container
WORDWRAP_MODE = cl_gui_textedit=>WORDWRAP_AT_FIXED_POSITION
WORDWRAP_POSITION = 20
WORDWRAP_TO_LINEBREAK_MODE = cl_gui_textedit=>FALSE
MAX_NUMBER_CHARS = 100000.
ENDIF.
ENDFORM. " CREATE_EDI
dialog之多行文本的使用
最新推荐文章于 2021-05-28 23:45:25 发布