^{ITChart.ApplyCustomPalette
ITChart See also}

<sup>procedure ApplyCustomPalette(colorArray: OleVariant);

Type Library
TeeChartx

Description</sup>

^{Apply a Custom Palette to the Chart.}

^Example

^{' Create three custom color palettes (arrays of TColor)}

^{ReDim RedPalette(15)}

^{ReDim BluePalette(15)}

^{ReDim GreenPalette(15)}

^{For t = 0 To 14}

^{RedPalette(t) = RGB(128 + Round(t * (128# / 15#)), 0, 0)}

^{BluePalette(t) = RGB(0, 0, 128 + Round(t * (128# / 15#)))}

^{GreenPalette(t) = RGB(0, 128 + Round(t * (128# / 15#)), 0)}

^{Next t}

^{Combo1.ListIndex = 0}

^{Combo2.ListIndex = 1}

^{End Sub}

^{TChart1.ApplyCustomPalette RedPalette}

^{' or .... TChart1.ApplyCustomPalette BluePalette}

^'etc

^{See also:
ApplyPalette}