Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VirtualTreeString и OnHeaderDraw, OnHeaderDraw не вызывается 
:(
    Опции темы
AndrewPA
Дата 22.5.2009, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Мне необходимо менять свойства текста (например цвет текста) на заголовках колонок. Решил это сделать внутри OnHeaderDraw.
Как сделать чтобы изменился только цвет или фон текста на заголовке а все остальное не изменялось. Т.е. вид (стиль) кнопки не трогать а то при вызове она изменяет все.

Это сообщение отредактировал(а) AndrewPA - 22.5.2009, 09:30
PM MAIL   Вверх
AndrewPA
Дата 25.5.2009, 02:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Как же все таки программно поменять цвет текста в Header
Вот простой пример - вывод текста заголовка КРАСНЫМ во всех заголовках (программным способом). Результат цвет устанавливается только в 0 колонке и все остальные выведется по умолчанию.
Код

procedure TForm1.VirtualStringTree1AdvancedHeaderDraw(Sender: TVTHeader;
  var PaintInfo: THeaderPaintInfo; const Elements: THeaderPaintElements);
begin
  if (hpeText in Elements)  and (PaintInfo.Column <> nil)then begin
     PaintInfo.TargetCanvas.Font.Color:=clRed;
     PaintInfo.TargetCanvas.TextOut(PaintInfo.PaintRectangle.Left, PaintInfo.PaintRectangle.Top,IntTostr(PaintInfo.Column.index));
  end;
end;

procedure TForm1.VirtualStringTree1HeaderDrawQueryElements(
  Sender: TVTHeader; var PaintInfo: THeaderPaintInfo;
  var Elements: THeaderPaintElements);
begin
   Elements := [hpeText];
end;

PM MAIL   Вверх
Pavelbej
Дата 26.5.2009, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



У Header включил OwnerDraw?
И кажется у каждой колонки было свойство Style (OwnerDraw)
Делфей рядом нет, могу ошибатся.
PM MAIL   Вверх
AndrewPA
Дата 27.5.2009, 02:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(Pavelbej @  26.5.2009,  23:49 Найти цитируемый пост)
У Header включил OwnerDraw?

Конечно включил.
Цитата(Pavelbej @  26.5.2009,  23:49 Найти цитируемый пост)
И кажется у каждой колонки было свойство Style (OwnerDraw)

Да для вызова OnHeaderDraw необходимо в конкретной колонке выставить это свойство в OwnerDraw НО
Дело в том что в событии OnHeaderDraw надо полностью перерисовывать заголовок колонки. Просто поменять текст там не так просто и поэтому я решил использовать события OnAdvancedHeaderDraw и OnHeaderDrawQueryElements. Вроде там и написано что можно указать дереву что программист рисует а что само дерево. Проблема в том что я не могу добиться от этих событий адекватных действий. По трассировке программы видно что условие и события отрабатывают но цвет изменяется только в заголовке одной из колонок и все. СМ пример ВЫШЕ.

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.0627 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.