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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VirtualStringTree изменение цвета текста, изменение цвета узлов 
V
    Опции темы
Leana
Дата 29.6.2007, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Ребята, помогите! 
Кто работал с VirtualStringTree....
Пытаюсь на getText поменять цвет текста...

В
Код

procedure TBaseContextPickForm.TreeViewGetText(Sender: TBaseVirtualTree;
    Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
    var CellText: WideString);
    var
        rec: PListRecord;
        Tree: TVirtualStringTree;  
    begin
    rec      := Sender.GetNodeData(Node);
    Tree := TVirtualStringTree(Sender);    
    CellText := View.GetText(Column, rec.Data);
    if View.ChangeFontColor                      
        then Tree.Font.Color := clGrayText             
        else Tree.Font.Color := clWindowText;                  
    end;


Что я делаю не так? Цвет меняется, но все остальные компоненты на форме ведут себя очень странно...
Под каким другим событием мне надо делать отрисовку узлов??
PM MAIL   Вверх
Leana
Дата 30.6.2007, 00:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Мерси всем, кто взглянул. Проблема решена.  smile 
PM MAIL   Вверх
Poseidon
Дата 30.6.2007, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Не знаю что ты там нашла, какое решение. Но не правильно ты делаешь то, что делаешь это в GetText, если надо в PaintText

Код
procedure TBaseContextPickForm.TreeViewPaintText(Sender: TBaseVirtualTree;  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;  TextType: TVSTTextType);
var rec: PListRecord;
begin  
rec:= TreeView.GetNodeData(Node);

if Assigned(rec) then TargetCanvas.Font.Color := clGrayText;  
end;



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Leana
Дата 1.7.2007, 16:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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