diff --git a/ZA2X/CLAS/ZCL_EXCEL_STYLE_BORDERS.slnk b/ZA2X/CLAS/ZCL_EXCEL_STYLE_BORDERS.slnk index 11f4a1a..0533b4b 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_STYLE_BORDERS.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_STYLE_BORDERS.slnk @@ -1,5 +1,5 @@ - + class ZCL_EXCEL_STYLE_BORDERS definition public final @@ -9,12 +9,17 @@ *"* do not include other source files here!!! public section. + data ALLBORDERS type ref to ZCL_EXCEL_STYLE_BORDER . + constants C_DIAGONAL_BOTH type ZEXCEL_DIAGONAL value 3. "#EC NOTEXT + constants C_DIAGONAL_DOWN type ZEXCEL_DIAGONAL value 2. "#EC NOTEXT + constants C_DIAGONAL_NONE type ZEXCEL_DIAGONAL value 0. "#EC NOTEXT + constants C_DIAGONAL_UP type ZEXCEL_DIAGONAL value 1. "#EC NOTEXT + data DIAGONAL type ref to ZCL_EXCEL_STYLE_BORDER . + data DIAGONAL_MODE type ZEXCEL_DIAGONAL . + data DOWN type ref to ZCL_EXCEL_STYLE_BORDER . data LEFT type ref to ZCL_EXCEL_STYLE_BORDER . data RIGHT type ref to ZCL_EXCEL_STYLE_BORDER . data TOP type ref to ZCL_EXCEL_STYLE_BORDER . - data DOWN type ref to ZCL_EXCEL_STYLE_BORDER . - data DIAGONAL type ref to ZCL_EXCEL_STYLE_BORDER . - data ALLBORDERS type ref to ZCL_EXCEL_STYLE_BORDER . methods CONSTRUCTOR . methods GET_STRUCTURE @@ -25,12 +30,7 @@ public section. protected section. *"* private components of class ZCL_EXCEL_STYLE_BORDERS *"* do not include other source files here!!! -private section. - - constants C_DIAGONAL_NONE type ZEXCEL_DIAGONAL value 0. "#EC NOTEXT - constants C_DIAGONAL_UP type ZEXCEL_DIAGONAL value 1. "#EC NOTEXT - constants C_DIAGONAL_DOWN type ZEXCEL_DIAGONAL value 2. "#EC NOTEXT - constants C_DIAGONAL_BOTH type ZEXCEL_DIAGONAL value 3. "#EC NOTEXT +private section. *"* local class implementation for public class *"* use this source file for the implementation part of *"* local helper classes @@ -39,23 +39,24 @@ private section. *"* implementation or private method's signature *"* use this source file for any macro definitions you need *"* in the implementation part of the class - - - - - - - - - - - + + + + + + + + + + + + method CONSTRUCTOR. endmethod. - - - method GET_STRUCTURE. + + + METHOD get_structure. * Check if all borders is set otherwise check single border IF me->allborders IS BOUND. @@ -90,8 +91,22 @@ endmethod. IF me->diagonal IS BOUND. es_fill-diagonal_color = me->diagonal->border_color. es_fill-diagonal_style = me->diagonal->border_style. + CASE me->diagonal_mode. + WHEN 1. + es_fill-diagonalup = 1. + es_fill-diagonaldown = 0. + WHEN 2. + es_fill-diagonalup = 0. + es_fill-diagonaldown = 1. + WHEN 3. + es_fill-diagonalup = 1. + es_fill-diagonaldown = 1. + WHEN OTHERS. + es_fill-diagonalup = 0. + es_fill-diagonaldown = 0. + ENDCASE. ENDIF. -endmethod. +ENDMETHOD.