Nó em Negrito treeview

[Diego C. Ribeiro da Silva]

Olá a todos,

Estou tendo uma certa dificuldade em colocar mais de um nó selecionado no treeview...

Como posso fazer isso? Eu já tentei com Canvas dentro OnCustomDrawItem, sendo q não to conseguindo...

esse é o codigo q estou utilizando... agora fora do OnCustomDrawItem, ele tá em uma procedure q criei...

tblConfig.First;
  while not TblConfig.EOF do
  begin
    if (TblConfig.FieldByName('opcao').AsBoolean = True)
    begin
      tvconfig.Canvas.Font.Assign(SelectedFontDialog.Font);
      tvconfig.Canvas.Brush.Color := SelBkgColorDialog.Color;
      TblConfig.Next;
    end
    else
      TblConfig.Next;
  end;

Alguém pode me dá uma ajuda referente a isso...

Só falta isso para eu terminar uma parte da aplicação a qual to trabalhando....

att,

Diego

[Jhonas]

Estou tendo uma certa dificuldade em colocar mais de um nó selecionado no treeview...

Como posso fazer isso? Eu já tentei com Canvas dentro OnCustomDrawItem, sendo q não to conseguindo...

Deixar em negrito o nó do treview selecionado

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    with TreeView1.Canvas do
    begin
      if cdsSelected in State then
      begin
        Font.Color := CLBLUE;  // cor azul
        Font.Style :=[FSBOLD];  //  negrito
        Brush.Color := TreeView1.Color;
      end;
    end;

end;

abraço