Discussion :

[Invité]

Bonjour,

comme j'ai encore beaucoup de mal avec les subtilités du LiveBinding, je voudrais savoir comment on peut "obtenir" la délégation de Qt.

Dans une colonne d'une Grid, je charge un boolean. Avec Qt, il est possible d'afficher à la place de 0 ou 1, une image par exemple (ou autre chose).

Code :

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

1
2
3
4
        if(index.data().toInt()==1)
            style->drawItemPixmap(painter,option.rect,Qt::AlignCenter,pixmapY);
        else
            style->drawItemPixmap(painter,option.rect,Qt::AlignCenter,pixmapN);

La colonne contient des booleans mais elle affiche des images (donc elle est immédiatement triable).

Alors avec Delphi, je peux en faire autant en ajoutant une colonne "image" et en cachant la colonne "boolean". Mais est-il possible de pratiquer de la même façon que Qt ? Ce serait une fonction du LiveBinding que je ne connais pas. Serge ?

Merci. Cordialement. Gilles

[SergioMaster]

Serge ?

C'est un Serge bien fatigué (gros rhume) qui va te répondre ...
Je ne comprend pas cette histoire de délégation (mais c'est surtout à cause de mon cerbo lent)
Je crois avoir à peu près répondu à tout dans mon dernier tutoriel sur les grilles https://delphi.developpez.com/index/...-Serge-Girard/

Avec Qt, il est possible d'afficher à la place de 0 ou 1.

idem avec les LiveBindings tu peux très bien utiliser un customformat du style IfThen(value=0,'A','B')
pour les images voir dans le tuto

[Invité]

Bonjour Serge,

Le rub... c'est le climat ! Mais... c'est inquiétant si cela atteint le cerveau

Je re-regarde. Pourtant, je l'ai étudiée, ta superbe doc. Je me suis même basé dessus. Si je ne m'en sors pas, je referai appel... mais je te laisse quand même le temps de te soigner.

Bonne journée. Gilles

[SergioMaster]

Mais... c'est inquiétant si cela atteint le cerveau

j'ai l'impression qu'il me coule par les narines

Je re-regarde. Pourtant, je l'ai étudiée, ta superbe doc.

merci

Si je ne m'en sors pas, je referai appel...

une petite image de ce que tu voudrais aiderai pour l'instant c'est flou

[Invité]

Re-bonjour,

voilà les images demandées :
et

A gauche, une approche classique : une colonne contenant les données et l'autre contenant les images.
A droite, l'approche que j'ai retenue : la colonne xxactif contient exactement les mêmes données que sur l'image de gauche mais affiche les images. si je demande la valeur de la première ligne de xxactif, il m'est renvoyé "1".

A plus.

[SergioMaster]

Ah, je vois mieux

Voilà comment je ferai :
une grille (évidemment, avec une colonne de type TimageColumn) un TImageList qui va contenir tes deux images. Je fait l'impasse sur la possibilité de la définition multires mais si tu veux je peux te faire l'article je crois que j'ai (enfin) compris.
La grid à la propriété Images qui pointe sur le TImageList
une liaison (livebinding) somme toute très classique entre la colonne et tes valeurs et basta

en gros sur la forme

Code :

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

1
2
3
4
5
6
7
 
 TForm20 = class(TForm)
    Grid1: TGrid
    ImageList1: TImageList;
    BindingsList1: TBindingsList;
    BindSourceDB1: TBindSourceDB;
    FDQuery1: TFDQuery;

la valeur de ta colonne est l'index de l'image affichée
la limite est que tu ne peux utiliser qu'un seul TImageList pour ta grille si tu veux l'utiliser pour plusieurs colonnes il faudra jouer avec les index des images

par exemple pour ma colonne A, valeurs 0-3 j'utilise les images index 0 à 3
pour ma colonne B valeurs 0-3 j'utilise les images index 4 à 7 (pour ça dans ma liaison j'utilise CustomFormat pour rajouter 4 à la valeur de la colonne