創建文本輸入框(dialog)
DATA:editor_container TYPE REF TO cl_gui_custom_container,
editor type REF TO cl_gui_textedit.
call SCREEN 1001.
*&---------------------------------------------------------------------*
*& Module STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_1001 OUTPUT.
SET PF-STATUS 'T001'.
PERFORM create_container_object USING editor_container 'EDITOR'.
PERFORM create_editor_object USING editor editor_container.
ENDMODULE. " STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1001 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1001 INPUT.
CASE sy-ucomm.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_1001 INPUT
*&---------------------------------------------------------------------*
*& Form CREATE_CONTAINER_OBJECT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_EDITOR_CONTAINER text
* -->P_0028 text
*----------------------------------------------------------------------*
FORM CREATE_CONTAINER_OBJECT USING P_CONTAINER TYPE REF TO cl_gui_custom_container
p_container_name .
CHECK p_container IS INITIAL.
CREATE OBJECT p_container
EXPORTING
container_name = p_container_name
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5.
ENDFORM. " CREATE_CONTAINER_OBJECT
*&---------------------------------------------------------------------*
*& Form CREATE_EDITOR_OBJECT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_EDITOR text
* -->P_EDITOR_CONTAINER text
*----------------------------------------------------------------------*
FORM CREATE_EDITOR_OBJECT USING P_EDITOR TYPE REF TO cl_gui_textedit
P_CONTAINER TYPE REF TO cl_gui_custom_container.
CHECK p_editor IS INITIAL.
CREATE OBJECT p_editor
EXPORTING
parent = p_container
* wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
* wordwrap_position = c_line_length
* wordwrap_to_linebreak_mode = cl_gui_textedit=>false
max_number_chars = 100000
EXCEPTIONS
others = 1.
CALL METHOD P_EDITOR->SET_TOOLBAR_MODE." 添加爲了不顯示狀態欄.
ENDFORM. " CREATE_EDITOR_OBJECT
editor type REF TO cl_gui_textedit.
call SCREEN 1001.
*&---------------------------------------------------------------------*
*& Module STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_1001 OUTPUT.
SET PF-STATUS 'T001'.
PERFORM create_container_object USING editor_container 'EDITOR'.
PERFORM create_editor_object USING editor editor_container.
ENDMODULE. " STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1001 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1001 INPUT.
CASE sy-ucomm.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
WHEN OTHERS.
ENDCASE.
ENDMODULE. " USER_COMMAND_1001 INPUT
*&---------------------------------------------------------------------*
*& Form CREATE_CONTAINER_OBJECT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_EDITOR_CONTAINER text
* -->P_0028 text
*----------------------------------------------------------------------*
FORM CREATE_CONTAINER_OBJECT USING P_CONTAINER TYPE REF TO cl_gui_custom_container
p_container_name .
CHECK p_container IS INITIAL.
CREATE OBJECT p_container
EXPORTING
container_name = p_container_name
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5.
ENDFORM. " CREATE_CONTAINER_OBJECT
*&---------------------------------------------------------------------*
*& Form CREATE_EDITOR_OBJECT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_EDITOR text
* -->P_EDITOR_CONTAINER text
*----------------------------------------------------------------------*
FORM CREATE_EDITOR_OBJECT USING P_EDITOR TYPE REF TO cl_gui_textedit
P_CONTAINER TYPE REF TO cl_gui_custom_container.
CHECK p_editor IS INITIAL.
CREATE OBJECT p_editor
EXPORTING
parent = p_container
* wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
* wordwrap_position = c_line_length
* wordwrap_to_linebreak_mode = cl_gui_textedit=>false
max_number_chars = 100000
EXCEPTIONS
others = 1.
CALL METHOD P_EDITOR->SET_TOOLBAR_MODE." 添加爲了不顯示狀態欄.
ENDFORM. " CREATE_EDITOR_OBJECT
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.