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 :

images/Integration_0.PNG

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; 
  • On récupère l’ID de l’objet par l’appel :

productId...
Pour consulter la suite, découvrez le livre suivant :
couv_RIDELPH.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Créer et utiliser un style spécifique pour une TListBox
Suivant
Conclusion