ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TTreeView (разноцветные строки)
5 сообщений из 5, страница 1 из 1
TTreeView (разноцветные строки)
    #32323538
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Хочется иметь возможность изменять цвет строк в TTreeView.
Вот только, как я понял существует возможность установить Font на весь TTreeView. А можно ли сделать это по отношению к отдельным Node?

Best regards,

Dnico.
...
Рейтинг: 0 / 0
13.11.2003, 18:13
| Ответить | Цитировать | Написать  
TTreeView (разноцветные строки)
    #32323563
Rostyk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rostyk
Участник
/topic/56695
...
Рейтинг: 0 / 0
13.11.2003, 18:28
| Ответить | Цитировать | Написать  
TTreeView (разноцветные строки)
    #32324116
Малиновский Владимир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Малиновский Владимир
Участник
Что Вы мучаетесь, используйте TVirtualTreeView - и бесплатный, и может все, на что способна самая буйная фантазия.
...
Рейтинг: 0 / 0
14.11.2003, 11:12
| Ответить | Цитировать | Написать  
TTreeView (разноцветные строки)
    #32324227
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
Малиновский Владимир
Да не очень то хочется использовать кучу нестандартных компонентов.
Ведь на самом деле все можно сделать и в родных.
Конечно, занимает много времени на поиск таких вот решений.

Кстати я нашел решение:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure TForm1.TVAdvancedCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
  var PaintImages, DefaultDraw: Boolean);
  var
    R: PItemRec; // Структура данных
begin
  inherited;

  R := Node.Data;

  if R <> nil then
  if R.Group =  0  then
    Sender.Canvas.Font.Color := clBlack
  else
    Sender.Canvas.Font.Color := clRed;
end;


Best regards,
Dnico.
...
Рейтинг: 0 / 0
14.11.2003, 11:59
| Ответить | Цитировать | Написать  
TTreeView (разноцветные строки)
    #32324270
Малиновский Владимир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Малиновский Владимир
Участник
Дык все компоненты с исходниками - и людьми писаны...
"Стандартные" отличаютя в основном тем, что в них "стандартные" глюки, которые тянутся из версии к версии. А так, как ни странно, и те и другие писаны обыкновенными программерами - и все с ошибками. (люди-то живые).
Ну не хватает в "стандартных" компонентах функциональности, так допиши ее - или используй чужие - разумется, те, у которых есть исходники.
И рано или поздно или сам их начнешь переписывать, или использовать чужие.
...
Рейтинг: 0 / 0
14.11.2003, 12:20
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TTreeView (разноцветные строки)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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