注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

原来为了你

我的人生就是要一次次的超越

 
 
 

日志

 
 
 
 

ABAP 屏幕RichText  

2011-09-29 18:43:20|  分类: ABAP屏幕操作 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

report.
constantsline_length type i value 254.
dataok_code like sy-ucomm.
data:
* Create reference to the custom container
 custom_container 
type ref to cl_gui_custom_container,
* Create reference to the TextEdit control
 editor 
type ref to cl_gui_textedit,
 repid  
like sy-repid.

datait_line   like standard table of line,
      it_tline  
like standard table of tline,
      wa_line   
like line of  it_line,
      gi_status 
type i.


start
-of-selection.
  
set screen '100'.
*---------------------------------------------------------------------*
*       MODULE USER_COMMAND_0100 INPUT                                *
*---------------------------------------------------------------------*
module user_command_0100 input.
  
case ok_code.
    
when 'EXIT'.
      
leave to screen 0.
    
when 'GETTEXT'.
* get richtext text 1
      
call method editor->set_textmodified_status
        
exporting
          status                 
1
        
exceptions
          error_cntl_call_method 
1
          
others                 2.

      
call method editor->get_text_as_r3table
        
importing
          
table       it_line
          is_modified 
gi_status.
* get richtext text 2
      
call method editor->get_text_as_stream
        
importing
          
text it_line.

      
call function 'CONVERT_STREAM_TO_ITF_TEXT'
        
exporting
          
language    sy-langu
        
tables
          text_stream 
it_line
          itf_text    
it_tline.
      it_line[] 
it_tline[] .
    
when 'SETTEXT'.
* set richtext text
      
call method editor->set_text_as_r3table
        
exporting
          
table it_line.
  
endcase.
endmodule.                 " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*&      Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
module status_0100 output.
* The TextEdit control should only be initialized the first time the
* PBO module executes
  
if editor is initial.
    repid 
sy-repid.
*   Create obejct for custom container
    
create object custom_container
      
exporting
        container_name              
'MYCONTAINER1'"在屏幕上创建一个"定制"控件并以此命名
      
exceptions
        cntl_error                  
1
        cntl_system_error           
2
        create_error                
3
        lifetime_error              
4
        lifetime_dynpro_dynpro_link 
5
        
others                      6.
    
if sy-subrc <> 0.
      
message id sy-msgid type 'I' number sy-msgno
                 
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
endif.
*   Create obejct for the TextEditor control
    
create object editor
      
exporting
        wordwrap_mode              
cl_gui_textedit=>wordwrap_at_fixed_position
        wordwrap_position          
line_length
        wordwrap_to_linebreak_mode 
cl_gui_textedit=>true
        parent                     
custom_container
      
exceptions
        error_cntl_create          
1
        error_cntl_init            
2
        error_cntl_link            
3
        error_dp_create            
4
        gui_type_not_supported     
5
        
others                     6.
    
if sy-subrc <> 0.
      
message id sy-msgid type 'I' number sy-msgno
                 
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
endif.
*   Initialize
    
call function 'CONTROL_FLUSH'
      
exceptions
        cntl_system_error 
1
        cntl_error        
2
        
others            3.

    
call method cl_gui_cfw=>flush.
  
endif.
endmodule.                 " STATUS_0100 OUTPUT

  评论这张
 
阅读(351)| 评论(1)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017