mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 17:16:13 +08:00
48 lines
1.2 KiB
ABAP
48 lines
1.2 KiB
ABAP
class ZCL_EXCEL_THEME_ECLRSCHEMELST definition
|
|
public
|
|
final
|
|
create public .
|
|
|
|
public section.
|
|
|
|
methods LOAD
|
|
importing
|
|
!IO_EXTRA_COLOR type ref to IF_IXML_ELEMENT .
|
|
methods BUILD_XML
|
|
importing
|
|
!IO_DOCUMENT type ref to IF_IXML_DOCUMENT .
|
|
protected section.
|
|
private section.
|
|
|
|
data EXTRACOLOR type ref to IF_IXML_ELEMENT .
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS ZCL_EXCEL_THEME_ECLRSCHEMELST IMPLEMENTATION.
|
|
|
|
|
|
method build_xml.
|
|
data: lo_theme type ref to if_ixml_element.
|
|
data: lo_theme_objdef type ref to if_ixml_element.
|
|
check io_document is bound.
|
|
lo_theme ?= io_document->get_root_element( ).
|
|
check lo_theme is bound.
|
|
if extracolor is initial.
|
|
lo_theme_objdef ?= io_document->create_simple_element_ns( prefix = zcl_excel_theme=>c_theme_prefix
|
|
name = zcl_excel_theme=>c_theme_extra_color
|
|
parent = lo_theme ).
|
|
|
|
else.
|
|
lo_theme->append_child( new_child = extracolor ).
|
|
endif.
|
|
|
|
endmethod. "build_xml
|
|
|
|
|
|
method load.
|
|
"! so far copy only existing values
|
|
extracolor ?= io_extra_color.
|
|
endmethod. "load
|
|
ENDCLASS.
|