TreeView !!!

[Ledian_Fdez]

Holas amigos de este foro:

Tengo en un formulario un TreeView y otros controles. Selecciono un nodo del TreeView y al pasar el focus a otro control no se me muestra seleccionado el nodo del TreeView. Habrá laguna forma de mantener la selección?

Salu2,
Ledian.

[cloayza]

Hay dos opciones:

1) Poner la propiedad HideSelection a False, al perder el foco el item seleccionado aparecera en un color opaco.
2) Pintar de un color determinado el item cuando pierde el foco, para ello debes colocar ele siguiente codigo

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
     If (Not TreeView1.Focused) And (TreeView1.Selected <>NIL) Then
        TreeView1.Canvas.Brush.Color := clRed; //Color cuando el item pierde el foco.

end;

Saludos

[*Caro*]

Hola Ledian, como te han indicado debes colocar la propiedad HideSelection a False y para que no quede el color opaco:

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if cdsSelected in state then //Si esta seleccionado
  begin
   TreeView1.canvas.brush.color:=clBlue;
   TreeView1.canvas.Font.Color:=clWhite;
  end;
end;

Saluditos

[*Caro*]

Empezado por cloayza

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If (Not TreeView1.Focused) And (TreeView1.Selected <>NIL) Then
TreeView1.Canvas.Brush.Color := clRed; //Color cuando el item pierde el foco.

end;

Hola Cloayza, acabo de probar tu codigo, cuando seleccionas un item y te pasas a otro componente y luego seleccionas otro item también se pinta como seleccionado y así sucesivamente.

Saluditos

[cloayza]

Empezado por Caro

Hola Cloayza, acabo de probar tu codigo, cuando seleccionas un item y te pasas a otro componente y luego seleccionas otro item también se pinta como seleccionado y así sucesivamente.

Saluditos

Caro...Tienes razon...

Mi idea era que no perdiera el color que por defecto tiene el treeview y solo cambiara el color cuando el item esta seleccionado y el treeview no tiene foco.

Que tal ahora...

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
     If (Not TreeView1.Focused) And (cdsSelected in state) Then
        TreeView1.Canvas.Brush.Color := clRed;
end;

Saludos...