topic Re: Disable the container text in Application Development and Automation Discussions

Disable the container text

Former Member — Fri, 06 Sep 2013 12:34:41 GMT

hello abapers,

i have use container for display the text in the screen.

now,the problem is How to make the container disable / only output / no input possible properties.

which method i should call.

i have used following code .

CONSTANTS:

line_length TYPE i VALUE 254.

DATA: ok_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.

MODULE status_0100 OUTPUT.

SET PF-STATUS 'PF01'.

SET TITLEBAR 'T1'.

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 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.

*toolbar and status bar of container disable

CALL METHOD editor->set_toolbar_mode

EXPORTING

toolbar_mode = cl_gui_textedit=>false.

CALL METHOD editor->set_statusbar_mode

EXPORTING

statusbar_mode = cl_gui_textedit=>false.

ENDIF.

SELECT * FROM zsstab INTO wa_zsstab WHERE ss_apl_no = ss_apl_no1.

ss_apl_no = wa_zsstab-ss_apl_no.

proj_name = wa_zsstab-proj_name.

vnd_name = wa_zsstab-vnd_name.

uname = wa_zsstab-uname.

cdate = wa_zsstab-cdate.

ctime = wa_zsstab-ctime.

brief = wa_zsstab-brief.

text = wa_zsstab-justif.

impact = wa_zsstab-impact.

price = wa_zsstab-price.

ccenter = wa_zsstab-ccenter..

CALL METHOD editor->set_textstream

EXPORTING

text = text

EXCEPTIONS

error_cntl_call_method = 1

not_supported_by_gui = 2

OTHERS = 3.

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDSELECT.

ENDMODULE.

================================================================

the Whole code is working fine

i have also define the necessory details

======================================================

Re: Disable the container text

Former Member — Fri, 06 Sep 2013 19:28:50 GMT

Use the method set_readonly_mode of your editor object to achieve this.

Ex.:

CALL METHOD editor->set_readonly_mode

EXPORTING

readonly_mode = cl_gui_textedit=>true.

You can also disable your lines if you need, like this:

Ex.:

DESCRIBE TABLE ti_your_texts_table[] LINES li_lines.

CALL METHOD editor->protect_lines

EXPORTING

from_line = 0

protect_mode = cl_gui_textedit=>false

to_line = li_lines

enable_editing_protected_text = cl_gui_textedit=>false.

[]'s

Heber

Message was edited by: Heber Fabiano Added Example Code

Re: Disable the container text

Former Member — Sat, 07 Sep 2013 04:11:48 GMT

HI Nilesh,

Use below code after CREATE OBJECT editor.

CALL METHOD editor->SET_READONLY_MODE
EXPORTING
READONLY_MODE = 1.

Regards,

Mordhwaj

Re: Disable the container text

former_member209120 — Sat, 07 Sep 2013 10:27:24 GMT

Hi Nilesh Mohite,

Just use this code

Data : editor TYPE REF TO cl_gui_textedit,

CALL METHOD editor->set_readonly_mode

EXPORTING

readonly_mode = 1.

In your code like this

CONSTANTS:

line_length TYPE i VALUE 254.

DATA: ok_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.

MODULE status_0100 OUTPUT.

SET PF-STATUS 'PF01'.

SET TITLEBAR 'T1'.

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 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.

*toolbar and status bar of container disable

CALL METHOD editor->set_toolbar_mode

EXPORTING

toolbar_mode = cl_gui_textedit=>false.

CALL METHOD editor->set_statusbar_mode

EXPORTING

statusbar_mode = cl_gui_textedit=>false.

ENDIF.

     * To Set disply - 1 or edit - 0 mode
     CALL METHOD editor->set_readonly_mode
       EXPORTING
         readonly_mode = 1.

SELECT * FROM zsstab INTO wa_zsstab WHERE ss_apl_no = ss_apl_no1.

ss_apl_no = wa_zsstab-ss_apl_no.

proj_name = wa_zsstab-proj_name.

vnd_name = wa_zsstab-vnd_name.

uname = wa_zsstab-uname.

cdate = wa_zsstab-cdate.

ctime = wa_zsstab-ctime.

brief = wa_zsstab-brief.

text = wa_zsstab-justif.

impact = wa_zsstab-impact.

price = wa_zsstab-price.

ccenter = wa_zsstab-ccenter..

CALL METHOD editor->set_textstream

EXPORTING

text = text

EXCEPTIONS

error_cntl_call_method = 1

not_supported_by_gui = 2

OTHERS = 3.

IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDSELECT.

ENDMODULE.