Советы по Delphi

         

Как сделать так, чтобы в TreeView текущий Node выделялся другим шрифтом, типа Underline и т.д.?


Nomadic отвечает:

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

[001747]



Содержание раздела