Steema Central

Hi,

I want to create a TeeGalleryPanel, but I only want to display some of the SubCharts, are there any way to access specific subcharts from the "standard" gallery? I´m using TeeChartPro version 7.01 without source code.

Regards

Johan Ingemansson

with ChartGalleryPanel1 do
begin
NumCols := 3;
NumRows := 2;
CreateChartList([TFastLineSeries, TFastLineSeries, TCandleSeries,
TCandleSeries, TCandleSeries, TCandleSeries]);
end;

Thank you for your response,

the code above gives me the "Standard" graphs with the possibility for the user to click and change the graph type, in the subgallery. What I want to do is only display for example with TBarDiagram, one grouped bar diagram. I can supress the subgallery with the property "DisplaySub", but I can´t access the subgallery, I want the grouped bar diagram, or can I? I have tried to manipulate the series in the ChartGallery, but even if I replace the series with series created by me, with the property MultiBar:=mbGrouped, the GalleryChart doesn´t change!! I would be grateful for ideas what to do.

Best Regards,

Johan Ingemansson

I'm interested to know how to do this as well. Did anyone ever respond with a solution?

Thanks,

Rob

Hi Rob,

This can't be done, the subgallery series depend on each parentseries with some coding variations applied to get each subseries.

Narcís,

Thanks for the response.

I have the source code so would you please give an example of how to exclude a "subseries."

Thanks,

Rob

Hi Rob,

I'm sorry but Steema Support can't give advice on modifications to TeeChart sourcecode. Perhaps someone out there has experience with trying this modification? To investigate you might like to check the use of the TChartGalleryPanel class and CreateSubGallery method.

OK, Thanks.

How might I set the subseries of the gallery if I know the subindex?

ChartGalleryPanel.SelectChart := AChart;
//Do something to Set the subseries index

Thanks,

Rob

For those who care this is how I did it:

type
TSeriesAccess=class(TChartSeries);
TChartGalleryAccess=class(TChartGalleryPanel);
...
//In my gallery this selects the TLineSeries Chart Type with a subindex of 5

procedure TForm1.Button2Click(Sender: TObject);
var
CN, SN: Integer;
begin
ChartGalleryPanel.SelectChart( ChartGalleryPanel.Charts[8]);
ChartGalleryPanel.SelectedSeries := ChartGalleryPanel.SelectedChart.Series[0];
ChartGalleryPanel.OnChangeChart := Nil;
TChartGalleryAccess(ChartGalleryPanel).FindSelectedChart;
for SN := 0 to ChartGalleryPanel.SelectedChart.SeriesCount-1 do
begin
TSeriesAccess(ChartGalleryPanel.SelectedChart.Series[SN]).SetSubGallery(
ChartGalleryPanel.SelectedChart.Series[SN],5);
end;

TChartGalleryAccess(ChartGalleryPanel).ShowSelectedChart;
ChartGalleryPanel.ResizeCharts;
ChartGalleryPanel.OnChangeChart := ChartGalleryPanelChangeChart;
end;

Sweet coding!!!



/Johan