| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите разобраться с TChart'ом. [D6, Win95/98, WinXP]

Shopot ©   (2006-03-27 22:21:00) 

Помогите!!! Дело такое: из потока 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;



---

Shopot   (2006-03-31 23:56:00) [1]

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

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

---

Kolan   (2006-03-28 20:42:00) [2]

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

---

Наверх