procedure TFormDalView.ChartDraw;

var

LineSeries : TLineSeries;

BarSeries : TBarSeries;

FastLineSeries: TFastLineSeries;

HorizBarSeries: THorizBarSeries;

PointSeries : TPointSeries;

i : word;

ChartColor : Array[0..14] of Integer;

begin

//현재 보여주고 있는 그래프를 모두 지운다.

ChartUseCom.RemoveAllSeries;

// ChartColor := BoxChartColor.ItemIndex;



// Case BoxChartColor.ItemIndex of

ChartColor[0] := clBlack;

ChartColor[1] := clMaroon;

ChartColor[2] := clGreen;

ChartColor[3] := clOlive;

ChartColor[4] := clNavy;

ChartColor[5] := clPurple;

ChartColor[6] := clTeal;

ChartColor[7] := clGray;

ChartColor[8] := clSilver;

ChartColor[9] := clRed;

ChartColor[10] := clLime;

ChartColor[11] := clYellow;

ChartColor[12] := clFuchsia;

ChartColor[13] := clAqua;

ChartColor[14] := clWhite;

// end;



if BoxGraphClass.ItemIndex = 1 then NotebookChart.PageIndex := 1

else NotebookChart.PageIndex := 0;

case BoxGraphClass.ItemIndex of

0: begin

BarSeries := TBarSeries.Create(Self);// <- Line 생성

for i:=1 to GridChart.RowCount-1 do

BarSeries.Add(StrToInt(GridChart.Cells[1,i]),GridChart.Cells[0,i],ChartColor[BoxChartColor.ItemIndex]);

ChartUseCom.AddSeries(BarSeries);//그래프를 챠트에 등록한다.

end;

1: begin

Series2.Clear;

for i:=1 to GridChart.RowCount-1 do

Series2.Add(StrToInt(GridChart.Cells[1,i]),GridChart.Cells[0,i],ChartColor[i mod 14]);

end;

2: begin

LineSeries := TLineSeries.Create(Self);// <- Line 생성

for i:=1 to GridChart.RowCount-1 do

LineSeries.Add(StrToInt(GridChart.Cells[1,i]),GridChart.Cells[0,i],ChartColor[BoxChartColor.ItemIndex]);

ChartUseCom.AddSeries(LineSeries);//그래프를 챠트에 등록한다.

end;

3 : begin

FastLineSeries := TFastLineSeries.Create(Self);// <- Line 생성

for i:=1 to GridChart.RowCount-1 do

FastLineSeries.Add(StrToInt(GridChart.Cells[1,i]),GridChart.Cells[0,i],ChartColor[BoxChartColor.ItemIndex]);

ChartUseCom.AddSeries(FastLineSeries);//그래프를 챠트에 등록한다.

end;

4 : begin

HorizBarSeries := THorizBarSeries.Create(Self);// <- Line 생성

for i:=1 to GridChart.RowCount-1 do

HorizBarSeries.Add(StrToInt(GridChart.Cells[1,i]),GridChart.Cells[0,i],ChartColor[BoxChartColor.ItemIndex]);

ChartUseCom.AddSeries(HorizBarSeries);//그래프를 챠트에 등록한다.

end;

5 : begin

PointSeries := TPointSeries.Create(Self);// <- Line 생성

for i:=1 to GridChart.RowCount-1 do

PointSeries.Add(StrToInt(GridChart.Cells[1,i]),GridChart.Cells[0,i],ChartColor[BoxChartColor.ItemIndex]);

ChartUseCom.AddSeries(PointSeries);//그래프를 챠트에 등록한다.

end;



end;

end;

위 소스를 보시고 답변좀 해주세요

지금 위의 소스는 사용자별로 선택해서 그래프를 보여주는데

제가 해야될일은 한그래프에 모든사용자들의 정보를 나타내고 십거든요

그런데 제가 델파이를 시작한지 이제 이틀밖에 안되서

잘모르겠네요

아시는 분있으면 자세히좀 가르쳐주세요

감사합니다