Resaltar un nodo dentro de un TreeView

[ecfisa]

Hola.

Ahora te entiendo...

Te pongo un ejemplo utilizando el evento OnCustomDrawItem. En este caso, pone en rojo, negrita y tamaño = 10, aquellos nodos que posean subnodos.

Código Delphi [-]
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.HasChildren then
  begin
    TreeView1.Canvas.Font.Color:= clRed;
    TreeView1.Canvas.Font.Style:= [fsBold];
    TreeView1.Canvas.Font.Size:= 10; 
  end;
end;

Un saludo.

[fide_uci]

Uff justo eso era lo que andaba buscando. Pero tengo una duda ahora. Sabes que cuando marco un nodo, si le tengo la propiedad RowSelect a true me selecciona todo el nodo completo con un fondo no?. QUe por defecto es Azul. Como puedo cambiar ese fondo o ponerle un color de fondo a un nodo en especifico?

[fide_uci]

O sea cuando voy a pintar los nodos que son de tipo Grupo o sea que van a contener a otros nodos dentro de si, a esos ponerles un background como lo hace el psi y otros jabbers.???

[ecfisa]

Hola.

Con el mismo ejemplo, para pintar el fondo sería:

Código Delphi [-]
...
 if Node.HasChildren then
  begin
    TreeView1.Canvas.Brush.Color:= clYellow; // COLOR DE FONDO 
    TreeView1.Canvas.Font.Color:= clRed;
    TreeView1.Canvas.Font.Style:= [fsBold];
    TreeView1.Canvas.Font.Size:= 10;
  end;
...

Un saludo.

[fide_uci]

WoW, ya veo. El gran problema es que todavia no domino los objetos como TCanvas, TRec pero bueno con personas como tu se aprende facil. GG muchas gracias por tu ayuda. Aqui te dejo unas imagenes de como va quedando el cliente de jabber que toy haciendo.

Interfaz de Inicio
http://www.facebook.com/#!/photo.php...00000461193039

Cuando no tenia grupos
http://www.facebook.com/#!/photo.php...00000461193039

Ya con grupos
http://www.facebook.com/#!/photo.php...00000461193039

[fide_uci]

Dime entonces, que te parece como va quedando?

[JXJ]

Empezado por fide_uci

Dime entonces, que te parece como va quedando?

hola

fide_uci

como le haces para implementar jabber?

tienes un servidor jabber o te conectas a uno publico?

no le entiendo bien a jabber y como implementarlo.


tengo el interes en implementar un cliente jabber con delphi.

[ecfisa]

Empezado por fide_uci

Dime entonces, que te parece como va quedando?

Disculpa la tardanza en responder, aún estoy de vacaciones y entro cada tanto.

Lo que ví está muy bueno.

Un saludo.