Работа с VirtualTreeView

[Mitron]

может дадите ссылочку на русский вариант, а то с английским как то не сильно дружу ....

Скиньте пожалуйста ссылку на рускоязычный туториал,а то везде английский да немецкий ((

[BOBAH13]

В королевстве вроде была статья...

[Mitron]

подскажите еще какойнибудь источник, что-то запасы королевства иссякают((

[AnTe]

подниму старую темку.

Пожалуй, единственный обширный хелп, на русском языке, я нашёл какую-то pdf-ку. К сожалению, потерял ссылку, а та, что указана в документе: Последняя версия статьи и исходные коды всех проектов, представленных в материалах статьи, всегда могут быть скачаны по адресу:
http://quadr0.pochta.ru/VirtualTreev...altreeview.zip
Версия статьи в Adobe PDF формате доступна по адресу:
http://quadr0.pochta.ru/VirtualTreev...eeview_pdf.zip - не работает)

по всей видимости, исходник, т.е. как это всё создавалось, тут: http://forum.vingrad.ru/forum/topic-...ml#st_0_view_0

В принципе, это всё. С оф.сайта, почему-то не получается выкачать родную документацию, на английском, но всё равно, ищу максимум информации на русском, может, кто-нибудь подскажет?

и у меня следующий вопрос, нельзя ли к узлам привязать ОБЪЕКТЫ ?

В примерах связывают только record, причём каким-то мудрёным образом:

type
PPhoneNode = ^TPhoneNode;
TPhoneNode = record
Name, // Имя контакта
Phone: WideString; // Телефон
end;
...

VT.NodeDataSize := SizeOf(TPhoneNode);
....

procedure TfrmMain.BtnAddClick(Sender: TObject);
var
NewNode: PVirtualNode;
NewPhone: PPhoneNode;
begin
NewNode := VT.AddChild(VT.FocusedNode);
NewPhone := VT.GetNodeData(NewNode);
if Assigned(NewPhone) then
with NewPhone^ do
begin
Name := EdName.Text;
Phone := EdPhone.Text;
end;
end;

Меня смущает конструкция:

NewPhone := VT.GetNodeData(NewNode);
with NewPhone^ do
...

в NewPhone, при выполнении первой строки - мусор! По всей логике, должно быть наоборот, в NewNode, в свойство Data, присваивать ссылку на NewPhone, например, сразу в методе Add, полное объявление которого

function TBaseVirtualTree.AddChild(Parent: PVirtualNode; UserData: Pointer = nil): PVirtualNode;

Несмотря на то, что тип хранимых данных - pointer, я попробовал создавать узлы примерно так: AddChild(VN, MyObject1) (TMyObject = class ..., VT.NodeDataSize := SizeOf(TMyObject))

а затем, в GetText приводить обратно:

MyObj := TMyObject(AddChild.GetNodeData(...) ) - вываливается с каким-то исключением (завтра проверю)

у меня есть куча объектов, с полиморфными функциями, которые хотелось бы привязать, к дереву, record-ами уже и пользоваться разучился , всё на классах построено, такой вроде замечательный компонент, и такой странный затык

[AnTe]

Уфф, припарился окончательно.

 PRec = ^TRec;
  TRec = record
    name: string;
    num: integer;
    obj: TObject;
  end;

...

procedure TfmTest.btnGoClick(Sender: TObject);
var
  NewNode: PVirtualNode;
  Rec: PRec;
begin
  VT.NodeDataSize := SizeOf(TRec);
  NewNode := VT.AddChild(VT.FocusedNode);
  Rec := VT.GetNodeData(NewNode);
  if Assigned(Rec) then
    with Rec^ do
    begin
      Name := 'Test';
      num := 0;
      Obj := TObject.Create;
      showmess(obj.ClassName); // Выводит "TObject"
    end;
end;

procedure TfmTest.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
 Data: PRec;
begin
 Data := Sender.GetNodeData(Node);
 if Assigned(Data) then
 begin
  CellText := Data^.Name; // работает
  CellText := Data^.Obj.ClassName; // не работает! в Obj лежит nil!
  end;
end;

сформулирую вопрос:

как в VirtualTreeView привязать к узлам дерева объекты?

в узлах TreeView от делфей, есть прекрасное свойство Data, которое имеет тип pointer. Через это свойство я и привязывал к узлу свой объект.

В VirtualTreeView механизм какой-то муторный. Внутри хранятся данные типа "запись", доступ - через мудрёный метод GetNodeData(Node).

Я думаю, проблема где-то в нём:

function TBaseVirtualTree.GetNodeData(Node: PVirtualNode): Pointer;

// Returns the address of the user defined data area in the node.

begin
  Assert(FNodeDataSize > 0, 'NodeDataSize not initialized.');

  if (FNodeDataSize <= 0) or (Node = nil) or (Node = FRoot) then
    Result := nil
  else
    Result := PByte(@Node.Data) + FTotalInternalDataSize;
end;

Что можно сделать?

[AnTe]

Имеем

TreeView - свойство Data: Pointer
VirtualTreeView - метод GetNodeData: Pointer;

пишу две процедуры

procedure TfmTest.btnTreeViewClick(Sender: TObject);
var TN: TTreeNode;
begin
  TN := TreeView1.Items.AddFirst(nil, 'First');
  TN.Data := TObject.Create; // положил
  ShowMessage(Tobject(TN.Data).ClassName);  // вывел, успешно
end;


procedure TfmTest.btnVirtualTreeViewClick(Sender: TObject);
var
  NewNode: PVirtualNode;
begin
  VT.NodeDataSize := SizeOf(TObject);
  NewNode := VT.AddChild(nil, TObject.Create); // положил
  ShowMessage(Tobject(VT.GetNodeData(NewNode)).ClassName); // вывел, неуспешно, т.к. по какой-то причине нужно использовать p^
end;

ShowMessage(Tobject(VT.GetNodeData( NewNode)^).ClassName);
Работает превосходно

После разбирательств выяснена причина, в методе GetNodeData:
Result := PByte(@Node.Data) + ....
т.е. реально результат возращает указатель, на указатель!
потому то крышечку и надо ставить

я всё никак не пойму, с какой целью эти танцы с бубном производятся?
неужто, чтобы данные типа record хранить в дереве?
ЗАЧЕМ??

[Korben5E]

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

Имеем

TreeView - свойство Data: Pointer
VirtualTreeView - метод GetNodeData: Pointer;

пишу две процедуры

это собитие при щелчке на существующий елемент
заполнение происходит или при создании формы или в процессе работы

procedure TfmTest.btnTreeViewClick(Sender: TObject);
var TN: TTreeNode;
begin
  TN := TreeView1.Items.AddFirst(nil, 'First');


  TN.Data := TObject.Create; // положил
и ложить сюда ты будешь при каждом щелчке......

  ShowMessage(Tobject(TN.Data).ClassName);  // вывел, успешно
end;


procedure TfmTest.btnVirtualTreeViewClick(Sender: TObject);
var
  NewNode: PVirtualNode;
begin
  VT.NodeDataSize := SizeOf(TObject);


  NewNode := VT.AddChild(nil, TObject.Create); // положил
  ShowMessage(Tobject(VT.GetNodeData(NewNode)).ClassName); 


// вывел, неуспешно, т.к. по какой-то причине нужно использовать p^
end;

ShowMessage(Tobject(VT.GetNodeData( NewNode)^).ClassName);
Работает превосходно

После разбирательств выяснена причина, в методе GetNodeData:
Result := PByte(@Node.Data) + ....
т.е. реально результат возращает указатель, на указатель!
потому то крышечку и надо ставить

я всё никак не пойму, с какой целью эти танцы с бубном производятся?
неужто, чтобы данные типа record хранить в дереве?
ЗАЧЕМ??

элемент Node.Data - это указатель, размер которого равен машинному слову - для тебя 4 байта и не более (это болезнь всех кто не учит язык С(си))

по этому ты можешь вписать в Data только указатель на объект в памяти

если ты объявляешь переменную типа ОБЪЕКТ(не обязательно TObject)- то она уничтожается при выходе из процедуры

ты должен создать переменную типа указатель ОБЪЕКТ(^....)
в этот указатель выделить память для объекта

и добавить этот объект с помощью AddObject или AddChildObject

при получении данных да с помощью кастинга присваиваешь Node.Data
в перменную

xx: PRec;
begin
xx := PRec(Node.Data);

потом работаешь с хх как с обычной структурой

уточни что ты вообще хочешь от дерева с объектами

[AnTe]

Спасибо за ответ!

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

это собитие при щелчке на существующий елемент
заполнение происходит или при создании формы или в процессе работы
...
и ложить сюда ты будешь при каждом щелчке......

Это тестовая форма, кнопка нажимается только один раз, как раз для теста

элемент Node.Data - это указатель, размер которого равен машинному слову - для тебя 4 байта и не более (это болезнь всех кто не учит язык С(си))

Именно так, посему в "VT.NodeDataSize := SizeOf(TObject);", SizeOf используется для лаконичности, наглядности и на будущее. Тем более, один хрен вычислится всего один раз, да, наверное, на этапе компиляции

по этому ты можешь вписать в Data только указатель на объект в памяти

Вот я и указываю, на TObject.Create, переменные объектов в делфях по умолчанию указатели.

если ты объявляешь переменную типа ОБЪЕКТ(не обязательно TObject)- то она уничтожается при выходе из процедуры

Наоборот! Объекты не удаляются, пока сам не грохнешь, и приводят к утечкам, если так и забудешь грохать! Ведь сборщик мусора в делфях, по кр.мере в 7х, отсутствует!

Для переменных типа "запись" - это верно, уничтожится, при выходе из процедуры.

ты должен создать переменную типа указатель ОБЪЕКТ(^....)
в этот указатель выделить память для объекта

Всё таки это лишнее, что видно из кода процедуры для стандартного TreeView. Никуда обжекты не деваются, все живут.

при получении данных да с помощью кастинга присваиваешь Node.Data
в перменную

xx: PRec;
begin
xx := PRec(Node.Data);

потом работаешь с хх как с обычной структурой

Да вот только PRec у меня как раз не сработал

PRec = ^TRec;
  TRec = record
    name: string;
    num: integer;
    obj: TObject;
  end;

procedure TfmTest.btnGoClick(Sender: TObject);
var
  NewNode: PVirtualNode;
  Rec: PRec;
begin
  VT.NodeDataSize := SizeOf(TRec);
  NewNode := VT.AddChild(VT.FocusedNode);
  Rec := VT.GetNodeData(NewNode);
  if Assigned(Rec) then
    with Rec^ do
    begin
      Name := 'Test';
      num := 0;
      Obj := TObject.Create;
      showmess(obj.ClassName); // Выводит "TObject"
    end;
end;

procedure TfmTest.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
 Data: PRec;
begin
 Data := Sender.GetNodeData(Node);
 if Assigned(Data) then
 begin
  CellText := Data^.Name; // работает
  CellText := Data^.Obj.ClassName; // не работает! в Obj лежит nil!
  end;
end;

почему объект из записи самоудалился - загадка

уточни что ты вообще хочешь от дерева с объектами

Уу

Как я уже писал, по стилю программирования, уже и позабыл как страшное слова слово "запись", всё делаю обычно на объектах. Так и здесь.

Во-первых (в главных) у меня уже есть куча объектов, в моей программе, данные из которых я хочу отобразить, в виде дерева.

Во-вторых, объекты от одного прародителя (пусть он зовётся "TMyObject"), у которого я делаю виртуальный метод, что-нибудь вроде "function TMyObject.GetTextForVT: string", ну и ещё кучку методов, выдача иконок, и что там ещё есть.

В обработчиках событий дерева напишу что-то вроде

procedure TfmTest.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText:WideString);
begin
  CellText := TMyObject(VT.GetNodeData(NewNode)).ClassName;
end;

Всё, можно забыть про преобразование данных, и для каждого типа выводить по своему текст, иконку, и т.д., например, для текста, всего лишь указав этот текст в перекрытом методе "GetTextForVT".

В ином случае, если я правильно понимаю, мне нужно будет всё это реализовывать
в обработчике "procedure TfmTest.VTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);", организовывая сложные ветвления, вычисляя каждый раз по-разному текст.

[Korben5E]

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

Спасибо за ответ!
Это тестовая форма, кнопка нажимается только один раз, как раз для теста

Именно так, посему в "VT.NodeDataSize := SizeOf(TObject);", SizeOf используется для лаконичности, наглядности и на будущее. Тем более, один хрен вычислится всего один раз, да, наверное, на этапе компиляции

Вот я и указываю, на TObject.Create, переменные объектов в делфях по умолчанию указатели.

Наоборот! Объекты не удаляются, пока сам не грохнешь, и приводят к утечкам, если так и забудешь грохать! Ведь сборщик мусора в делфях, по кр.мере в 7х, отсутствует!

Для переменных типа "запись" - это верно, уничтожится, при выходе из процедуры.

Всё таки это лишнее, что видно из кода процедуры для стандартного TreeView. Никуда обжекты не деваются, все живут.

Да вот только PRec у меня как раз не сработал

вот в том-то все и дело - дельфа скрывает данный механизм от программера и когда появляется необходимость - программер заходит в тупик

Вот пример на С++, сразу скажу что VCL это не поддерживают

тут мы создаем указатель на объект, который планируем создать далее (типа вызвать Create)
TMyObject *obj1;

а тут мы сразу создаем объект... со всеми свойствами, функциями и т.п.
т.е. конструктор отработает именно в этой точке
TMyObject obj2;

если бы такой строгий паскаль, не был таким лояльным с такими операциями - то и вопросов-бы не возникало

вот тебе наваял - на форме 3 компонента, триивьюв и 2 лейбела

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
PRec = ^TRec;
  TRec = record
    name: string;
    num: integer;
    obj: TObject;
  end;

  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
node : TTreeNode;
r : PRec;
begin
    r := New(PRec);
    r.name := 'ROOOT';
    r.num := 11;
    //r.obj :=

    node := TreeView1.Items.AddObject(nil,'root',r);
    r := New(PRec);
    r.name := 'ITEM111';
    r.num := 1222;

    TreeView1.Items.AddChildObject(node,'Item1',r);
    r := New(PRec);
    r.name := 'ITEM222';
    r.num := 1333;
    TreeView1.Items.AddChildObject(node,'Item2',r);

    r := New(PRec);
    r.name := 'ITEM333';
    r.num := 1444;
    TreeView1.Items.AddChildObject(node,'Item3',r);

end;

procedure TForm1.FormDestroy(Sender: TObject);
var
   r : PRec;
   i : integer;
begin
    While TreeView1.Items.Count > 0 do
    begin
        i := TreeView1.Items.Count-1;
        r := TreeView1.Items.Item[i].Data;
        Dispose(r);
        TreeView1.Items.Item[i].Delete
    end;
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
    r : PRec;
begin
    r := Node.Data;
    Label1.Caption := 'Text in Data pointer '+ r.name + ' with labeled text - ' + Node.Text;
    Label2.Caption := 'Number in Data pointer:'+IntToStr(r.num);
end;

end.

[AnTe]

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

вот в том-то все и дело - дельфа скрывает данный механизм от программера и когда появляется необходимость - программер заходит в тупик

ммм... про какой механизм идёт речь?
Вопросы возникли по стороннему компоненту,
Virtual Treeview http://www.soft-gems.net

Вот пример на С++, сразу скажу что VCL это не поддерживают

тут мы создаем указатель на объект, который планируем создать далее (типа вызвать Create)
TMyObject *obj1;

а тут мы сразу создаем объект... со всеми свойствами, функциями и т.п.
т.е. конструктор отработает именно в этой точке
TMyObject obj2;

если бы такой строгий паскаль, не был таким лояльным с такими операциями - то и вопросов-бы не возникало

В паскале нужно вызвать obj2 := TMyObject.create явно, т.о. переменная ВСЕГДА будет ссылкой, если я правильно понимаю, но мне это никогда не мешало...

вот тебе наваял - на форме 3 компонента, триивьюв и 2 лейбела

Спасибо, но что он демонстрирует? Да, память под переменную типа "запись", можно выделить отдельно, при помощи оператора new, и действительно это не слишком затратно, в реализации.

У меня была проблема с передачей в VT объекта, а после решения проблемы, я задумался над тем, ЗАЧЕМ в VT с полем DATA придуманы такие сложности.