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

Previous  Top  Next

    
 

 

Code:

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;

 

 

©Drkb::01111

http://delphiworld.narod.ru/

DelphiWorld 6.0