Código Delphi
[-]
procedure TForm_MOV.ListView1UpdateObjects(const Sender: TObject;
const AItem: TListViewItem);
begin
IB_Size.Create(32, 32);
IB_Index := ImageList1.Source.IndexOf(AItem.Data['categoria_src'].ToString);
AItem.Data['Icono'] := ImageList1.Bitmap(IB_Size, IB_Index);
AItem.View.FindDrawable('PB_E').Name := 'PB_E';
AItem.View.FindDrawable('PB_E').Align := TListItemAlign.Leading;
AItem.View.FindDrawable('PB_E').VertAlign := TListItemAlign.Leading;
AItem.View.FindDrawable('PB_E').Height := 5;
AItem.View.FindDrawable('PB_E').Width := 150;
AItem.View.FindDrawable('PB_E').PlaceOffset.X := 2;
AItem.View.FindDrawable('PB_E').PlaceOffset.Y := 54;
AItem.View.FindDrawable('PB_E').ScalingMode := TImageScalingMode.Stretch;
IB_Factor := Round((150 / FdQuery_EMP.FieldByName('TT_Egresos').AsFloat) * AItem.Data['Egresos'].AsVariant);
IB_Size.Create(IB_Factor, 5);
AItem.Data['PB_E'] := ImageList1.Bitmap(IB_Size, 80);
end;
La propiedad ScalingMode no existe como podria ajustar la imagen a modo de Stretch.
AItem.Data['Egresos'].AsVariant no existe --> AItem.Data['Egresos'].AsFloat