VPF::фонт у одного элемента treeview - Форум программистов

Max111

Дата 11.5.2006, 21:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброе утро

Можно ли у одного item'а treeview сделать фонт bold а у всех остальных
item'ов этого treeview сделать простой (не болд) фонт?

Mechanic

Дата 11.5.2006, 22:09 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

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

В DRKB есть сорец компонента THeTreeView, так он как раз это делает.
Плюс, он намного быстрее стандартного, но это уже офтоп.

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

Tell me the extensions of the files You backup and I'll tell You who You are.. ©Mch

Мишка

Дата 17.5.2006, 09:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Это делается почти элементарно smile

Код


procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with TCustomTreeView(Sender).Canvas do
  begin
    // выделяем нужную ветку другим цветом
    if Node.AbsoluteIndex = 1 then
    begin
      Font .Style := [fsBold];
      Font .Color := clRed;
    end;
    // а тут еще интереснее, меняем цвет и заливку при "выделении" ветки
    if cdsSelected in State then
    begin
      Font .Color := clBlue;
      Brush.Color := $00E6E6E6;
    end;
  end;
end;

artem1987

Дата 25.7.2006, 18:38 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


procedure TfmTypes.TreeView1CustomDrawState(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
     if cdsSelected in State then 
        Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsItalic]+[fsUnderline];
end;

здесь по выделения node поменяй на index.

Это сообщение отредактировал(а) Girder - 26.7.2006, 09:07

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

Don't ask me why, ask me how.

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