TreeView !!!

[*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...