Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 25350
Рейтинг: 2070
#16: 2019-03-17 01:03:09 ЛС | профиль | цитата
Iliya писал(а):
А каким образом можно снять выделение?

Насколько я понял, то автор этого не предусмотрел. В обычном TreeView -1 работает, те полностью снимает выделение, а вот в TreeViewTrain -1 действительно ничего не делает. Я попытался сделать код по аналогии с обычным элементом, но у меня ничего не вышло, начало вылетать с ошибкой, надо глубже копать чужой код, но пока нет времени этим заниматься.
карма: 19

0
Ответов: 211
Рейтинг: 6
#17: 2019-03-17 03:05:44 ЛС | профиль | цитата
nesco писал(а):


Спасибо что откликнулся! Готов заплатить если получится сделать

карма: 2

0
Разработчик
Ответов: 25350
Рейтинг: 2070
#18: 2019-03-17 04:02:24 ЛС | профиль | цитата
Iliya писал(а):
если получится сделать

Вот уж не знаю, подозреваю, что это вообще может не получиться в данной реализации, там все очень сильно взаимосвязано.
карма: 19

0
Разработчик
Ответов: 25350
Рейтинг: 2070
#19: 2019-03-17 12:19:49 ЛС | профиль | цитата
Iliya, исправь методы на приведенные ниже:

в файле hiITVT_SelectNode.pas


procedure THITVT_SelectNode._work_doSelectNode;
var n:cardinal;
d:TData;
begin
d := ReadData(_Data, _data_ID);
n := _prop_TreeView.findNode(d);;
_prop_TreeView.Control.TVSelected := n;
if n = 0 then
_hi_onEvent(_event_onSelectFailed)
else
_hi_onEvent(_event_onSelectNode);
end;


в файле hiTreeViewTrain.pas


procedure THITreeViewTrain._OnClick(Obj:PObj);
var d:PData;
begin
if Control.TVSelected = 0 then exit;
d := Control.TVItemData[Control.TVSelected];
_hi_onEvent_(_event_onClick, d^);
end;

Если будет работать нормально, то введу поправки на SVN
карма: 19

0
Ответов: 211
Рейтинг: 6
#20: 2019-03-17 12:46:42 ЛС | профиль | цитата
nesco, Спасибо! Работает! У тебя есть киви или янд кошель?
карма: 2

0
Разработчик
Ответов: 25350
Рейтинг: 2070
#21: 2019-03-17 12:53:46 ЛС | профиль | цитата
Iliya писал(а):
У тебя есть киви или янд кошель?

QIWI есть. Если хочешь задонатить копеечку то пиши в личку
карма: 19

0
21
Сообщение
...
Прикрепленные файлы
(файлы не залиты)