Android Listview mit Bitmap

[greenmile]

Sehr geil! Vielen Dank, das hat mir wirklich weiter geholfen. Habe allerdings eine kleine Änderung, damit die Bilder auch wirklich Leading sind:

Zitat von AndyDF:

Delphi-Quellcode:

class procedure TListViewHelper.SetListItemImage(const AListItem: TListViewItem; const ADrawableName: String; const ABitmap: TBitmap; const AOwnsBitmap: Boolean);
var
  Drawable: TListItemDrawable;
begin
  if Assigned(AListItem) then
  begin
    Drawable := AListItem.Objects.FindDrawable(ADrawableName);

    if Assigned(Drawable) and (Drawable is TListItemImage) then
    begin
      (Drawable as TListItemImage).BeginUpdate;
      try
        (Drawable as TListItemImage).Bitmap := nil;
        (Drawable as TListItemImage).OwnsBitmap := AOwnsBitmap;
        (Drawable as TListItemImage).Bitmap := ABitmap;
--->
         If Assigned(ABitmap) then begin
           (Drawable as TListItemImage).Width := ABitmap.Width;
         end;
--->
      finally
        (Drawable as TListItemImage).EndUpdate;
      end;
    end;
  end;
end;

Ab jetzt nehme ich die Delphi Tags

[AndyDF]

Super wenn es geklappt hat und danke noch für die Erweiterung.

Benötige ich aber in meinem Fall nicht, da ich die Bitmaps schon mit der richtigen Größe definiere bzw. den ScalingMode entsprechend setze:

Image.ScalingMode := TImageScalingMode.Stretch;

[greenmile]

Klappt 1a und löst ein schon länger vorhandenes Problem, das Bier geht auf mich!

Einzig der dynamische Label (TListItemText) bereitet mir noch Sorgen. Ich möchte gerne die Schriftgröße von einem Original-Eintrag setzen, finde aber nicht raus, wie groß die ist. Ist die konstant, kann ich also immer Font.Size 20 nehmen? Kann ich mir kaum vorstellen, sonst wäre die Größe auf einem Tablet ja identisch mit der auf einem Handy.

Den Original Text musste ich auch über den Objektinspektor ausblenden. Wenn ich es per Source mache, ist der manchmal nach einem Refresh (Gerät Lock/Unlock) plötzlich wieder da.

[AndyDF]

Das mit der "(Default)" Font-Size hatte ich mich auch schon mal gefragt. Wie ist diese definiert? Gibt es hierfür Konstanten?

Was mir hier spontan als möglicher Workaround einfällt:
Lege doch ein TLabel auf die Form und mach dieses Visible := False. Von diesem kannst du dir dann die Font-Size holen und bei deinem TListItemText setzen. Dann müsste es doch die Default-Size sein oder?

[greenmile]

Ich habe mal ein wenig probiert. Wenn Du in TListItemText.Create(AItem) kein Font.Size definierst, scheint die Einstellung vom übergeordneten Listview geerbt zu werden. Jedenfalls ist die Schriftgröße und Art dann identisch.

Infos zu "(Default)" habe ich auch nicht gefunden, nicht in den Sourcen, nicht bei Google und die Hilfe schreibt nur "... verfügt derzeit nicht über Informationen". Tja, was will man für einige hundert Euro schon verlangen?