Delphi-Help

Главная Статьи Дерево (TreeView) Как выделить некоторые строчки в TTreeView жирным?

Как выделить некоторые строчки в TTreeView жирным?

Оцените материал
(0 голосов)


Как выделить некоторые строчки в TTreeView жирным?

uses

..., CommCtrl;

procedure SetNodeBoldState( Node: TTreeNode; Value: Boolean );
var 
  TVItem: TTVItem; 
begin 
   if not Assigned( Node ) then Exit;
   with TVItem do
   begin
      mask := TVIF_STATE or TVIF_HANDLE;
      hItem := Node.ItemId;
      stateMask := TVIS_BOLD;
      if Value then
         state := TVIS_BOLD
      else
         state := 0;
      TreeView_SetItem( Node.Handle, TVItem );
   end;
end;

Выделить жирным

procedure TForm1.Button1Click(Sender: TObject);
begin
   SetNodeBoldState( TreeView1.Selected, true );
end;

Снять выделение

procedure TForm1.Button2Click(Sender: TObject);
begin
   SetNodeBoldState( TreeView1.Selected, false );
end;

Авторизация



Счетчики