ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 文本编辑器

文本编辑器

原创 Linux操作系统 作者:hzq2010 时间:2011-06-25 21:30:18 0 删除 编辑

在SCREEN 100 中创建一个定制控制,命名为PP
代码如下:

view plaincopy to clipboardprint?
*&---------------------------------------------------------------------*  
*& 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 

 

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/leechirslcc/archive/2009/08/07/4422837.aspx

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-700733/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    168719