VPF::Жирный шрифт для родительских элементов ElTree.

TChainik

Дата 8.9.2008, 02:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток!

Как установить жирный шрифт у всех родительских элементов ElTree, если у дочерних
элементов установлена галочка в чекбоксе?

Заранее, спасибо!

VICTAR

Дата 8.9.2008, 06:54 (ссылка)

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

Загрузка ...

Эксперт

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

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

Сейчас все бросились искать, скачивать и устанавливать ElTree smile

TChainik

Дата 9.9.2008, 00:40 (ссылка)

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

Загрузка ...

Новичок

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

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

Согласен, что не все используют данный компонент. Но может быть есть алгоритм для обычного дерева с чекбоксами, суть то одна: дерево оно и в Африке дерево - узлы да ветки smile

TChainik

Дата 9.9.2008, 04:35 (ссылка)

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

Загрузка ...

Новичок

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

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

В общем, сам разобрался. Если кому интересно, вот код:

Код


procedure Tree.treeItemChecked(Sender: TObject; Item: TElTreeItem);
  procedure SetNodeBoldState(Node: TElTreeItem; BoldState: Boolean);
  begin
    Node.ParentFontStyle := False;
    Node.Bold := BoldState;
    
    Node.Checked := BoldState;
  end;

  procedure UpdateParents(Node: TElTreeItem);
  var
    CheckedCount: Integer;
    NewState: Boolean;
  begin
    NewState := False;

    while (Node <> nil) and (Node.Parent <> nil) do begin
      Node := Node.Parent.GetFirstChild;

      CheckedCount := 0;

      while True do begin
        Inc(CheckedCount, Ord(Node.Checked = True));

        if (Node.GetNextSibling = nil) then begin
          if (CheckedCount > 0) then
            NewState := True
          else
            NewState := False;

          Break;
        end else
          Node := Node.GetNextSibling;
      end;

      Node := Node.Parent;

      if Node <> nil then
        SetNodeBoldState(Node, NewState);

      UpdateParents(Node.Parent);
    end;
  end;
begin
  SetNodeBoldState(Item, Item.Checked);
  UpdateParents(Item);
end;

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