Type | Description | |||
Color | A color expression that defines the background color to be applied. The last 7 bits in the high significant byte of the color to indicates the identifier of the skin being used. Use the Add method to add new skins to the control. If you need to remove the skin appearance from a part of the control you need to reset the last 7 bits in the high significant byte of the color being applied to the background's part. |
The following samples show how you can mark not-empty values in the chart:
VBA (MS Access, Excell...)
With Pivot1 .BeginUpdate .Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" .PivotRows = "0" With .FormatConditionalAppearances.Add("nempty","not empty","") .Expression = "len(value) != 0" .BackColor = RGB(240,240,240) End With .PivotColumns = "sum(5)[nempty]/12" .EndUpdate End With
VB6
With Pivot1 .BeginUpdate .Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" .PivotRows = "0" With .FormatConditionalAppearances.Add("nempty","not empty","") .Expression = "len(value) != 0" .BackColor = RGB(240,240,240) End With .PivotColumns = "sum(5)[nempty]/12" .EndUpdate End With
VB.NET
With Expivot1 .BeginUpdate() .Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt") .PivotRows = "0" With .FormatConditionalAppearances.Add("nempty","not empty","") .Expression = "len(value) != 0" .BackColor = Color.FromArgb(240,240,240) End With .PivotColumns = "sum(5)[nempty]/12" .EndUpdate() End With
VB.NET for /COM
With AxPivot1 .BeginUpdate() .Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt") .PivotRows = "0" With .FormatConditionalAppearances.Add("nempty","not empty","") .Expression = "len(value) != 0" .BackColor = RGB(240,240,240) End With .PivotColumns = "sum(5)[nempty]/12" .EndUpdate() End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXPIVOTLib' for the library: 'ExPivot 1.0 Control Library' #import <ExPivot.dll> using namespace EXPIVOTLib; */ EXPIVOTLib::IPivotPtr spPivot1 = GetDlgItem(IDC_PIVOT1)->GetControlUnknown(); spPivot1->BeginUpdate(); spPivot1->Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",vtMissing); spPivot1->PutPivotRows(L"0"); EXPIVOTLib::IFormatConditionalAppearancePtr var_FormatConditionalAppearance = spPivot1->GetFormatConditionalAppearances()->Add(L"nempty","not empty",""); var_FormatConditionalAppearance->PutExpression(L"len(value) != 0"); var_FormatConditionalAppearance->PutBackColor(RGB(240,240,240)); spPivot1->PutPivotColumns(L"sum(5)[nempty]/12"); spPivot1->EndUpdate();
C++ Builder
Pivot1->BeginUpdate(); Pivot1->Import(TVariant("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt"),TNoParam()); Pivot1->PivotRows = L"0"; Expivotlib_tlb::IFormatConditionalAppearancePtr var_FormatConditionalAppearance = Pivot1->FormatConditionalAppearances->Add(L"nempty",TVariant("not empty"),TVariant("")); var_FormatConditionalAppearance->Expression = L"len(value) != 0"; var_FormatConditionalAppearance->BackColor = RGB(240,240,240); Pivot1->PivotColumns = L"sum(5)[nempty]/12"; Pivot1->EndUpdate();
C#
expivot1.BeginUpdate(); expivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null); expivot1.PivotRows = "0"; exontrol.EXPIVOTLib.FormatConditionalAppearance var_FormatConditionalAppearance = expivot1.FormatConditionalAppearances.Add("nempty","not empty",""); var_FormatConditionalAppearance.Expression = "len(value) != 0"; var_FormatConditionalAppearance.BackColor = Color.FromArgb(240,240,240); expivot1.PivotColumns = "sum(5)[nempty]/12"; expivot1.EndUpdate();
JScript/JavaScript
<BODY onload="Init()"> <OBJECT CLASSID="clsid:5C9DF3D3-81B1-42C4-BED6-658F17748686" id="Pivot1"></OBJECT> <SCRIPT LANGUAGE="JScript"> function Init() { Pivot1.BeginUpdate(); Pivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null); Pivot1.PivotRows = "0"; var var_FormatConditionalAppearance = Pivot1.FormatConditionalAppearances.Add("nempty","not empty",""); var_FormatConditionalAppearance.Expression = "len(value) != 0"; var_FormatConditionalAppearance.BackColor = 15790320; Pivot1.PivotColumns = "sum(5)[nempty]/12"; Pivot1.EndUpdate(); } </SCRIPT> </BODY>
VBScript
<BODY onload="Init()"> <OBJECT CLASSID="clsid:5C9DF3D3-81B1-42C4-BED6-658F17748686" id="Pivot1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Pivot1 .BeginUpdate .Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" .PivotRows = "0" With .FormatConditionalAppearances.Add("nempty","not empty","") .Expression = "len(value) != 0" .BackColor = RGB(240,240,240) End With .PivotColumns = "sum(5)[nempty]/12" .EndUpdate End With End Function </SCRIPT> </BODY>
C# for /COM
axPivot1.BeginUpdate(); axPivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null); axPivot1.PivotRows = "0"; EXPIVOTLib.FormatConditionalAppearance var_FormatConditionalAppearance = axPivot1.FormatConditionalAppearances.Add("nempty","not empty",""); var_FormatConditionalAppearance.Expression = "len(value) != 0"; var_FormatConditionalAppearance.BackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(240,240,240)); axPivot1.PivotColumns = "sum(5)[nempty]/12"; axPivot1.EndUpdate();
X++ (Dynamics Ax 2009)
public void init() { COM com_FormatConditionalAppearance; anytype var_FormatConditionalAppearance; ; super(); expivot1.BeginUpdate(); expivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt"); expivot1.PivotRows("0"); var_FormatConditionalAppearance = COM::createFromObject(expivot1.FormatConditionalAppearances()).Add("nempty","not empty",""); com_FormatConditionalAppearance = var_FormatConditionalAppearance; com_FormatConditionalAppearance.Expression("len(value) != 0"); com_FormatConditionalAppearance.BackColor(WinApi::RGB2int(240,240,240)); expivot1.PivotColumns("sum(5)[nempty]/12"); expivot1.EndUpdate(); }
Delphi 8 (.NET only)
with AxPivot1 do begin BeginUpdate(); Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil); PivotRows := '0'; with FormatConditionalAppearances.Add('nempty','not empty','') do begin Expression := 'len(value) != 0'; BackColor := $f0f0f0; end; PivotColumns := 'sum(5)[nempty]/12'; EndUpdate(); end
Delphi (standard)
with Pivot1 do begin BeginUpdate(); Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Null); PivotRows := '0'; with FormatConditionalAppearances.Add('nempty','not empty','') do begin Expression := 'len(value) != 0'; BackColor := $f0f0f0; end; PivotColumns := 'sum(5)[nempty]/12'; EndUpdate(); end
VFP
with thisform.Pivot1 .BeginUpdate .Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt") .PivotRows = "0" with .FormatConditionalAppearances.Add("nempty","not empty","") .Expression = "len(value) != 0" .BackColor = RGB(240,240,240) endwith .PivotColumns = "sum(5)[nempty]/12" .EndUpdate endwith
dBASE Plus
local oPivot,var_FormatConditionalAppearance oPivot = form.EXPIVOTACTIVEXCONTROL1.nativeObject oPivot.BeginUpdate() oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt") oPivot.PivotRows = "0" var_FormatConditionalAppearance = oPivot.FormatConditionalAppearances.Add("nempty","not empty","") var_FormatConditionalAppearance.Expression = "len(value) != 0" var_FormatConditionalAppearance.BackColor = 0xf0f0f0 oPivot.PivotColumns = "sum(5)[nempty]/12" oPivot.EndUpdate()
XBasic (Alpha Five)
Dim oPivot as P Dim var_FormatConditionalAppearance as P oPivot = topparent:CONTROL_ACTIVEX1.activex oPivot.BeginUpdate() oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt") oPivot.PivotRows = "0" var_FormatConditionalAppearance = oPivot.FormatConditionalAppearances.Add("nempty","not empty","") var_FormatConditionalAppearance.Expression = "len(value) != 0" var_FormatConditionalAppearance.BackColor = 15790320 oPivot.PivotColumns = "sum(5)[nempty]/12" oPivot.EndUpdate()
Visual Objects
local var_FormatConditionalAppearance as IFormatConditionalAppearance oDCOCX_Exontrol1:BeginUpdate() oDCOCX_Exontrol1:Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt",nil) oDCOCX_Exontrol1:PivotRows := "0" var_FormatConditionalAppearance := oDCOCX_Exontrol1:FormatConditionalAppearances:Add("nempty","not empty","") var_FormatConditionalAppearance:Expression := "len(value) != 0" var_FormatConditionalAppearance:BackColor := RGB(240,240,240) oDCOCX_Exontrol1:PivotColumns := "sum(5)[nempty]/12" oDCOCX_Exontrol1:EndUpdate()
PowerBuilder
OleObject oPivot,var_FormatConditionalAppearance oPivot = ole_1.Object oPivot.BeginUpdate() oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt") oPivot.PivotRows = "0" var_FormatConditionalAppearance = oPivot.FormatConditionalAppearances.Add("nempty","not empty","") var_FormatConditionalAppearance.Expression = "len(value) != 0" var_FormatConditionalAppearance.BackColor = RGB(240,240,240) oPivot.PivotColumns = "sum(5)[nempty]/12" oPivot.EndUpdate()
Visual DataFlex
Procedure OnCreate Forward Send OnCreate Send ComBeginUpdate Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing Set ComPivotRows to "0" Variant voFormatConditionalAppearances Get ComFormatConditionalAppearances to voFormatConditionalAppearances Handle hoFormatConditionalAppearances Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances Variant voFormatConditionalAppearance Get ComAdd of hoFormatConditionalAppearances "nempty" "not empty" "" to voFormatConditionalAppearance Handle hoFormatConditionalAppearance Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance Set ComExpression of hoFormatConditionalAppearance to "len(value) != 0" Set ComBackColor of hoFormatConditionalAppearance to (RGB(240,240,240)) Send Destroy to hoFormatConditionalAppearance Send Destroy to hoFormatConditionalAppearances Set ComPivotColumns to "sum(5)[nempty]/12" Send ComEndUpdate End_Procedure
XBase++
#include "AppEvent.ch" #include "ActiveX.ch" PROCEDURE Main LOCAL oForm LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL LOCAL oFormatConditionalAppearance LOCAL oPivot oForm := XbpDialog():new( AppDesktop() ) oForm:drawingArea:clipChildren := .T. oForm:create( ,,{100,100}, {640,480},, .F. ) oForm:close := {|| PostAppEvent( xbeP_Quit )} oPivot := XbpActiveXControl():new( oForm:drawingArea ) oPivot:CLSID := "Exontrol.Pivot.1" /*{5C9DF3D3-81B1-42C4-BED6-658F17748686}*/ oPivot:create(,, {10,60},{610,370} ) oPivot:BeginUpdate() oPivot:Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt") oPivot:PivotRows := "0" oFormatConditionalAppearance := oPivot:FormatConditionalAppearances():Add("nempty","not empty","") oFormatConditionalAppearance:Expression := "len(value) != 0" oFormatConditionalAppearance:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. )) oPivot:PivotColumns := "sum(5)[nempty]/12" oPivot:EndUpdate() oForm:Show() DO WHILE nEvent != xbeP_Quit nEvent := AppEvent( @mp1, @mp2, @oXbp ) oXbp:handleEvent( nEvent, mp1, mp2 ) ENDDO RETURN