Как выделить некоторые строчки в 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; |