*"* local class implementation for public class
*"* use this source file for the implementation part of
*"* local helper classes*"* use this source file for any type declarations (class
*"* definitions, interfaces or data types) you need for method
*"* implementation or private method's signature*"* use this source file for any macro definitions you need
*"* in the implementation part of the classABAPmethod CALCULATE_TEXT_WIDTH.
" Addition to solve issue #120, contribution by Stefan Schmoecker
r_width = strlen( i_text ).
" use scale factor based on default 11
" ( don't know where defaultsetting is stored currently )
r_width = r_width * me->size / 11.
endmethod.method CONSTRUCTOR.
me->color-rgb = zcl_excel_style_color=>c_black.
me->color-theme = zcl_excel_style_color=>c_theme_not_set.
me->color-indexed = zcl_excel_style_color=>c_indexed_not_set.
me->scheme = zcl_excel_style_font=>c_scheme_minor.
me->underline_mode = zcl_excel_style_font=>c_underline_single.
endmethod.method GET_STRUCTURE.
es_font-bold = me->bold.
es_font-italic = me->italic.
es_font-underline = me->underline.
es_font-underline_mode = me->underline_mode.
es_font-strikethrough = me->strikethrough.
es_font-size = me->size.
es_font-color = me->color.
es_font-name = me->name.
es_font-family = me->family.
es_font-scheme = me->scheme.
endmethod.