firemonkey listview or listbox with round images

  

I would like to make a listview or listbox with round image like on WhatsApp for example

I have tried this code Delphi FMX to make 5 items with 5 circles withe the ssame image but I have only one image in one circle but not one image on each item

path := System.IOUtils.TPath.GetSharedCameraPath + ‘/’;
for i := 1 to 5 do
begin
Item := TListBoxItem.Create(nil);
Item.Parent := ListBox1;
Item.Height := 100;
Item.Width := 100;
Circle.Stroke.Kind := TBrushKind.bkNone;
Circle.Fill.Kind := TBrushKind.bkBitmap;
Circle.Fill.Bitmap.WrapMode := TWrapMode.wmTileStretch;
Circle.Fill.Bitmap.Bitmap.LoadFromFile(path + ’10.jpg’);
Item.ITemData.Bitmap.Assign(Circle.MakeScreenshot);
end;

Someone to help me ?

Or if it is more easy with TlistView instead or TListbox ?

Comments are closed.