Discussion :

[Guile]

Bonjour tout le monde
Voici mon problème :
J'ai une ListView en mode vsReport, elle s'affiche donc comme une grille.
Mais comme ça n'en est pas une, il n'y a pas d'evenement OnClickCell et OnDrawCell.
Or j'aimerai pouvoir changer la couleur d'une cellule et surtout savoir si l'utilisateur click dans une cellule (et non pas juste l'item).
Est ce possible ?

Merci

[LadyWasky]

Salut,

Pour la couleur des "cellules" (des sub-items en fait) d'un TListView, va voir ici :
http://www.developpez.net/forums/sho...light=listview

Sinon, tu peux faire "comme si" tu avais un TListview avec un TStringGrid ou un TDrawGrid (comme ça tu bénéficieras du OnSelectCell) :
tu vas dans sa propriété Options, et tu mets les sous-propriétés dgTitles, dgIndicator, dgColLines et dgRowLines à false ou à true selon tes goûts

[Guile]

Oui, je sais qu'une TStringGrid aurait été plus pratique pour mon problème mais en fait je fais évoluer une appli et il y a déjà pas mal de code derrière.
C'est pour cela que je cherchais s'il n'y avait pas un moyen plus simple que de changer de composant.

[LadyWasky]

ou alors :
1) tu récupères la position de la souris

Code :

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

P:=Mouse.CursorPos;

2) tu transformes les coordonnée de la souris en coordonnées clientes de la TList

Code :

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

  P:=Listview1.ScreenToClient(P);

3) tu en déduis la colonne visée en fonction de P.X et de la largeur des colonnes. Pour la ligne, je pense que tu sais faire

Je te laisse faire ?

[Guile]

Oui, je vais essayer comme ça. Ca devrait me suffir.
En tout cas pour la couleur merci, ça fonctionne nickel

[LadyWasky]

et n'oublies pas de cliquer sur le p'tit bouton

[Guile]

Je n'ai pas oublié mais j'ai encore un ptit problème.
Les colonnes sont redimensionnables et il peut donc y avoir un scroll horizontal. Or mon calcul pour retrouver la colonne cliquée ne fonctionne plus dès que la scrollbar n'est plus à gauche.
Comment sait on de combien une grille est décalée par une scrollbar ?

[Fabrice ROUXEL 1]

Mémorise la largeur des colonnes puisqu'elle sont redimensionnables.

Code :

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

1
2
Largeur0 := ListView1.Columns[0].Width;
 etc

Puis recalcule la colonne pointée.

[Guile]

C'est ce que j'ai fait, je me suis peut être mal exprimé mais mon problème ne vient pas de la largeur des colonnes mais plutot de la scrollbar horizontal.
Si je déplace la barre vers la droite, le calcul ne fonctionne plus.
En cliquant à gauche de la grille
P.X renvoie environ 0 alors que je peux etre à la colonne 25 avec un scroll.

J'ai donc besoin de la valeur du décalage due au scroll !

[Sunchaser]

Bonjour,

Une petite proposition :
.dans le OnMouseDown du TListView
(ou 'listv' est mon TListView)

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
 
procedure TForm2.listvMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
lvhtti : PLVHitTestInfo;
lign : Integer;
col : Integer;
begin
//
  New(lvhtti);
  lvhtti.pt := Point(X, Y);
  if( ListView_SubItemHitTest(listv.Handle, lvhtti) > -1 ) then
  begin
    lign := lvhtti.iItem;
    col := lvhtti.iSubItem - 1;
    ShowMessage( listv.Items.Item[lign].SubItems.Strings[col] );
  end;
//
end;

En espérant t'aider,
@ +

[Guile]

Excellent ! ça marche très bien ! Merci à vous tous