Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Вниз

Помогите разобраться с 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;
Вот это ты используешь что бы повернуть?
Попробуй повернуть не свойствами чарта, а сделав изменения в формуле. Те выводи уже повернутое...

---

← →
Shopot ©   (2006-03-31 23:56) [2]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c