В TreeView текущий Node выделяется другим шрифтом

Материал из DRKB

В TreeView текущий Node выделяется другим шрифтом[править | править код]

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if cdsSelected in State then
    Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsUnderline];
end;


Source: http://delphiworld.narod.ru/
ID: 01111