Using the TeeGalleryPanel

Johan Ingemansson · Post by **Johan Ingemansson** » Fri Aug 06, 2004 10:27 am

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

Jilonger.Xusen · Post by **Jilonger.Xusen** » Mon Aug 09, 2004 3:11 am

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

Johan Ingemansson · Post by **Johan Ingemansson** » Mon Aug 09, 2004 5:21 pm

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

Rob · Post by **Rob** » Tue Jan 11, 2005 1:45 pm

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

Thanks,

Rob

Narcís · Post by **Narcís** » Tue Jan 11, 2005 2:25 pm

Hi Rob,

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

Rob · Post by **Rob** » Tue Jan 11, 2005 4:50 pm

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

Narcís · Post by **Narcís** » Wed Jan 12, 2005 2:36 pm

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.

Rob · Post by **Rob** » Wed Jan 12, 2005 2:46 pm

OK, Thanks.

Rob · Post by **Rob** » Sat Jan 15, 2005 4:26 pm

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

Rob · Post by **Rob** » Sat Jan 15, 2005 6:41 pm

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;

Johan Ingemansson · Post by **Johan Ingemansson** » Thu May 26, 2005 10:47 am

Sweet coding!!!

/Johan

Using the TeeGalleryPanel

Using the TeeGalleryPanel

Excellent