affecter correctement un timage dans les styles d'un TListBoxItem

**delaio** · 19/09/2018, 00h05

Bonjour,

(dev sous tokyo)

j'affiche des remises avec code barre associé dans un listbox dont le design des TListBoxItem est défini via le concepteur de style. la génération du code barre fonctionne plutôt bien à condition de ne pas trop "jouer" avec le défilement du listbox, sinon, il y a un problème de rafraichissement des images et les codebarres sont "dupliqués".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
 procedure TForm1.afficherdonnees_btClick(Sender: TObject);
var item_lis : TListBoxItem;
    codebarreremise_im : TImage;
begin
     // [...]
     while (not remises2_memtb.Eof) do
      begin
          item_lis := TListBoxItem.Create(remise_lis);
          item_lis.Parent := remise_lis;
          item_lis.StyleLookup := 'designitem_ly';
          // [...]
          item_lis.StylesData['valeur_txt'] := '-' + remises2_memtb.FieldByName('valeur').AsString + '€';
          item_lis.StylesData['salon_txt'] := remises2_memtb.FieldByName('salon').AsString;
          item_lis.StylesData['client_txt'] := 'Pour vous ou pour un proche' + #13 + #10 + 'De la part de Marie Dupond';
 
          codebarreremise_im := TImage.Create(item_lis.FindStyleResource('codebarre_im'));
          affiche_codebarre_remise(remises2_memtb.FieldByName('codebarre').AsString, codebarreremise_im); // item_lis.FindStyleResource('codebarre_im') as TImage);
          item_lis.StylesData['codebarre_im.Bitmap'] := codebarreremise_im.Bitmap; //(item_lis.FindStyleResource('codebarre_im') as TImage).Bitmap.CopyFromBitmap(codebarreremise_im.Bitmap);
 
          item_lis.StylesData['numoffre_txt'] := 'Offre n°' + remises2_memtb.FieldByName('codebarre').AsString;
          item_lis.StylesData['textecompl_txt'] := remises2_memtb.FieldByName('texte_complementaire').AsString;
          // [...]
          item_lis.StylesData['envoyerticket_bt.OnClick'] := TValue.From<TNotifyEvent>(envoyer_ticket_sms);
        end;
        remises2_memtb.Next;
end;
 
procedure TForm1.affiche_codebarre_remise(numoffre_st : string; var codebarredessin_im : Timage);
var R :TRect;
    W :integer;
const BarSize = 1;
begin
  try
    //largeur width : Taille totale (Nb cara + StartB + CheckSum +Stop +2x QuietZone)
    W := ((Length(numoffre_st) +3) *11 +10) * (BarSize);
 
    //Rectangle à 0mm des bords de page, hauteur 64mm
    R := Rect((0), (0), (0) +W, (64));
 
    //Espacement entre cadre et code de 2mm
    InflateRect(R, 0, -2);
 
    // initialisation du canvas de l'image bitmap
    codebarredessin_im.Bitmap := TBitmap.Create(W, 64);
    //Code barres avec un trait de 1mm
    codebarredessin_im.Bitmap.Clear($FFFFFF);
    // trait noir
    codebarredessin_im.Bitmap.Canvas.Fill.Kind := TBrushKind.Solid;
    codebarredessin_im.Bitmap.Canvas.Fill.Color := claBlack;
    // appelle codebarre_128.drawbarcode128 pour remplissage du canvas
    DrawBarCode128(numoffre_st, codebarredessin_im.Bitmap.Canvas, BarSize, R, ctB);
  except on E : Exception do
    ShowMessage('Erreur création code barre n° ' + numoffre_st + '(' + E.Message + ').');
  end;

Pour résoudre ce bug de rafraichissement, il faudrait (je pense) soit :
- passer en paramètre de la procedure affiche_codebarre_remise() item_lis.FindStyleResource('codebarre_im') as TImage mais un objet constante ne peut être passé comme paramètre Var
- faire une vraie copie du genre (item_lis.FindStyleResource('codebarre_im') as TImage).Bitmap.CopyFromBitmap(codebarreremise_im.Bitmap); mais violation d'accès.

je pense avoir trouvé un début de réponse ici :

vous devez savoir que dans FireMonkey, les composants sont stylés à la demande et que les styles peuvent également être supprimés à la demande. Ceci est fait pour économiser de l’espace mémoire en ne stylisant que les composants réellement visibles. Par exemple, les éléments d'une zone de liste ne peuvent être stylés que lorsqu'ils défilent et leurs styles peuvent être supprimés lorsqu'ils défilent.

mais impossible de mettre en place une solution...

voici un exemple compilable sous windows. en réduisant la largeur de la fenêtre et en la ré-augmentant, le 3ème code barre se rafraichit mal (duplication du 2ème). recliquez sur le bouton et il s'affiche de nouveau correctement (même pb sous ios avec l'effet ressort en faisant défiler les slides en butée) :

10.2 tokyo - smartphone - code barre design item listbox.zip

un coup de pouce n'est pas de refus

**SergioMaster** · 19/09/2018, 08h07

Bonjour,

je retrouve ce même genre de problème de rafraichissement avec un TListView (nombre de lignes à afficher < au nombre de lignes du dataset) et un changement de style au runtime (signalé à Embarcadero mais toujours pas résolu ce me semble) par "souci" d'économie seul une partie des lignes semblent être "rafraichie".

je vais regarder le zip

une idée comme ça, avant de me plonger dedans , un ListView.BeginUpdate; ListView.EndUpdate; quelque part pourrait peut être forcer le rafraichissement ? (reste à trouver le quelque part

)

**SergioMaster** · 19/09/2018, 09h41

Re,

j'ai fait le test sur mon W10 et ne vois pas le soucis de rafraichissement

excepté si je met alternatingRowbackground à true là il y a quelques surprises !

Sur le fond par contre j'ai plusieurs interrogations
sur le fdMemTable : que des champs blobs, c'est pas très efficace
sur le style personnalisé : pour les images j'aurais utilisé comme nom 'Icon' qui aurait permis une simplification Item.ItemData.Bitmap.LoadfromStream(fonction renvoyant un stream de l'image construite)

**guillemouze** · 19/09/2018, 09h55

Envoyé par delaio

Pour résoudre ce bug de rafraichissement, il faudrait (je pense) soit :
- passer en paramètre de la procedure affiche_codebarre_remise() item_lis.FindStyleResource('codebarre_im') as TImage mais un objet constante ne peut être passé comme paramètre Var

Tu n'as pas besoin de mettre le paramètre en var, l'instance pointée par codebarredessin_im n'est pas modifiée dans ta fonction (il n'y a pas de codebarredessin_im := ...), uniquement son contenu, donc le var ne sert a rien.

**anapurna** · 19/09/2018, 10h40

salut

il y a quelque question que je me pose

Petite question je vois que tu vas chercher dans les ressource 'codebarre_im'
et que tu repointe sur 'codebarre_im.bitmap' est normal ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   codebarreremise_im := TImage.Create(item_lis.FindStyleResource('codebarre_im'));
   affiche_codebarre_remise(remises2_memtb.FieldByName('codebarre').AsString, codebarreremise_im); 
   item_lis.StylesData['codebarre_im.Bitmap'] := codebarreremise_im.Bitmap;

ne serais ce pas ceci pour affecter plutôt ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

item_lis.StylesData['codebarre_im']  := Image1.Bitmap;

**delaio** · 19/09/2018, 13h13

Envoyé par anapurna

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 item_lis.StylesData['codebarre_im.Bitmap'] := codebarreremise_im.Bitmap;

ne serais ce pas ceci pour affecter plutôt ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

item_lis.StylesData['codebarre_im']  := Image1.Bitmap;

trop bien ! Merci Anapurna... il fallait effectivement enlever le .bitmap. J'aurais d'ailleurs dû percuter plus tôt avec les TText. J'ai naturellement fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
item_lis.StylesData['numoffre_txt'] := 'Offre n°' + remises2_memtb.FieldByName('codebarre').AsString;
//et non
item_lis.StylesData['numoffre_txt.text'] := 'Offre n°' + remises2_memtb.FieldByName('codebarre').AsString;

ben pour le coup, ça me choque maintenant

comment affecter les propriétés sans les préciser !?!! genre, si je veux mettre à jour le enabled ou le visible du Ttext... en passant par item_lis.FindStyleResource('numoffre_txt') peut être

en tout cas, ça marche nickel !

Envoyé par Guillemouze

Tu n'as pas besoin de mettre le paramètre en var, l'instance pointée par codebarredessin_im n'est pas modifiée dans ta fonction (il n'y a pas de codebarredessin_im := ...), uniquement son contenu, donc le var ne sert a rien.

Merci pour ta remarque et ces précisions. Il s'agit d'un stigmate des nombreux tests que j'ai réalisé pour résoudre ce "bug"... j'ai d'ailleurs dans cette appli neutre des variables déclarées non utilisées qui trainent et que je n'ai pas nettoyé...

Envoyé par SergioMaster

une idée comme ça, avant de me plonger dedans , un ListView.BeginUpdate; ListView.EndUpdate; quelque part pourrait peut être forcer le rafraichissement ?

oui, je les ai bien intégré dans le code avant et après la boucle sur le listbox.

j'ai fait le test sur mon W10 et ne vois pas le soucis de rafraichissement
Sur le fond par contre j'ai plusieurs interrogations
sur le fdMemTable : que des champs blobs, c'est pas très efficace
sur le style personnalisé : pour les images j'aurais utilisé comme nom 'Icon' qui aurait permis une simplification Item.ItemData.Bitmap.LoadfromStream(fonction renvoyant un stream de l'image construite)

je suis sur windows 7. as tu réduit la largeur de la fenêtre pour masquer les remises puis réagrandit pour revoir les 3 panneaux ? en regardant à la loupe la fin du code barre du dernier panneau, tu verras qu'il est identique au 2ème. en cliquant sur le bouton pour relancer l'affichage des données dans le listbox, le code barre se rafraichit correctement.

pour les champs blobs, c'est une appli de test. dans mon vrai projet, tout est propre.

pour le style personnalisé, je n'ai pas trop compris où tu voulais en venir. J'ai effectivement, parmi mes 3 milliards de test, essayer d'affecter le stream mais sans succès.

Un grand merci à vous 3 pour le coup de main

**SergioMaster** · 19/09/2018, 14h37

Envoyé par delaio

je suis sur windows 7. as tu réduit la largeur de la fenêtre pour masquer les remises puis réagrandit pour revoir les 3 panneaux ? en regardant à la loupe la fin du code barre du dernier panneau, tu verras qu'il est identique au 2ème.

bon, j'ai pas les yeux scanner de code mais pour moi, sous w10, je ne vois pas le problème, les 3 cdb sont bien différents

pour les champs blobs, c'est une appli de test. dans mon vrai projet, tout est propre.

je m'en doutais un peu

pour le style personnalisé, je n'ai pas trop compris où tu voulais en venir. J'ai effectivement, parmi mes 3 milliards de test, essayer d'affecter le stream mais sans succès.

je n'ai pas le temps d'essayer le stream "propre" pour l'instant, par contre pour ce qui est du nom j'en ai plus ou moins parlé lors de mes premiers pas avec les styles dans le code du 3° chapitre tu liras que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Item.ItemData.Bitmap.LoadThumbnailFromFile(Item.TagString,Item.Height,Item.Height);

pas de quoi fouetter un chat si ce n'est que je n'ai pas besoin de rechercher le bitmap par la fonction StylesData[<nom>] du fait que j'ai utilisé comme nom de mon image 'icon', idem si tu nommes un de tes élements de style 'Text' tu peux y accéder directement i.e : Item.text:='Toto' putôt que Item.StylesData['Text']:='Toto'

voici mon essai non concluant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
         //  item_lis.StylesData['codebarre_im'] := codebarreremise_im.Bitmap;
          item_lis.ItemData.Bitmap.LoadFromStream(CodeBarre(remises2_memtb.FieldByName('codebarre').AsString,codebarreremise_im));

Totalement inspiré de ta fonction, logiquement le Timage devrait être supprimé pour être créé à l'intérieur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function TForm1.CodeBarre(numoffre_st: string;  var codebarredessin_im : Timage): TMemoryStream;
var R :TRect;
    W :integer;
const BarSize = 1;
begin
  try
    Result:=TmemoryStream.Create;
    //largeur width : Taille totale (Nb cara + StartB + CheckSum +Stop +2x QuietZone)
    W := ((Length(numoffre_st) +3) *11 +10) * (BarSize);
 
    //Rectangle à 0mm des bords de page, hauteur 64mm
    R := Rect((0), (0), (0) +W, (64));
 
    //Espacement entre cadre et code de 2mm
    InflateRect(R, 0, -2);
 
    // initialisation du canvas de l'image bitmap
    codebarredessin_im.Bitmap := TBitmap.Create(W, 64);
    //Code barres avec un trait de 1mm
    codebarredessin_im.Bitmap.Clear($FFFFFF);
    // trait noir
    codebarredessin_im.Bitmap.Canvas.Fill.Kind := TBrushKind.Solid;
    codebarredessin_im.Bitmap.Canvas.Fill.Color := claBlack;
    // appelle codebarre_128.drawbarcode128 pour remplissage du canvas
    DrawBarCode128(numoffre_st, codebarredessin_im.Bitmap.Canvas, BarSize, R, ctB);
    codebarredessin_im.Bitmap.SaveToStream(Result);
  except on E : Exception do
    ShowMessage('Erreur création code barre n° ' + numoffre_st + '(' + E.Message + ').');
  end;
end;

**SergioMaster** · 20/09/2018, 08h10

Bonjour,

avant le boulot j'ai repris cette histoire de stream, dont voici la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
function TForm1.CodeBarre(numoffre_st: string): TMemoryStream;
var R :TRect;
    W :integer;
    dessin : Timage;
const BarSize = 1;
begin
  try
    Result:=TmemoryStream.Create;
    dessin:=TImage.Create(nil);
    try
    //largeur width : Taille totale (Nb cara + StartB + CheckSum +Stop +2x QuietZone)
    W := ((Length(numoffre_st) +3) *11 +10) * (BarSize);
 
    //Rectangle à 0mm des bords de page, hauteur 64mm
    R := Rect((0), (0), (0) +W, (64));
 
    //Espacement entre cadre et code de 2mm
    InflateRect(R, 0, -2);
 
    // initialisation du canvas de l'image bitmap
    dessin.Bitmap := TBitmap.Create(W, 64);
    //Code barres avec un trait de 1mm
    dessin.Bitmap.Clear($FFFFFF);
    // trait noir
    dessin.Bitmap.Canvas.Fill.Kind := TBrushKind.Solid;
    dessin.Bitmap.Canvas.Fill.Color := claBlack;
    // appelle codebarre_128.drawbarcode128 pour remplissage du canvas
    DrawBarCode128(numoffre_st, dessin.Bitmap.Canvas, BarSize, R, ctB);
    dessin.Bitmap.SaveToStream(Result);
    finally
      dessin.free;
    end;
  except on E : Exception do
    ShowMessage('Erreur création code barre n° ' + numoffre_st + '(' + E.Message + ').');
  end;
end;

un test avec un Timage en dehors de la liste me confirme que le stream est bien rempli, par contre ma proposition de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

item_lis.ItemData.Bitmap.LoadFromStream(CodeBarre(remises2_memtb.FieldByName('codebarre').AsString));

ne veux rien savoir

pas d'erreur mais pas d'image non plus

Pourtant, j'ai même fait le test suivant au moment du remplissage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
          atms:=TmemoryStream.Create;
          atms:=CodeBarre(remises2_memtb.FieldByName('codebarre').AsString);
          Image1.Bitmap.LoadFromStream(aTms);  // je vois bien le code barre dans Image1
          showmessage('Alors ?');
          item_lis.ItemData.Bitmap.LoadFromStream(atms);  // pas de code barre dans la liste 
          atms.Free;

Cela voudrait-il dire que ma vieille astuce (nommer icon l'image dans le style) ne fonctionne plus ou qu'il y a un pb au niveau du loadfromstream du style ?
Jusqu'à ce que je m’aperçoive que j'ai bêtement mis 'ico' au lieu de "icon" dans le stylename

Donc, ça fonctionne avec un LoadFromStream, ça ne change pas la face du monde mais rend ma tranquillité d'esprit

**delaio** · 20/09/2018, 16h59

Bonjour,

Envoyé par SergioMaster

Totalement inspiré de ta fonction, logiquement le Timage devrait être supprimé pour être créé à l'intérieur

Rendons à César ce qui appartient à César. Cette fonction et l'unité associé pour la génération des codes barres 128 ont été mis à dispo par Andnotor (que je remercie humblement pour une roue que je n'ai pas eue à réinventer

)

https://www.developpez.net/forums/d9...er-code-barre/

Envoyé par SergioMaster

Donc, ça fonctionne avec un LoadFromStream, ça ne change pas la face du monde mais rend ma tranquillité d'esprit

J'adore ta pugnacité ! Un GRAND merci pour ce dev avec le LoadFromStream !

Très bonne journée.

**SergioMaster** · 20/09/2018, 17h13

Envoyé par delaio

Rendons à César ce qui appartient à César. Cette fonction et l'unité associé pour la génération des codes barres 128 ont été mis à dispo par Andnotor (que je remercie humblement pour une roue que je n'ai pas eue à réinventer

)

du coup, moi qui n'osais taper dans l'unité codebarre_18.pas pour directement générer un stream ... mais bon je laisse tomber

J'adore ta pugnacité !

comme quoi pas complètement, sauf si demain matin je me sens l'humeur flux de mémoire

affecter correctement un timage dans les styles d'un TListBoxItem

Composants FMX Delphi

Discussions similaires

Partager

Partager