김종근 wrote:

>

>

> ActiveX에 있는 VtChart의 Row 및 Column이 6줄,5칸이상 늘어나지 않는군요.

> 제가 잘몰라서 안되는 것인지 아니면 원래 그렇게 생겨먹은 건지 답종 부탁드립니다.

>

> 만약에 산다면 가격은 어느정도 하지지도 답해 주시면 고맙구요.

>

>

> 부탁드립니다. 델파이동지 여러분.

********************************************************************************

안녕하세요..

저도 얼마전에 위와 같은 고민을 좀 했기 때문에 늦게 나마 답변을 올립니다.

vtchart는 데이터가 12정도 이상(Delphi4.0에 있는것)으로는 들어 가지 않습니다.

그렇게 들어 가도록 제한을 해 놓았겠죠..

업무에 이용하시려면 구입해서 하라는 의미겠죠..^^

http://www.tidestone.com/ 여기에 가보시면 상세한 정보를 볼수 있습니다.

트라이얼 버전도 올라와 있으니 다운 받으셔서 사용해 보세요.

데이터가 12보다는 훨 많이 들어 가더군요..ㅋㅋ

아래는 해당 차트의 소스 인데 Chart type은 xy(Scatter)입니다.

여기에는 데이터가 스트링 형태의 배열로 들어 가고 x,y값을 읽어서 그래프를 그려 줍니다.데이터가 어떻게 들어 가는지만을 간략히 올려 놨으니 참조 하세요...



procedure Tfrm_1022.FormShow(Sender: TObject);

var

sPsql : String;

ncolumn : Integer;

nrow : Integer;

nCnt : Integer;

sData : array of array of string;

k : integer;

l : integer;

totCnt : Integer; //총레코드수

begin

sPsql := 'select * from Sul_SubData where SulNum = ''' +sQueryID+'''';

Qry.Close;

Qry.Sql.Clear;

Qry.Sql.Add(sPsql);

Qry.Open;

totCnt := Qry.RecordCount;

SetLength(sData,totCnt,2);

PhQry.First;



for k := 0 to totCnt - 1 do

begin

sData[k,0] := PhQry.FieldByName('X').AsString;

sData[k,1] := PhQry.FieldByName('Y').AsString;

Qry.Next;

end;



VtChart1.ColumnCount := 2;

VtChart1.RowCount := totCnt;



for k := 0 to totCnt-1 do

begin

VtChart1.Row := k+1;

for l := 0 to 1 do

begin

VtChart11.Column := l+1;

VtChart11.Data := sData[k,l];

end;

end;



end;