^{ITChart.SetTheme
ITChart}

<sup>procedure SetTheme(aTheme: EChartTheme; aPalette: EColorPalette);

Type Library
TeeChartx

Description</sup>

^{Set Chart Theme:}

^Example

^{Private Sub List1_Click(Index As Integer)}

^{Select Case List1.Item(1).ListIndex}

^{Case 0: TChart1.SetTheme ctDefault, cpDefault}

^{Case 1: TChart1.SetTheme ctExcel, cpDefault}

^{Case 2: TChart1.SetTheme ctClassic, cpDefault}

^{Case 3: TChart1.SetTheme ctBusiness, cpDefault}

^{Case 4: TChart1.SetTheme ctWeb, cpDefault}

^{Case 5: TChart1.SetTheme ctWindowsXP, cpDefault}

^{Case 6: TChart1.SetTheme ctBlueSky, cpDefault}

^{Case 7: TChart1.SetTheme ctFacts, cpDefault}

^{End Select}

^{End Sub}