TChart

← →
Hirara © (2002-11-09 17:03) [0]

Проблемка :
Ser:=TChartSeries.Create(Form2.Chart1);
Form2.Chart1.AddSeries(Ser);
Form2.Chart1.Series[0].Clear;
Form2.Chart1.Series[0].AddXY(10,10);
Form2.Chart1.Series[0].AddXY(20,20);
Form2.Chart1.Series[0].AddXY(30,30);

После этого рисуется сетка значений, но ни точки, ни линии , которые должны их соединять почему то не прорисовываются. Помогайте.

← →
Hirara © (2002-11-09 23:39) [1]

все ламо?

← →
Sergo © (2002-11-10 08:22) [2]

Я воспроизвел твои данные (код приведен ниже), у меня рисуется линия, которая идет из 0 по диагонали вверх. Как я понял у тебя Tchart ActiveX, скачай себе TchartPro 5.0 Evaluation Version - проблем будет меньше.

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type TForm1 = class(TForm) Chart1: TChart; Series1: TLineSeries; procedure Chart1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Chart1Click(Sender: TObject); begin Series1.Clear; Series1.AddXY(10,10); Series1.AddXY(20,20); Series1.AddXY(30,30); end; end.

← →
Hirara © (2002-11-10 17:03) [3]

> Sergo

Дело не в этом.
Просто у меня заранее неизвестно количество серий, мне надо обязательно через create делать.

Блин пока сам ответ не найдеш хрен кто чо скажет, все ламо .

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var S: String;
i,j: Integer;
Ser : TLineSeries ;
begin
ListBox1.Items.Add(Socket.RemoteAddress);

For i:=0 to ListBox1.Items.Count-1 do
Begin
S:="";
S:=ListBox1.Items[i];
Socket.SendText(#1+s);
End;

For j:= 0 to ServerSocket1.Socket.ActiveConnections-2 do
Begin
S:=Socket.RemoteAddress;
ServerSocket1.Socket.Connections[j].SendText(#1 + s);
End;
i:=0;
While i<=ListBox2.Items.Count-1 do
Begin
if Socket.RemoteAddress=ListBox3.Items[i] Then
Begin
Socket.SendText(#3+ListBox5.Items[i]+"From ("+ListBox2.Items[i]+") : "+ListBox4.Items[i]);
Memo1.Lines.Add("("+ListBox2.Items[i]+") to (" +ListBox3.Items[i]+ ") : "+ListBox4.Items[i]);
ListBox2.Items.Delete(i);
ListBox3.Items.Delete(i);
ListBox4.Items.Delete(i);
ListBox5.Items.Delete(i);
ListBox6.Items.Delete(i);
continue;
End;
inc(i);

End;

Ser:=TLineSeries.Create(Form2.Chart1);
Form2.Chart1.AddSeries(Ser);
//Ser.Free;

end;

TChart Найти похожие ветки