Форум: "Потрепаться";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Вниз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 делать.
← →
Hirara (2002-11-13 23:40) [4]Блин пока сам ответ не найдеш хрен кто чо скажет, все ламо .
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;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c