Try to use CL_GUI_TEXTEDIT

Question

Hi all,
i try to use CL_GUI_TEXTEDIT (thanks to Duraifaj) in
this little report:
REPORT Z065_TEST2.
PARAMETERS: P_PERNR LIKE PA0000-PERNR.
DATA: DOCKING TYPE REF TO CL_GUI_DOCKING_CONTAINER,
      EDITOR  TYPE REF TO CL_GUI_TEXTEDIT.
DATA: TEXTLINES TYPE TABLE OF TLINE-TDLINE,
      WA_TEXT   TYPE TLINE-TDLINE.
AT SELECTION-SCREEN OUTPUT.
  DATA: REPID LIKE SY-REPID.
  DATA: FILE_NAME LIKE SAPB-SAPFILES,
        FILE_TYPE LIKE BDN_CON-MIMETYPE.
  REPID = SY-REPID.
  IF DOCKING IS INITIAL.
    CREATE OBJECT DOCKING
      EXPORTING
        REPID = REPID
        DYNNR = SY-DYNNR
        SIDE  = CL_GUI_DOCKING_CONTAINER=>DOCK_AT_BOTTOM
        EXTENSION = '300'
      EXCEPTIONS
        CNTL_ERROR                  = 1
        CNTL_SYSTEM_ERROR           = 2
        CREATE_ERROR                = 3
        LIFETIME_ERROR              = 4
        LIFETIME_DYNPRO_DYNPRO_LINK = 5.
  ENDIF .
  IF EDITOR IS INITIAL.
    CREATE OBJECT EDITOR
      EXPORTING
        PARENT            = DOCKING
        WORDWRAP_MODE     = CL_GUI_TEXTEDIT=>WORDWRAP_AT_FIXED_POSITION
        WORDWRAP_POSITION = 256
        MAX_NUMBER_CHARS  = 100000.
  ENDIF .
  WA_TEXT = 'First  Line'. APPEND WA_TEXT TO TEXTLINES.
  WA_TEXT = 'Second Line'. APPEND WA_TEXT TO TEXTLINES.
  CALL METHOD EDITOR->SET_TEXT_AS_R3TABLE
    EXPORTING
      TABLE  = TEXTLINES
    EXCEPTIONS
      OTHERS = 1.
START-OF-SELECTION.
  CALL METHOD EDITOR->GET_TEXT_AS_R3TABLE
    IMPORTING
      TABLE                  = TEXTLINES
    EXCEPTIONS
      ERROR_DP               = 1
      ERROR_CNTL_CALL_METHOD = 2
      ERROR_DP_CREATE        = 3
      POTENTIAL_DATA_LOSS    = 4
      OTHERS                 = 5.
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.
  WRITE: / P_PERNR.
  LOOP AT TEXTLINES INTO WA_TEXT.
    WRITE: / WA_TEXT.
  ENDLOOP.
END-OF-SELECTION.
My problem is, that i will position the editor
on a special point an the screen in an special size.
For example X = 10 10, Y = 20 100.
Is that Possible?
regards, Dieter

Answer 1

Hi,
i have tried it in this way,
  IF DOCKING IS INITIAL.
    CREATE OBJECT DOCKING
      EXPORTING
        REPID = REPID
        DYNNR = SY-DYNNR
        SIDE  = CL_GUI_DOCKING_CONTAINER=>DOCK_AT_BOTTOM
        EXTENSION = '300'
      EXCEPTIONS
        CNTL_ERROR                  = 1
        CNTL_SYSTEM_ERROR           = 2
        CREATE_ERROR                = 3
        LIFETIME_ERROR              = 4
        LIFETIME_DYNPRO_DYNPRO_LINK = 5.
  ENDIF .
  CALL METHOD DOCKING->SET_HEIGHT
    EXPORTING
      HEIGHT = 150.
  CALL METHOD DOCKING->SET_WIDTH
    EXPORTING
      WIDTH = 500.
  CALL METHOD DOCKING->SET_TOP
    EXPORTING
      TOP = 50.
  CALL METHOD DOCKING->SET_LEFT
    EXPORTING
      LEFT = 200.
  EXIT.
but the set.. haven't the right effect. it's only
set on left, buttom ... But not on the position which i whant. I think there is no solution.
thanks for help.
Regards, Dieter