VPF::Выделение и TVirtualTreeView - Форум программистов

KgCoder

Дата 10.9.2010, 15:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

Есть многоуровневое дерево (TVirtualTreeView) с начальными настройками выделения ячеек. В начальном состоянии, ни одна ячейка не выделена. Проблема: При выделении любого node, снять выделение уже не возможно.

Что интересно, если задать TVirtualStringTree -> TreeOptions -> SelectionOptions >> toMultiSelect = True, то при нажатии на пустое пространство компонента - выделение с выбранной ноды снимаеться. Но возникает проблема: Мне как раз противопоказан множественный выбор нод.

Кто-нибудь сталкивался? Посоветуйте, что-нибудь... спасибо! smile

KgCoder

Дата 10.9.2010, 16:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Решил... правда, обходным и извращенным путём:

Код


procedure TFormApplication.VirtualStringTreeDBContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
var
  Data: PDiagnose;
begin
  with (Sender as TVirtualStringTree) do
  begin
    Data := GetNodeData(GetNodeAt(MousePos.X, MousePos.Y));
    if not Assigned(Data) then
    begin
      PopupMenu.Items.Find('Создать').Enabled := true;
      PopupMenu.Items.Find('Переименовать').Enabled := false;
      PopupMenu.Items.Find('Удалить').Enabled := false;
    end
    else
    begin
      PopupMenu.Items.Find('Создать').Enabled := true;
      PopupMenu.Items.Find('Переименовать').Enabled := true;
      PopupMenu.Items.Find('Удалить').Enabled := true;
    end;
  end;
end;

Ругайте меня... smile

AnalogXP

Дата 10.9.2010, 19:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Это?

KgCoder

Дата 10.9.2010, 20:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Да! Спасибо вам большое! Сделал так:

Код


procedure TFormApplication.VirtualStringTreeDBChange(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var
  TemporaryNode: PVirtualNode;
begin
  with Sender do
  begin
    TemporaryNode := GetNextSelected(GetFirstSelected); // пропускаем первую выделенную строку
    while Assigned(TemporaryNode) do
    begin
      Selected[TemporaryNode] := False; // с остальных снимаем выделение
      TemporaryNode := GetNextSelected(TemporaryNode);
    end;
  end;
end;

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