Hola fide_uci.
Cita:
la cosa es que ya logro obtener el avatar desde el servidor de forma correcta
|
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.