Cita:
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