Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Desarrollo en Delphi para Android (https://www.clubdelphi.com/foros/forumdisplay.php?f=57)
-   -   ListView Items Propiedades (https://www.clubdelphi.com/foros/showthread.php?t=94457)

RebeccaGL 19-02-2020 15:17:35

ListView Items Propiedades
 
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

Neftali [Germán.Estévez] 21-02-2020 15:04:58

Ese elemento seguramente es de tipo TListItemImage.
La clase TListItemImage si posee la propiedad ScalingMode: TImageScalingMode, así que es posible que debas hacer un "casteo" o definir una variable de ese tipo para no hacer C&P.
Código Delphi [-]
TListItemImage(AItem.View.FindDrawable('PB_E')).ScalingMode := TImageScalingMode.Stretch;
Esto debería compilar sin problemas.

RebeccaGL 21-02-2020 20:47:01

Mchas gracias German, asi es funciono bien.


La franja horaria es GMT +2. Ahora son las 09:51:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi