В TreeView текущий Node выделяется другим шрифтом
Falk0ner, вс, 06/07/2008 - 15:34.
В 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;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if cdsSelected in State then
Sender.Canvas.Font.Style := Sender.Canvas.Font.Style + [fsUnderline];
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий