ItemDelegate en Delphi

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:

---

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

Citation:

---

Envoyé par Selzig

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/

Citation:

---

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

Bonjour Serge,

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

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

Citation:

---

Envoyé par Selzig

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

---

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

Citation:

---

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

---

merci

Citation:

---

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

Re-bonjour,

voilà les images demandées :
Pièce jointe 415427 et Pièce jointe 415429

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.

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 8-) basta

en gros sur la forme

Code:

---

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