Les cellules d'une ListView

Version imprimable

22/03/2007, 10h58
Guile

Les cellules d'une ListView

Bonjour tout le monde :D
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 ;)
22/03/2007, 11h33
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
22/03/2007, 11h40
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. :(
22/03/2007, 11h57
LadyWasky

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

Code:

P:=Mouse.CursorPos;

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

Code:

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 ? :aie:
22/03/2007, 13h40
Guile

Oui, je vais essayer comme ça. Ca devrait me suffir.
En tout cas pour la couleur merci, ça fonctionne nickel :king:
22/03/2007, 17h15
LadyWasky

et n'oublies pas de cliquer sur le p'tit bouton :resolu:
22/03/2007, 18h17
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. :aie:
Comment sait on de combien une grille est décalée par une scrollbar ?:(
22/03/2007, 18h29
Fabrice ROUXEL 1
Mémorise la largeur des colonnes puisqu'elle sont redimensionnables.
Code:

1 2 Largeur0 := ListView1.Columns[0].Width; etc
Puis recalcule la colonne pointée.
22/03/2007, 18h47
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. :aie:

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

Bonjour,

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

Code:

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,
@ + ;)

23/03/2007, 09h30
Guile

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