TreeViewer и OnCustomDrawItem

[SNUPY]

Хотелось цвет выделения поменять делаю вот так:

procedure TMainForm.TVCathedrBrowserCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  NodeRect:TRect;
begin
  If not Node.Selected then
    Exit;
  with TTreeView(Sender).Canvas do
  begin
    NodeRect:=Node.DisplayRect(True);
    Brush.Color:=clBlue;
    Canvas.FillRect(NodeRect);
    TextOut(NodeRect.Left,NodeRect.Top,Node.Text);
  end;
end;

Все бы хорошо, но вот еще попутно у других Нодов (не всех) текст становиться жирным по не понятным мне причинам.. =( В чем фокус???? Заранее спасибо!!!!

[maxionans]

Я в таких случаях обычно не заморачиваюсь и в конце процедуры прорисовки просто добавляю Sender.Canvas.Font.Assign( Self.Font ), тогда все отображается правильно.

[mihali4]

Вы немного перемудрили...

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if cdsSelected in State then
with Sender.Canvas do
begin
Font.Color:=clYellow;
//Font.Style:=[fsBold];
Brush.Color:=clRed;
end else
Font.Color:=clRed;
end;

Делать разные стили для выделенных и невыделенных нодов не стоит - у них разная ширина канвы и поэтому при переходе выделения у выбранной ранее ноды останется окрашенной задняя часть.
(Попробуйте снять коммент и посмотрите сами)

[SNUPY]

mihali4
Все понял спасибо =))