文本编辑器

 

***text editer文本编辑器

DATA:ref_container_tec TYPE REF TO cl_gui_custom_container.

DATA:ref_edit TYPE REF TO cl_gui_textedit.

DATA:text_line(85), "work area

     it_text LIKE STANDARD TABLE OF text_line. "text table

在PBO里

****文本编辑器

  IF ref_container_tec IS INITIAL.

    CREATE OBJECT ref_container_tec

    EXPORTING

       container_name = 'CONTROL_AREA2'

    EXCEPTIONS

       OTHERS = 6.

    CREATE OBJECT ref_edit

    EXPORTING

       parent = ref_container_tec

    EXCEPTIONS

       OTHERS = 6 .

    CALL METHOD ref_edit->set_toolbar_mode   "工具栏

      EXCEPTIONS

        OTHERS = 3.

    CALL METHOD ref_edit->set_statusbar_mode   "状态栏

      EXCEPTIONS

        OTHERS = 3.

    text_line = 'Description of Picture1:'(tl1).

    APPEND text_line TO it_text.

 

    CALL METHOD ref_edit->set_text_as_r3table

      EXPORTING

        table  = it_text

      EXCEPTIONS

        OTHERS = 3.