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

#83 Enhanced color picker (DEMO21) to demonstrate how 'theme' and 'tint' can be used for coloring cells

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@171 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Tomek Mackowski 2011-05-04 22:09:11 +00:00
parent dfe73c22dd
commit bf4e0aabf1
1 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ZA2X/PROG/ZDEMO_EXCEL21.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL21" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20101127" UNAM="BCUSER" UDAT="20110429" VERN="000027" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20110504" STIME="220456" IDATE="20110429" ITIME="001347" UCCHECK="X">
<PROG NAME="ZDEMO_EXCEL21" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20101127" UNAM="BCUSER" UDAT="20110505" VERN="000041" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20110505" STIME="000536" IDATE="20110505" ITIME="000536" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="abap2xlsx Demo: Backgound Color Picker" LENGTH="38 "/>
@ -45,7 +45,8 @@ DATA: red TYPE i,
green_str TYPE string,
blue_str TYPE string.
DATA: color TYPE zexcel_style_color_argb.
DATA: color TYPE zexcel_style_color_argb,
tint TYPE zexcel_style_color_tint.
DATA: row TYPE i,
row_tmp TYPE i,
@ -130,10 +131,31 @@ START-OF-SELECTION.
ip_style = &lt;color_style&gt;-style ).
ENDLOOP.
row = row + 2.
tint = &apos;-0.5&apos;.
DO 10 TIMES.
column = 1.
DO 10 TIMES.
lo_style_filled = lo_excel-&gt;add_new_style( ).
lo_style_filled-&gt;fill-&gt;filltype = zcl_excel_style_fill=&gt;c_fill_solid.
lo_style_filled-&gt;fill-&gt;fgcolor-theme = sy-index - 1.
lo_style_filled-&gt;fill-&gt;fgcolor-tint = tint.
&lt;color_style&gt;-style = lo_style_filled-&gt;get_guid( ).
col_str = zcl_excel_common=&gt;convert_column2alpha( column ).
lo_worksheet-&gt;set_cell_style( ip_column = col_str
ip_row = row
ip_style = &lt;color_style&gt;-style ).
ADD 1 TO column.
ENDDO.
ADD &apos;0.1&apos; TO tint.
ADD 1 TO row.
ENDDO.
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( lo_excel ).
&quot; Convert to binary
&quot; Convert to binary
CALL FUNCTION &apos;SCMS_XSTRING_TO_BINARY&apos;
EXPORTING
buffer = lv_file