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