SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-04 17:56:10 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Demo of modification of theme added

Browse Source 
ZDEMO_EXCEL42
This commit is contained in:
Łukasz Pęgiel 2015-09-25 19:30:53 +02:00
parent f37e6e1b88
commit f62ee2a037
2 changed files with 117 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ZA2X/CLAS/ZCL_EXCEL_THEME.slnk
View File

@ -70,7 +70,7 @@
<parameter CLSNAME="ZCL_EXCEL_THEME" CMPNAME="SET_COLOR" SCONAME="IV_TYPE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="STRING"/>
<parameter CLSNAME="ZCL_EXCEL_THEME" CMPNAME="SET_COLOR" SCONAME="IV_SRGB" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="ZCL_EXCEL_THEME_COLOR_SCHEME=&gt;T_SRGB" PAROPTIONL="X"/>
<parameter CLSNAME="ZCL_EXCEL_THEME" CMPNAME="SET_COLOR" SCONAME="IV_SYSCOLORNAME" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="STRING" PAROPTIONL="X"/>
<parameter CLSNAME="ZCL_EXCEL_THEME" CMPNAME="SET_COLOR" SCONAME="IV_SYSCOLORLAST" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="ZCL_EXCEL_THEME_COLOR_SCHEME=&gt;T_SRGB"/>
<parameter CLSNAME="ZCL_EXCEL_THEME" CMPNAME="SET_COLOR" SCONAME="IV_SYSCOLORLAST" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="ZCL_EXCEL_THEME_COLOR_SCHEME=&gt;T_SRGB" PAROPTIONL="X"/>
<source>method set_color.
elements-&gt;color_scheme-&gt;set_color(
exporting
@ -157,6 +157,12 @@
).
endmethod. &quot;set_latin_font</source>
</method>
<method CLSNAME="ZCL_EXCEL_THEME" CMPNAME="SET_THEME_NAME" VERSION="1" LANGU="E" EXPOSURE="2" STATE="1" EDITORDER="11 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
<parameter CLSNAME="ZCL_EXCEL_THEME" CMPNAME="SET_THEME_NAME" SCONAME="IV_NAME" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="0" TYPTYPE="1" TYPE="STRING"/>
<source>method set_theme_name.
name = iv_name.
endmethod.</source>
</method>
<method CLSNAME="ZCL_EXCEL_THEME" CMPNAME="WRITE_THEME" VERSION="1" LANGU="E" EXPOSURE="2" STATE="1" EDITORDER="3 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
<parameter CLSNAME="ZCL_EXCEL_THEME" CMPNAME="WRITE_THEME" SCONAME="RV_XSTRING" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
<source>method write_theme.

110
ZA2X/PROG/ZDEMO_EXCEL42.slnk Normal file
View File

@ -0,0 +1,110 @@
<?xml version="1.0" encoding="utf-8"?>
<PROG NAME="ZDEMO_EXCEL42" VARCL="X" SUBC="1" APPL="*" RSTAT="K" RMAND="001" RLOAD="E" FIXPT="X" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="Theme manipulation demo" LENGTH="23 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
*&amp; Report ZDEMO_EXCEL42
*&amp;
*&amp;---------------------------------------------------------------------*
*&amp;
*&amp;
*&amp;---------------------------------------------------------------------*
REPORT ZDEMO_EXCEL42.
type-POOLS: vrm.
DATA: lo_excel TYPE REF TO zcl_excel,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_theme TYPE REF TO zcl_excel_theme,
lo_style type ref to zcl_excel_style,
lv_style_guid type ZEXCEL_CELL_STYLE.
DATA: gc_save_file_name TYPE string VALUE &apos;42 Theme Manipulation demo.&amp;&apos;.
include zdemo_excel_outputopt_incl.
initialization.
START-OF-SELECTION.
&quot; Creates active sheet
CREATE OBJECT lo_excel.
&quot; Create a bold / italic style with usage of major font
lo_style = lo_excel-&gt;add_new_style( ).
lo_style-&gt;font-&gt;bold = abap_true.
lo_style-&gt;font-&gt;italic = abap_true.
lo_style-&gt;font-&gt;scheme = zcl_excel_style_font=&gt;c_scheme_major.
lo_style-&gt;font-&gt;color-rgb = zcl_excel_style_color=&gt;c_red.
lv_style_guid = lo_style-&gt;get_guid( ).
&quot; Get active sheet
lo_worksheet = lo_excel-&gt;get_active_worksheet( ).
lo_worksheet-&gt;set_title( ip_title = &apos;Styles&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos;Hello world&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;C&apos; ip_row = 3 ip_value = &apos;Bold text&apos; ip_style = lv_style_guid ).
&quot;create theme
create object lo_theme.
lo_theme-&gt;set_theme_name( iv_name = &apos;Theme Demo 42 A2X&apos; ).
lo_theme-&gt;set_color_scheme_name( iv_name = &apos;Demo 42 A2X&apos; ).
&quot;set theme colors
lo_theme-&gt;set_color(
exporting
iv_type = zcl_excel_theme_color_scheme=&gt;c_dark1
iv_srgb = &apos;5F9EA0&apos;
* iv_syscolorname =
* iv_syscolorlast =
).
lo_theme-&gt;set_color(
exporting
iv_type = zcl_excel_theme_color_scheme=&gt;c_dark2
iv_srgb = &apos;FFA500&apos;
* iv_syscolorname =
* iv_syscolorlast =
).
lo_theme-&gt;set_color(
exporting
iv_type = zcl_excel_theme_color_scheme=&gt;c_light1
iv_srgb = &apos;778899&apos;
* iv_syscolorname =
* iv_syscolorlast =
).
lo_theme-&gt;set_color(
exporting
iv_type = zcl_excel_theme_color_scheme=&gt;c_light1
iv_srgb = &apos;9932CC&apos;
* iv_syscolorname =
* iv_syscolorlast =
).
lo_theme-&gt;set_font_scheme_name( iv_name = &apos;Demo 42 A2X&apos; ).
&quot;set theme latin fonts - major and minor
lo_theme-&gt;set_latin_font(
exporting
iv_type = zcl_excel_theme_font_scheme=&gt;c_major
iv_typeface = &apos;Britannic Bold&apos;
* iv_panose =
* iv_pitchfamily =
* iv_charset =
).
lo_theme-&gt;set_latin_font(
exporting
iv_type = zcl_excel_theme_font_scheme=&gt;c_minor
iv_typeface = &apos;Broadway&apos;
* iv_panose =
* iv_pitchfamily =
* iv_charset =
).
&quot;push theme to file
lo_excel-&gt;set_theme( io_theme = lo_theme ).
&quot;output
lcl_output=&gt;output( cl_excel = lo_excel ).</source>
</PROG>