Linien und Vierecke auf Dynpros zeichnen.

Code: Alles auswählen.

type-pool line .
*-----------------------------------------------------------------------
* this TYPE-POOL defines symbolic names for ABAP-list lines
* used in statements "WRITE LINE_ ... AS LINE." .
*-----------------------------------------------------------------------
define line_1.
  constants: &1 type c value &2.
end-of-definition.

line_1 line_space                  ' '."SPACE
line_1 line_top_left_corner        '0'."top left corner           ,+ ,0
line_1 line_bottom_left_corner     '1'."bottom_left_corner        ,+ ,1
line_1 line_top_right_corner       '2'."top_right_corner          ,+ ,2
line_1 line_bottom_right_corner    '3'."bottom_right_corner       ,+ ,3
line_1 line_horizontal_line        '4'."horizontal_line           ,- ,4
line_1 line_vertical_line          '5'."line_vertical_line        ,| ,5
line_1 line_left_middle_corner     '6'."left_middle_corner        ,+ ,6
line_1 line_right_middle_corner    '7'."right_middle_corner       ,+ ,7
line_1 line_bottom_middle_corner   '8'."bottom_middle_corner      ,+ ,8
line_1 line_top_middle_corner      '9'."top_middle_corner         ,+ ,9
line_1 line_cross                  ':'."cross                     ,+ ,: