Помогите разобраться с TChart ом.

← →
Shopot © (2006-03-27 22:21) [0]

Помогите!!! Дело такое: из потока TThread вывожу на 2 TChart"а
графики вертикально (перевертыши на 90). Диапазон в 2000 единиц по X (то есть по Y до поворота) рисует. А вот в 20 000 ед. отказывается. Привожу код:

procedure TMyThread.Execute; var alpha: Double; begin frmMain.Series1.Clear; frmMain.Series2.Clear; // Это чтобы можно было их нарисовать вертикально frmMain.Series1.XValues.Order := loNone; frmMain.Series1.YValues.Order := loNone; //loDescending; frmMain.Series2.XValues.Order := loNone; frmMain.Series2.YValues.Order := loNone; //loDescending; alpha := 0; while not Terminated do begin Sleep(5); frmMain.Series1.AddXY(1000 * sin(alpha), alpha); Sleep(5); frmMain.Series2.AddXY(10000 * cos(alpha), alpha); alpha := alpha + Pi / 10; end; end;

← →
Kolan © (2006-03-28 20:42) [1]

1. Не работай с чартом, да и с другими виз. компенентами, в доп. пототоке. Используй для отображения главный.

2.Что значит отказывается.

3. rmMain.Series1.XValues.Order := loNone; frmMain.Series1.YValues.Order := loNone; //loDescending; frmMain.Series2.XValues.Order := loNone; frmMain.Series2.YValues.Order := loNone; //loDescending;
Вот это ты используешь что бы повернуть?
Попробуй повернуть не свойствами чарта, а сделав изменения в формуле. Те выводи уже повернутое...

>Kolan
>Те выводи уже повернутое...

Без установки этих свойств не получится повернуть.
И как выводить в основном потоке, вычисления же идут в TThread"е?

Помогите разобраться с TChart ом. Найти похожие ветки