Советы по 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]
