Ээээ. TVT целиком на событиях. Что там "фрикать"?

Question

Delphi & Lazarus

Michael Longneck

Ээээ. TVT целиком на событиях. Что там "фрикать"?

#lazarus #programming #russian

0

04.05.2022

7 ответов

25 просмотров

Ed Doc

Катерина Свиридова
Вы совершенно правы. Ломается со второго вызова в ...

Катюш, мне кажется, ты погорячилась. Не знаю, чо там в демках (я так и не смог выпилить встроенный vtv из Лазаря, а сторонние на ем не запускаются), но мануала для начала хватило, а потом понятна стала логика. Да и исходники там хорошо конспектированы https://wiki.freepascal.org/VirtualTreeview_Example_for_Lazarus/ru

0

04.05.2022

Катерина Свиридова

Ed Doc
Катюш, мне кажется, ты погорячилась. Не знаю, чо т...

Да особо и не настаиваю, компонента мне понравилась, я сразу сказала. С dfm ситуация сильно напомнола unigui, там часто в динамике что-то не получается сделать и либо делается через JS. А вот сделанное в дизайнере работает. Но тут ситуация понятна. За ссылочку спасибо. Попутный вопрос. Увидела procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode); var Data: PTreeData; begin Data := VST.GetNodeData(Node); if Assigned(Data) then begin Data^.Column0 := ''; Data^.Column1 := ''; Data^.Column2 := ''; end; end; А в демке используется Finalize(Data^); // Clear string data. В Лазарусе Finalize нет? Я вообще эту процедуру вижу в первый раз

0

04.05.2022

Ed Doc

Катерина Свиридова
Да особо и не настаиваю, компонента мне понравилас...

Finalize должен работать, просто автор оригинальной статьи решил все ручками сделать. И я бы тоже предпочел этот способ для надёжности Потому что у меня в структуре и указатели, и пользовательские типы используются

0

04.05.2022

zamtmn

Ed Doc
Finalize должен работать, просто автор оригинально...

финализе какраз будет понадежнее шаловливых ручек

0

04.05.2022

Ed Doc

Я всегда утюг отключаю руками. не надеясь на УЗО :)

0

04.05.2022

zamtmn

Ed Doc
Я всегда утюг отключаю руками. не надеясь на УЗО :...

ну, из розетки - так это и есть финализе. а ты еще кабель на вводе в дом клещами реж, для надежности))

0

04.05.2022

Катерина Свиридова · Accepted Answer

Катерина Свиридова

Вы совершенно правы. Ломается со второго вызова в демке procedure TDrawTreeForm.VDT1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode); var Data: PShellObjectData; begin Data := Sender.GetNodeData(Node); Data.Image.Free; Finalize(Data^); // Clear string data. end;

0

04.05.2022

169 похожих чатов

Ээээ. TVT целиком на событиях. Что там "фрикать"?

7 ответов

Похожие вопросы