[AntiMag1991]

Помогите понять этот компонент!

пример моей программы я не пойму как сделать вывод name2
Код где производится вывод как я понял VST1GetText,но как правильней сделать не знаю.
Если есть у кого нить примеры, покидайте мне их пожалуйста! Уже где то месяц пытаюсь понять этот компонент.

Код:

Tdata = record
    name1:Srting[255];
    name2:String[255];
    chislo1:integer;
    chislo2:integer

Код:

procedure TForm_VST.FormCreate(Sender: TObject);
var
  RootNode, ChildNode: PVirtualNode;
  I, J: integer;
begin
  VST1.NodeDataSize := SizeOf(TNodeBilder);
  for I := 0 to 1 do
  begin
    RootNode := VST1.AddChild(nil);
    if I = 0 then
    begin
      TData := VST1.GetNodeData(RootNode);
      TData.name1:= 'Гравная строка 1';
      for J := 1 to 5 do
      begin
        ChildNode := VST1.AddChild(RootNode);
        TData := VST1.GetNodeData(ChildNode);
        TData.name2:= 'пулл' + inttostr(J);
        TData.chislo2:=  J;
      end;
    end;
    if I = 1 then
    begin
      TData := VST1.GetNodeData(RootNode);
      TData.name1:= 'Гравная строка 2';
    end;
  end;
end;

Код:

procedure TForm_VST.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
  I, J: integer;
begin
  TData := Sender.GetNodeData(Node);

  case Column of
    - 1, 0:
      begin
        if Assigned(TData) then
          CellText := TData.name1   
        else
          CellText := TData.name2;
      end;
    1:
      begin
        if Assigned(TData) then
          CellText := TData.chislo2;
      end;
  end;
end;

[Alegun]

На семёрку это не ставится,что за зверь понять из восьмисотстраничного мануала не удалось,вопрос,если такие сложности с использованием, может,да ну его нафик,можно обойтись стандартными средствами делфи?

[AntiMag1991]

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

На семёрку это не ставится,что за зверь понять из восьмисотстраничного мануала не удалось,вопрос,если такие сложности с использованием, может,да ну его нафик,можно обойтись стандартными средствами делфи?

Использую rad 10. Я бы с радостью но стандартными средствами я не нашел как сделать одну таблицу с выпадающим списком таблицы.
А то что мануал страшный это да, весь почти его изучил но до сих пор не понял логики этого зверька.

[AntiMag1991]

Не подскажешь как мне обновить данные в таблице ?
Тут происходит прорисовка данных, а если в базе изменились через 10 секунд данные то как их обновить на форме, и как их можно вызвать таймером ?

Код:

procedure TForm_VST.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);

Более точная мысль. Есть таймер на форме1 и есть таблица(Этот компонент) на форме2 на первой форме создается поток которы обновляет с интернета данные и записывает в базу каждые 15 секунд (уже привязано к таймеру) осталось как то обновить их в таблице.