[Linux 32] Sélectionner une ligne d'une ListView en mode Report et en récupérer l'index : mission impossible ?

Bonsoir,

Tout est dans le titre, alors ce soir je fais court et simple.
La ListView est remplie dans l'EDI, et correctement affichée en mode design comme au runtime, ràs.

Le code, réduit à sa plus simple expression :

Code:

---

1 2 3 4

procedure TForm1.lvSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin Edit7.Text := Item.Caption +' '+ IntToStr(Item.Index); // l'Item.Index c'est du grand nawak ! end;

---

et voilà le résultat (la ligne en surbrillance indique là où j'ai cliqué) :

Pièce jointe 330026

Une idée pour avoir "0" au lieu de "4" quand je clique sur la 1^re ligne ?

Question subsidiaire : un bon point pour celui ou celle (quoique, je n'en ai jamais vu ici) qui devine ce sur quoi je bosse en ce moment, :lol:

hello JPT,
moi je n'ai pas ton souci en Lazarus 1.8 PVO (presque version officielle) .
Quelle version de Lazarus utilises-tu et comment crées-tu ta listview et tous ses éléments. Le plus simple serait que tu nous mettes en pièce jointe tout le code source de ton projet ou un projet simplifié avec la partie listview.
Ami calmant, J.P (sans T)

Bon sang mais c'est bien sûr !

Mais où avais-je la tête ? J'avoue que j'étais un peu fatigué, hier soir, et que j'ai zappé ma pire ennemie, la non-compatibilité Windows-Linux !
:weird:
Allez hop !
Encore un projet dont l'esthétique est foutue en l'air, la listview étant inutilisable sous Linux/Gtk2 alors qu'elle fonctionne très bien sous Windows (merci les machines virtuelles :ccool:)
:calim2:
Tiens, "ils" m'ont gâché le week-end, et si vous saviez comme j'en ai marre, sans compter le temps perdu...
:cry:
Bon, je vous mets le zip quand même, histoire de dire, mais je me demande si, lorsqu'elle sortira, cette 1.8 du pays d'Arles (six mois tout rond depuis la rc1), je vais migrer (comme je l'avais dit)...
À quoi bon ?
Pièce jointe 330077

Bon week-end, merci de m'avoir aiguillé,

EDIT : solution de contournement et de rattrapage :

supprimer la méthode "OnSelectItem" et rajouter

Code:

---

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

type // obligatoire, quand je rajoute "commctrl" dans les uses, le fichier n'est pas trouvé... LV_HITTESTINFO = record pt : TPOINT; flags : UINT; iItem : longint; end; _LV_HITTESTINFO = LV_HITTESTINFO; TLVHITTESTINFO = LV_HITTESTINFO; PLVHITTESTINFO = ^LV_HITTESTINFO;   procedure TForm1.lvClick(Sender: TObject); var pt: TPoint; li : TListItem; lvHitInfo: TLVHitTestInfo; begin pt := lv.ScreenToClient(Mouse.CursorPos); // les coordonnées DANS le contrôle li := lv.GetItemAt(pt.x, pt.y);   if li <> nil then begin FillChar(lvHitInfo, SizeOf(lvHitInfo), 0) ; lvHitInfo.pt := pt; // 4153 : identifiant d'un message dont j'ai zappé le nom, inconnu car commctrl absent if lv.Perform(4153, 0, LParam(@lvHitInfo)) <> -1 then Caption := li.Caption +' '+ IntToStr(li.Index); end; end;

---

Ouuuuuuuuuuuuuuuuuuuuf ! :mrgreen:

Salut,

La version finale 1.8 ne devrait plus trop tarder :zoubi:

Citation:

---

Question subsidiaire : un bon point pour celui ou celle (quoique, je n'en ai jamais vu ici) qui devine ce sur quoi je bosse en ce moment,

---

A vu de nez je dirais sur la colorimétrie, le contrôle des couleurs avec Les illuminants normalisés et températures de couleur :D

Yep !

Citation:

---

Envoyé par BeanzMaster

La version finale 1.8 ne devrait plus trop tarder :zoubi:

---

Ils peuvent se la garder : quand j'ai regardé la liste des problèmes corrigés, je n'ai rien vu concernant la listview, alors bon, je ne vais pas me lancer dans un upgrade qui ne m'apporterait rien, :cry:
Bon, je ferai sans doute des tests dans une machine virtuelle pi je viendrai vous raconter, :P

Citation:

---

Envoyé par BeanzMaster

A vue de nez je dirais sur la colorimétrie, le contrôle des couleurs avec les illuminants normalisés et températures de couleur :D

---

:applo:
Et je te dis pas comment je pète les plombs, le nez dans "La gestion des couleurs pour les photographes, les graphistes et le prépresse" de J. Delmas chez Eyrolles, un pavé de 600 pages avec plein de valeurs concernant la (couleur de la) banane (si si ! :mrgreen:) en fonction des espaces colorimétriques, et je ne trouve pas exactement les mêmes valeurs que lui, ça m'énerve ! ;)
une histoire de choix de matrices, je pense...
Bon, je retourne chez Lindbloom.

Le bon point pour toi, :mouarf:

Pour la colorimetrie du coté de chez egf's tu as ce lien sinon tu peux aussi regarder du coté de la librairie LCMS pour la gestion des ICC entre autre.
Autre conseil fais tes calculs en Double voir en Extend au lieu de Single

Citation:

---

Envoyé par BeanzMaster

Autre conseil fais tes calculs en Double voire en Extend au lieu de Single

---

T'inquiète pas, c'est bien comme ça que je fais.

Merci pour le lien.

hello,

Citation:

---

Envoyé par Jipété

Encore un projet dont l'esthétique est foutue en l'air, la listview étant inutilisable sous Linux/Gtk2 alors qu'elle fonctionne très bien sous Windows (merci les machines virtuelles :ccool:)

---

Effectivement il semble y avoir un bug sous linux pour la sélection dans une listview :aie: . Mais si tu utilises le clavier à la place de la souris pour faire la sélection cela fonctionne :mouarf: .
Petite question subsidiaire : Pourquoi n'utilises-tu pas une stringgrid ?
Ami calmant, J.P (sans T)

Merci pour tes tests et ton retour :ccool:

Citation:

---

Envoyé par jurassic pork

Effectivement il semble y avoir un bug sous linux pour la sélection dans une listview :aie: . Mais si tu utilises le clavier à la place de la souris pour faire la sélection cela fonctionne :mouarf: .

---

On est propres ! :mur:

Et en fait, bien que n'étant pas un fan inconditionnel de la souris, force est de reconnaître qu'elle est parfois bien utile : si je lance un calcul à chaque fois qu'une ligne est sélectionnée, il sera plus simple, plus confortable, plus agréable de comparer les lignes 1 et 4 à la souris plutôt qu'au clavier, qui obligerait à passer par les lignes 2 puis 3.

Citation:

---

Envoyé par jurassic pork

Petite question subsidiaire : Pourquoi n'utilises-tu pas une stringgrid ?

---

Je ne sais plus trop : je l'avais envisagé et puis...
Pi j'aime bien la FixedRow légèrement arrondie en tête de grille, :D

Pour ton problème, j'ai trouvé l'explication :

Citation:

---

I had to use the selected parameter. The event gets called multiple times, with the old item and selected=False, and the actual item with Selected=ON.
When coming from Delphi, it happens.

---

et la solution peut être :

Code:

---

1 2 3 4 5

procedure TForm1.lvSelectItem(Sender: TObject; MItem: TListItem; Selected: Boolean); begin if Selected then Caption := MItem.Caption +' '+ IntToStr(MItem.Index); end;

---

Ami calmant, J.P (sans T)

Citation:

---

Envoyé par jurassic pork

Pour ton problème, j'ai trouvé l'explication :

et la solution peut être :

Code:

---

1 2 3 4 5

procedure TForm1.lvSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin if Selected then Caption := Item.Caption +' '+ IntToStr(Item.Index); end;

---

---

sans le "M" ! :P (d'où qu'il sort ? :koi:)

Et moi je dis chapeau ! Respect ! Profil bas les gars, regardez, voilà un grand maître !

Toutes mes félicitations, ça allège bien la bidouille que j'avais pondue à partir de lvClick avec ScreenToClient(Mouse.CursorPos) et GetItemAt(pt.x, pt.y);.

Bien joué, J.P, et grand merci !