8 respuestas en este tema

[enecumene]

Acá ando probando y tratando de entender el enredo de Firemonkey, en este caso estoy trabajando con los items de un ListBox usando Estilos (StyleBook), en la hoja de estilo tengo dos TLayout, un TImage y un Text, hasta aquí todo bien, creo los items dinámicamente a través de un StringList, el texto me lo asume sin problemas, pero las imagenes en todos los items me carga con la última imagen, esto es lo que tengo:

delphi

procedure LoadListMainMenu(AListBox: TListBox; AMenuList: TStringList);
var i: Integer;
    Item: TListBoxItem;
    Menu: TStrings;
begin
  AListBox.BeginUpdate;
 
  for i := 0 to AMenuList.Count -1 do begin
    Menu := TStringList.Create;
    try
      ExtractStrings(['~'],[],PWideChar(AMenuList.Strings[i]),Menu);
 
      Item := TListBoxItem.Create(nil);
      Item.Parent := AListBox;
      Item.StyleLookup := 'itemMenu';
      Item.Height := 30;
      Item.Text := Menu[0];
      Item.StylesData['textmenu'] := Menu[0];
      SetItemImages('iconMenuImg',Menu[1],Item);
    finally
      Menu.Free;
    end;
  end;
 
  AListBox.EndUpdate;
end;
 
procedure SetItemImages(const AImgObject: string; AIdentifier: String);
var AFMXObject: TFMXObject;
begin
  AFMXObject := FindStyleResource(AImgObject) as TImage;
  if Assigned(AFMXObject) then
    TImage(AFMXObject).Bitmap.LoadFromURL(BaseIMG + '/sistema/' + AIdentifier);
end;

En el procedimiento SetItemImages intenté agregar un parámetro adicional apuntando al item y haciendo la llamada Item.FindStyleResource(), pero aquí no me carga ninguna imagen, ¿Cómo podría remediar ésto?, dejo imagen del resultado.

 

Saludos

Archivos adjuntos

•  listmenu.png   7,69KB   1 descargas

[Agustin Ortu]

A simple vista, estas pasando siempre el mismo identificador a tu proceso que baja la imagen de la web

 

A mi me resulta extraño tu bucle for:

delphi

for i := 0 to AMenuList.Count -1 do begin
    Menu := TStringList.Create;
    try
      ExtractStrings(['~'],[],PWideChar(AMenuList.Strings[i]),Menu);
 
      Item := TListBoxItem.Create(nil);
      Item.Parent := AListBox;
      Item.StyleLookup := 'itemMenu';
      Item.Height := 30;
      Item.Text := Menu[0]; // no deberia ser Menu[I]?
      Item.StylesData['textmenu'] := Menu[0]; // no deberia ser Menu[I]?
      SetItemImages('iconMenuImg',Menu[1],Item); // no deberia ser Menu[I]?
    finally
      Menu.Free;
    end;
  end;

No se exactamente que guardas en el TStringList Menu, pero lo iteras y dejas varios indices "fijos"

 

Por otra parte, sin necesidad de liarse con estilos, TListBoxItem ya tiene soporte para imagenes usando TImageList + propiedad ImageIndex, o bien, TListBoxItem.ItemData.Bitmap

 

Ejempo pequeño:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Item: TListBoxItem;
begin
  Item := TListBoxItem.Create(ListBox1);
  Item.Parent := ListBox1;
  Item.ItemData.Bitmap.LoadFrom...
end;

Otro dato no menor, estas creando los TListBoxItem sin Owner, esto te lleva a fugas de memoria si la aplicacion corre en Windows

 

PD: Por cierto, en Berlin no tengo el metodo LoadFromUrl 

[enecumene]

Menu guarda un string de éste estilo:
 

Jugadores~players.png
Menu[0] = Jugadores y Menu[1] = players.png

 
Fíjate, que he tratado de buscar TImageList, y al parecer Firemonkey no tiene esa clase ó componente por he recurrido al uso del estilo, en VCL sí, y sí, está Item.itemData.Bitmap, el problema es que los estilo predefinidos por delphi no son los adecuados para mis necesidades y además inmanejables.

 

Saludos.

[enecumene]

Ah y se me olvidó que LoadFromUrl es un Helper a la clase TBitmap.

[Agustin Ortu]

Creo que TImageList vino en XE7 u XE8 para Firemonkey. 

 

Sigo sin entender que es lo que esperas del codigo 

 

Osea, estas cargando siempre la misma imagen y eso es lo que dice tu codigo, estas cargando siempre la imagen "players.png"

[enecumene]

Bueno llegó en Delphi Seattle, porque no está en XE7 (que es la que uso) ni en XE8, dejame darle otra vuelta al asunto.

 

Saludos.

[Agustin Ortu]

En XE8 agregaron TImageList

 

http://docwiki.embar...tions_of_Images

[enecumene]

Ah caray, pues me retracto , descubrí cómo es el asunto, y es una caballá, simplemente en el stylebook el TImage colocas en su propiedad StyleName con el nombre 'icon', y voilá, con item.itemdata.bitmap se carga sin problemas.

[Agustin Ortu]

Pues la verdad este asunto de los estilos debería estar bien documentado, porque tiene "madera" o "mucha tela para cortar", pero hay que ir como ciego con bastón probando para ver cómo va la cosa

Puesto que el código no habla por sí solo, y que todo es hecho por fmx usando strings para "matchear"