VPF::Довести до ума multirow virtual treeview - Форум программистов

sanik

Дата 19.4.2012, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 23.12.2004

Репутация: нет
Всего: 1

Приветствую,

Начал делать тестовый проект для вывода данных из таблицы базы данных в virtual treeview.
Попытался как смог адаптировать различные примеры, найденные в сети.

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

Начало получаться, но с существенными недочетами. Если нажать на первую кнопку (там под ней код с жестко зашитым текстом для узлов из примера)- то все равно выводит первый узел с дочками из таблицы базы. Догадываюсь, что рабтает другое событие. Не понял, как заставить показываться плюсик перед материнским топиком, если нажать на вторую кнопку, которая грузит всю таблицу.

Переделал код первой кнопки - стала обрабатывать все материнские топики и показывать childs

Код


procedure TForm1.Button2Click(Sender: TObject);
var
 RootNode, ChildNode: PVirtualNode;
 I: Integer;
 Data: PVSTRecord;
begin
    WITH ADOQuery1 DO
     BEGIN
      ADOQuery1.First;
      for I := 0 to ADOQuery1.RecordCount do
       begin
        If ADOQuery1.FieldByName('ParentID').AsInteger = -1
         then
          begin
          RootNode := VST.AddChild(VST.RootNode);
                      VST.ReinitNode(RootNode, False);
          end;
        If ADOQuery1.FieldByName('ParentID').AsInteger > -1
         then
          begin
           ChildNode := VST.AddChild(RootNode);
                        VST.ReinitNode(ChildNode, False);
          end;
        Next;
       end;
    End;
end;

Не понятно как управлять параметрами шрифта для колонок, цветом и пр.
Есть еще вопросы по ходу, как сделать/обеспечить синхронизацию передвижения по дереву и показу справа подробной карточки для узла, так как с узлом, ессно, связано много информации.
Есть вариант с таким редактором (на основе RichView), но это пока не важно, хотелось бы отладить корректный показ и управление деревом.
исходники в атачменте
Там находится db.mdb файл, который надо положить в тот каталог, прописанный в ODBC для Microsoft ACCESS

Это сообщение отредактировал(а) sanik - 19.4.2012, 20:22

Присоединённый файл ( Кол-во скачиваний: 19 )

VirtualTree_Multirows.zip 26,04 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »