Works fine now. Acceptable spacing etc. Tested w 1-> 8 series procedure TForm1.btnFillChartClick(Sender: TObject); var Position : TMultibar; i,iCount : integer; yMin, yMax : integer; begin Chart1 := TChart.Create(Panel1); Chart1.Parent := Panel1; Chart1.Height := 514; Chart1.Width := 745; Chart1.Vie...

Hi: I set Chart1.Axes.Left.SetMinMax(-iCount -4,iCount+4); <-------------------------------------- for i := iCount downto 0 do ,,,,, and SideMargins := true; <--------------------------------------------- AddBar(valReads,namReads,clYellow); AddBar(valWrites,namWrites,clLime); AddBar(valFetches, valT...

So from reading, one way would be to fill chart with series and hide them? How would one hide the series? Secondly:"The SideMargins property controls if first and last displayed Bar will be separated from the Chart rectangle. By default, margins are set to half the sum of all Bar Series bar widths."...

You say: You may be clearing some series and the chart keeps reserving space for them to be drawn. Try hiding the empty series. If you still find problems with it, please arrange a simple example we can run as-is to reproduce the problem here. Not so simple as it is connecting to interbase database ...

Got actual program working with groups function TfrmSQLPlanalyzer.UpdateChartData(pSeriesData : TSeriesData): boolean; var Position : TMultiBar; i,iSeriesCount, ibarWidth : integer; labelsWidth : integer; lAxis : TChartAxis; newGroup : TSeriesGroup; newSeries : THorizBarSeries; iSeriesNum : integer;...

New using groups which supposedly don't group. Not sure about that. type TForm1 = class(TForm) Chart1: TChart; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Series1, series2, series3 : THorizBarSeries; BaseSeries : THor...

Great. Code you posted facilitated my understanding of how this works. That settled, I need to create series dynamically and the number of series based on parameters supplied in program. for i := 0 to 1 do begin sSeriesName := 'Series' + IntToStr(i); THorizBarSeries(sSeriesName).Create(Self); <<<< T...

Retract nmy got up this morning. Still problem with 2. Chart1.SeriesGroups.Items[0].Add(Series_0); does not add the series. I have to invoke Chart1.AddSeries(Series_0); to get series to show. Why doesn't Chart1.SeriesGroups.Items[0].Add(Series_0); add the series? But you say the group command doe sn...

Got up this am and chart produced with Chart1.AddSeries(Series_0); commented out. Mysterious gremlins at work. Never the less how do I get the two series bars grouped together and why don't the S1_1 series labels show on the chart??? Series_1.Add(456, 'S1_1', clRed); Series_1.Add(123, 'S1_2', clBlue...

I set chart FreeAndNil and recreate each time I want to fill it with new data. Created other problems but that is another issue.

Thanks

Best regards

Robert

1. In code below groups group nothing on chart. 2. Chart1.SeriesGroups.Items[0].Add(Series_0); does not add the series. I have to invoke Chart1.AddSeries(Series_0); to get series to show. Why doesn't Chart1.SeriesGroups.Items[0].Add(Series_0); add the series? I want two groups with 3 items in each. ...

Hi:

.dfm shows DefaultCanvas := 'TGDIPlusCanvas';

TChart has no such property as DefaultCanvas but only a DelphiCanvas.

Why doesn't this pop up an error?

Thanks

I fill chart w/data programmatically. When I run the same data fill routines again, the horizontal bars are halved in height and/or spaced further apart. If I run again spaced off the chart. I have tried clearing the chart/series/groups but to no avail. I have to shut the program and restart to get ...