Pintar imagenes en un TreeView
 

Hola amigos. Me encuentro desarrollando un cliente de jabber y justo ahora estoy en la parte de los avatares. La cosa es que ya logro obtener el avatar desde el servidor de forma correcta, pero solo lo pinto el la ventana de chat con ese usuario cuando tambien deberia pintarlo en la lista de contactos al lado de cada usuario. O sea pintar al lado de cada nombresito la imagen que tiene ese usuario como avatar. Alguien me podria decir como hacer esto dentro de un TreeView ?

Hola fide_uci.

Bueno, a partir de aquí depende donde y como tengas almacenadas las imágenes de los avatares...
Creo que, obtengas las imágenes de donde las obtengas, deberías pasarlas a un TImageList asociado al TTreeView para que se muestren al lado de cada nombre.

Sólo como ejemplo y para aproximarte una idea; si residen temporalmente en el disco y en órden, para cargarlas podrías
hacer:

Código Delphi [-]
...
procedure TForm1.FormShow(Sender: TObject);
begin
  TreeView1.Images:= ImageList1;
end;

procedure ObtenerImagenes(const RutaNom: string; ImgLst: TImageList);
var
  BitM: TBitMap;
  SR: TSearchRec;
begin
  if FindFirst(RutaNom, faArchive, SR) = 0 then
  repeat
    BitM:= TBitMap.Create;
    try
     BitM.LoadFromFile(SR.Name);
     ImgLst.AddMasked(BitM, clWindow);
    finally
     BitM.Free;
    end;
  until FindNext(SR) <> 0;
  FindClose(SR);
end;
...

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ObtenerImagenes('C:\IMAGENES\*.BMP', ImageList1); 
end;

Un saludo.