ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / cxDBTreeList Scroll to Focused Node
5 сообщений из 5, страница 1 из 1
cxDBTreeList Scroll to Focused Node
    #40019861
Двоичник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Двоичник
Участник
Не могу сообразить, как показать узел в cxDBTreeList , на котором стоит фокус

перед UPDATE читаю параметры
Код: pascal
1.
       ID := TcxDBTreeListNode(cxDBTreeList.Selections[I]).KeyValue;



делаю апдейт записи в БД, затем переоткрываю основной ADOQuery для обновления отображаемых данных и код из FAQ:

Код: pascal
1.
2.
3.
4.
5.
6.
  if cxDBTreeList.DataController.LocateByKey(ID) then
                cxDBTreeList.FocusedNode := cxDBTreeList.FindNodeByKeyValue(ID);
                if cxDBTreeList.FocusedNode <> nil then
                begin
                cxDBTreeList.FocusedNode.MakeVisible;
                end;



Но если я изменяю выбранный узел, который нашел в дереве по Scroll'у, иными словами в не видимой области дерева, и до него приходилось мотать, то при всем этом коде, на редактируемый Node фокус встанет, но он не отображается. А хотелось бы, чтобы скролл промотался вниз, чтобы пользователю отображался визуально тот Node, который сейчас Focused.

Помогите, пожалуйста.

Натыкался на
Код: pascal
1.
cxDBTreeList.TopVisibleNode := cxDBTreeList.Items[x].Items[y]


Но я не понял как получить x и y

Спасибо
...
Рейтинг: 0 / 0
18.11.2020, 11:47
| Ответить | Цитировать | Написать  
cxDBTreeList Scroll to Focused Node
    #40019862
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
procedure TreeLocateByKey(Tree: TcxDBTreeList; const vKey: Variant);
begin
  if VarIsNull(vKey) then exit;

  Tree.BeginUpdate;
  try
    if Tree.DataController.LocateByKey(vKey) then
    begin
      Tree.FocusedNode := Tree.FindNodeByKeyValue(vKey);
      if Assigned(Tree.FocusedNode) then
      begin
        Tree.FocusedNode.CheckState := cbsChecked;//отмечаем узел флажком
        Tree.FocusedNode.MakeVisible;
        Tree.TopVisibleNode := Tree.FocusedNode;
      end;
    end;
  finally
    Tree.EndUpdate;
  end;
end;
...
Рейтинг: 0 / 0
18.11.2020, 11:55
| Ответить | Цитировать | Написать  
cxDBTreeList Scroll to Focused Node
    #40019867
Двоичник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Двоичник
Участник
X11 ,

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
var
v : variant;
begin
v := cxDBTreeList.FocusedNode.Values[cxDBTreeListID.ItemIndex];
...
UPDATE
...
qADO.Close;
qADO.Open;
TreeLocateByKey(cxDBTreeList, v);
...



Что не так? Оно так и не скролит на фокусную строку
...
Рейтинг: 0 / 0
18.11.2020, 12:10
| Ответить | Цитировать | Написать  
cxDBTreeList Scroll to Focused Node
    #40019871
Двоичник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Двоичник
Участник
Очевидно я не понял что такое const vKey: Variant
...
Рейтинг: 0 / 0
18.11.2020, 12:16
| Ответить | Цитировать | Написать  
cxDBTreeList Scroll to Focused Node
    #40019872
Двоичник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Двоичник
Участник
Код: pascal
1.
cxDBTreeList.TopVisibleNode := cxDBTreeList.FocusedNode;




Спасибо, получилось!
...
Рейтинг: 0 / 0
18.11.2020, 12:18
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / cxDBTreeList Scroll to Focused Node
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40019861&tid=2037856]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 182ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 218ms
total:  473ms
созд. / загр.: 473ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]