Ver Mensaje Individual
  #2  
Antiguo 20-03-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 20-03-2011 a las 21:30:29.
Responder Con Cita