ChartThemeSelector function
function ChartThemeSelector(Const AChart:
TCustomChart): TChartThemeClass;
Unit
TeeThemeEditor
Description
Shows the Theme editor dialog and returns the selected theme class.
uses TeeThemeEditor;
...
AddChartThemes(ListBox1.Items);
...
procedure TChartThemes.Button1Click(Sender: TObject);
var tmp : TChartThemeClass;
begin
// Show the Chart Theme editor
tmp:=TChartThemeClass(ChartThemeSelector(Chart1));
if Assigned(tmp) then
ListBox1.ItemIndex:=ListBox1.Items.IndexOfObject(TObject(tmp));
end;