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

> Roma

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

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

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