Вниз
Скачать: CL | DM;

TreeView   Найти похожие ветки 

 
Ann ©   (2003-05-20 16:12) [40]

ура! получилось
написала так
dm.FDS_gr_kont.first;
while not (dm.FDS_gr_kont.eof) do begin
if dm.FDS_gr_kont["delete_pr"] then begin
if Node.Text=dm.FDS_gr_kont["name"] then
Sender.Canvas.Font.Color := clRed;
end //if
else
begin
if cdsSelected in State then Sender.Canvas.Font.Color := clWhite
else Sender.Canvas.Font.Color := clBlack;
end; //else }
dm.FDS_gr_kont.next;
end;

И все работает!!
Спасибо тебе ОГРОМНОЕ, за то что помогал мне :)


 
Skier ©   (2003-05-20 16:15) [41]

>Ann © (20.05.03 16:12)
Ну ? видишь ? Не выполнялись условия твоей красноты по сему и
не работала...:))


 
Roma ©   (2003-05-20 16:16) [42]

Как-то все уже запуталось... Давайте подойдем к вопросу академически... ;)

Есть условие, назовем его RedCondition, при выполнении которого текст ноды должен выводится красным шрифтом. Обработчик вызывается всегда, когда надо (и при активизации, и при экспанде, и при селекте, и т.д.).

Тогда:

var
RedCondition: Boolean;
begin
RedCondition := {подставить, что надо; одно или несколько булевых выражений, или отдельная функция... не используя Selected!};

if RedCondition then
Sender.Canvas.Font.Color := clRed // выводить красным независимо от выделения
else
if cdsSelected in State then // нода выделена?
Sender.Canvas.Font.Color := clWhite // выводить белым
else
Sender.Canvas.Font.Color := clBlack; // выводить черным

with Node.DisplayRect(True) do
Sender.Canvas.TextOut(Left, Top, Node.Text);
end;


Это должно работать, залягай меня слон... ;)

PS: Пока писал, увидел, что уже все работает... Тогда есть правило: работает - не трогай... ;) Похоже, все было именно в функции вычисления условия "красноты"...


 
Ann ©   (2003-05-20 16:21) [43]


> Roma

PS у тебя замечательный - работает не трогай :)

нет, правда спасибо большое.. я бы сама еще столько долбилась бы с этой краснотой,тем более когда делаешь что-то долго и упорно, голова варит хуже и делаешь ошибки всякие глупые. :)



Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.52 MB
Время: 0.032 c
14-3161
OlegBat
2003-05-15 09:26
2003.06.02
Как открыть сетевое окружение?


1-2983
$Hic0
2003-05-21 13:31
2003.06.02
Странное поведение переменной цикла


14-3056
zhenya
2003-05-15 20:10
2003.06.02
Процессы?


4-3202
Пубертанец
2003-04-03 14:22
2003.06.02
Помогите разобраться с OpenFileMapping


1-3004
Top Gun
2003-05-11 14:32
2003.06.02
Передача указателя на функцию




   Наверх