VPF::Вопрос по VirtualTreeView - Форум программистов

Дата 1.5.2006, 23:20 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Недавно стал разбираться с этим чудом, компонент замечательный, я в него влюбился smile

, правда хэлп по нему полное 'г'.

В хэлпе копаться лень smile

Чтоб разобраться с целесообразностью использования его в своём прожекте, меня интересует возможность у этого компонента менять параметры шрифта итемов, к примеру как у HTMLTreeView.

Я пока не нашёл никаких признаков того что VirtualTreeView это способен делать, может я ошибаюсь ?

December

Дата 2.5.2006, 01:55 (ссылка)

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

Загрузка ...

Antitheorist

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

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

Да, дока там убийственная, планирую заняться редизайном оной, а то придётся ехать искать чела, который применил такое цветовое решение.
Смотри статью Paint cycles and stages. Это в раздеде Inner Fundamentals chm-хелпа

--------------------

Для друзей с винграда - скидки на разработку сайтов

AriX

Дата 2.5.2006, 10:35 (ссылка)

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

Загрузка ...

Опытный

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

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

RAdmin,
Тебе нужно в событии OnPaintText у параметра TargetCanvas изменять TargetCanvas.Font.* и т.д., проверяя, например, тип нода (его можно записывать для каждого нода в record'е.
Например, так

Код

// типы
TNodeKind = (nkParent, nkChild);
PNodeInfo = ^TNodeInfo;
TNodeInfo = record
  Kind: TNodeKind;
  // еще какие-то параметры
end;

..

// при создании нода, создавать для него свой рекорд
var
  Node: PVirtualNode;
  Item: PNodeInfo;
..
Node := Tree.AddChild(nil);
Item := Tree.GetNodeData(Node);
Item.Kind := nkChild; // или nkParent

..

// потом в OnPaintText
var
  Item: PNodeInfo;
..
if (Column = 0) and (TextType = ttStatic) then begin
  Item := Tree.GetNodeData(Node);
  case Item.Kind of
    nkParent:
      TargetCanvas.Font.Color := clBlue;
    nkChild:
      TargetCanvas.Font.Style := TargetCanvas.Font.Style + [fsBold];
  end;
end;

Дата 3.5.2006, 12:45 (ссылка)

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

Загрузка ...

Брутальный буратина

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

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

Ой, а событие OnPaintText я незаметил smile

.
теперь всё ясно, всем пасибо.

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