DockingContainer

Ein kurzes Demoprogramm das zeigt, wie ein TextEditControl in einem Dynpro angedockt werden kann. An der unteren Seite des Selektionsbildes wird der Quelltext des Programms angezeigt.

Dieses Demoprogramm erzeugt TextEditControl in einem Docker auf der linken Seite des Dynpros. Durch den Docker kann das TextEdit-Control beliebig in der Größe verändert werden.

Es ist natürlich auch möglich andere Controls “anzudocken”: TreeControl, CalendarControl, BarChartControl, HTMLViewerControl und andere.

Der Report

REPORT ztrcktrsr_blog_textedit01.

DATA t_sourcecode  TYPE TABLE OF text1000.
data edit TYPE REF TO cl_gui_textedit.
data docker TYPE REF TO cl_gui_docking_container.

PARAMETERS p_repid TYPE syrepid DEFAULT sy-repid.

INITIALIZATION.

*-- DockingContainer erzeugen
  CREATE OBJECT docker
    EXPORTING
      ratio = 60.

*-- edit an DockingContainer andocken
  CREATE OBJECT edit
    EXPORTING
      parent = docker.

*-- Kommentare definieren
  edit->set_comments_string( comments_string = '*' ).

*-- Kommentare hervorheben
  edit->set_highlight_comments_mode( highlight_comments_mode = 1 ).

*-- readonly
  edit->set_readonly_mode( 1 ).

*-- Umbruch
  edit->set_wordwrap_behavior(
         wordwrap_mode              = 2 "off
         wordwrap_position          = 72
         wordwrap_to_linebreak_mode = 0 ).

**-- DockingContainer Links andocken
  docker->dock_at( EXPORTING side = cl_gui_docking_container=>dock_at_right ).

AT SELECTION-SCREEN.

*-- Report lesen
  CLEAR t_sourcecode.
  READ REPORT p_repid INTO t_sourcecode.


*-- Report als Text anzeigen
  edit->set_text_as_r3table( table = t_sourcecode ).

 

Enno Wulff

Leave a Comment