Отключить и изменить цвет узла в Treeview

Question

Я ищу способ отключение правильных узлов.

Допустим, я создал простой TreeView структура, как показано ниже:

• Родитель 1 (отключить)
• Родитель 2
  • Ребенок 1
  • Ребенок 2 (отключить)

До сих пор я нашел обходное решение, как это сделать, но он по-прежнему не работает вообще. Я использую OnChanging обработчик события:

procedure TForm1.TreeViewChanging(Sender: TObject; Node: TTreeNode; 
    var AllowChange: Boolean); 
begin 
    if (Node.Text = 'Parent 1') or (Node.Text = 'Child 1') then 
     AllowChange := False; 
end; 

Это работает, потому что я не могу нажать на этом узле, но проблема в том, что после того, как «Отключение функции» узел таким образом, цвет Parent 1 и Child 1 узлов так же, как Другие. Можно ли изменить цвет этих узлов (серый)? Или, может быть, вы знаете другой способ отключения узлов в компоненте TTreeView?

Answer 1

Чтобы отключить узел, установите его Enabled на False. Отключенный элемент отображается серым цветом.

Чтобы изменить нормальный цвет текста узлов, измените значение TTreeView.Font.Color.

Чтобы изменить цвет инвалиду текста узлов, используйте OnCustomDrawItem событие:

procedure TForm2.TreeView1CustomDrawItem(Sender: TCustomTreeView; 
    Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); 
begin 
    if cdsDisabled in state then 
    Sender.Canvas.Font.Color := clRed; //cl3DLight; 
end; 

По умолчанию настройки цвета:

Disabled цвет = cl3DLight:

цвет нормальный текст = clGreen и отключен цвет = clRed: