DBChart и DBGrid получение графика по строке

[funball]

Здравствуйте.
У меня есть по сути легких 2 вопроса, но так как мои знания маловаты, я хочу спросить у вас

1) Подскажите пжл. новечку - возможно ли получить график DBChart не из колонки, а из строки набора данных. Например щелкнуть на DBGrid по определенной строке и получить график значений этой строки?(для примера во вложении элюстрация того что мне надо реализовать).
Или это невозможно и надо лоять на сервере новую таблицу и загружать в нее данные в формате колонки по нужным критериям, потом грузить ее в ADOQuery и по ней уже получать график. Не хотелось бы заниматься таким обходным путем, все-таки время на загрузку важно.

2)Возможно ли реализовать в DBGrid вертикальный скрол таким образом, чтобы когда его тянешь, одновременно с ним проходили и данные, а не посе того как отпустишь?

Спасибо

[artemavd]

1) Подскажите пжл. новечку - возможно ли получить график DBChart не из колонки, а из строки набора данных. Например щелкнуть на DBGrid по определенной строке и получить график значений этой строки?(для примера во вложении элюстрация того что мне надо реализовать).

Знаешь, я не знаю как DBChart это сделать, т.к. я такое делал через обычный Chart. Делал вот так:

Form2.Table_pokazateli.Next;
   With Form6.Series2 do
   begin
    try
    Clear;
    c_1:=Form2.Table_pokazateli.FieldByName('DVOEK').AsInteger;
    c_2:=Form2.Table_pokazateli.FieldByName('TROEK').AsInteger;
    c_3:=Form2.Table_pokazateli.FieldByName('CHETVEROK').AsInteger;
    c_4:=Form2.Table_pokazateli.FieldByName('PYTEROK').AsInteger;
    Add(c_1,'2-ек = ',clGreen);
    Add(c_2, '3-ек = ', clYellow);
    Add(c_3, '4-ок = ', clBlue);
    Add(c_4, '5-ок = ', clRed);
    except
    on EConvertError do
     u:=1;
    end;
   end;

Ведь данные беруться не из DBGrid-a, а из DataSet-a. Этот код у меня был в процедуре кнопки, о чем свидетельствует строчка

Form2.Table_pokazateli.Next;

. Таким образом, я перемещался по строчке в DBGrid-e и получал новый график в зависимости от знаений. Это работает. Пример простой, если не понятно, то спрашивайте.

2)Возможно ли реализовать в DBGrid вертикальный скрол таким образом, чтобы когда его тянешь, одновременно с ним проходили и данные, а не посе того как отпустишь?

А не проще использовать процедуру типа: Table1.Next??

[Stilet]

в DBGrid вертикальный скрол

http://www.delphiworld.narod.ru/base...rt_scroll.html

а из строки набора данных.

Да, но я бы просто сделал обычным Chart.
Стал на запись, в цикле по полям прошклся и добавил в график их данные.

[artemavd]

Да, но я бы просто сделал обычным Chart.
Стал на запись, в цикле по полям прошклся и добавил в график их данные.

О чём и речь

[funball]

Сообщение от artemavd

Знаешь, я не знаю как DBChart это сделать, т.к. я такое делал через обычный Chart. Делал вот так:

Form2.Table_pokazateli.Next;
   With Form6.Series2 do
   begin
    try
    Clear;
    c_1:=Form2.Table_pokazateli.FieldByName('DVOEK').AsInteger;
    c_2:=Form2.Table_pokazateli.FieldByName('TROEK').AsInteger;
    c_3:=Form2.Table_pokazateli.FieldByName('CHETVEROK').AsInteger;
    c_4:=Form2.Table_pokazateli.FieldByName('PYTEROK').AsInteger;
    Add(c_1,'2-ек = ',clGreen);
    Add(c_2, '3-ек = ', clYellow);
    Add(c_3, '4-ок = ', clBlue);
    Add(c_4, '5-ок = ', clRed);
    except
    on EConvertError do
     u:=1;
    end;
   end;

Пример простой, если не понятно, то спрашивайте.

Да, спасибо, идея понятна, как это я сам не додумал, но так как первый раз столкнулся с графиком, есть глупый вопрос - с присвоением значений графику:
в вашем примере c_1 - это я так понял значения по Y...так как мне определить обозначение этих Y значений, я в смысле к чему присваисать ADOQ.FBN('кол').integ?
например series1.чего-то там(1-ое значение по Y).value:=ADOQ.FBN('кол').integ

[Stilet]

artemavd

Ты просто раньше пост поставил.

funball

Дык у него же написано добавление значения к графику:

   Add(c_1,'2-ек = ',clGreen);

[funball]

Сообщение от Stilet

Дык у него же написано добавление значения к графику:

   Add(c_1,'2-ек = ',clGreen);

Получилось чего-то
реализовал таким образом:

procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
with Series1 do
begin
  Clear;
  Series1.YValue[1]:=ADOQuery_all_st_routers.FieldByName('D09').AsInteger;
  Series1.YValue[2]:=ADOQuery_all_st_routers.FieldByName('D10').AsInteger;
  Series1.YValue[3]:=ADOQuery_all_st_routers.FieldByName('D11').AsInteger;
  Series1.YValue[3]:=ADOQuery_all_st_routers.FieldByName('D14').AsInteger;
end;
end;

[artemavd]

Получилось чего-то

Ну и поставь + если наши советы оказались дельными. Че жалко чтоли +

[funball]

Сообщение от artemavd

Ну и поставь + если наши советы оказались дельными. Че жалко чтоли +

Да что вы Мне не жалко, за всю историю на этом форуме мне вы Stilet, artemavd очень помогли Только я вам уже ставил + и сейчас мне не дают поставить еще...

[Stilet]

Все прекращаем не по теме. Такие обсуждения в личку, ато закрою.