Intégration dans le client REST REST

Nous allons ici intégrer ce style de TListBox dans l’application réalisée au chapitre Client REST multi-plateforme FireMonkey pour la finaliser et réaliser une gestion de panier plus conviviale.

En reprenant la Frame TFrShop, on place un composant TListBox en haut à gauche comme dans la capture d’écran ci-dessous :

On nomme ce composant TListBox ListBoxCart et on paramètre la propriété ListStyle à Horizontal.

On ajoute un composant TStyleBook et on crée un style nommé CustomListBoxStyle comme dans la section précédente.

La méthode gérant le clic sur la TListView devient :

procedure TFrShop.ListViewProductItemClick(const Sender: TObject; 
 const AItem: TListViewItem); 
var productId:integer; 
   aProduct:TProduct; 
begin 
 productId := AItem.ImageIndex; 
 aProduct := GetProductById(productId); 
 if aProduct<>nil then 
 begin 
   AddItemInListBox(aProduct.Image.Bitmap, 
                    aProduct.name, 
                    aProduct.Price.ToString+' euros', 
                    aProduct); 
 end; 
 ResetListView; 
end; 

productId...