Sélection des cellules dans un TStringList

Version imprimable

21/08/2015, 00h38
naute

Sélection des cellules dans un TStringList

Bonjour :D,

est-il possible de sélectionner, par logiciel, une cellule précise d'un TStringList, comme on peut la sélectionner en cliquant dessus avec la souris. En gros, je voudrais me déplacer dans la grille avec les touches fléchées et/ou passer automatiquement à la cellule suivante en appuyant sur la touche <ENTER>. J'ai cherché une fonction du genre TStringList.SelectCell[X,Y] mais je n'ai rien trouvé. Et je n'arrive pas à trouver une astuce pour le faire :calim2:.

Si quelqu'un a une idée, merci d'avance pour sa réponse.

Amicalement,

naute.
21/08/2015, 13h15
ThWilliam

Bonjour,

Je suppose que tu parles de TStringGrid et non de TStringList.
A vrai dire, je ne comprends pas ta question, pcq le TStringGrid réagit aux flèches de direction et touche Enter, à condition évidemment que le StringGrid soit focalisé !
La touche Enter a un comportement différent selon les options du grid.
Fais un test en modifiant les options : goEditing, goAlwaysShowEditor, goDrawFocusSelected...

Que veux-tu faire exactement ?

Cordialement
Thierry
21/08/2015, 18h11
OR34a

Citation:

Envoyé par naute

Bonjour :D,

est-il possible de sélectionner, par logiciel, une cellule précise d'un TStringList, comme on peut la sélectionner en cliquant dessus avec la souris. En gros, je voudrais me déplacer dans la grille avec les touches fléchées et/ou passer automatiquement à la cellule suivante en appuyant sur la touche <ENTER>. J'ai cherché une fonction du genre TStringList.SelectCell[X,Y] mais je n'ai rien trouvé. Et je n'arrive pas à trouver une astuce pour le faire :calim2:.

Si quelqu'un a une idée, merci d'avance pour sa réponse.

Amicalement,

naute.

Bonjour,

L'accès à une cellule d'un stringGrid est possible par l'instruction suivante :

Code:

StrGrid_Rapp.Cells[i , j] ;

ou
StrGrid_rapp est le nom du Stringrid concerné.
La propriété Cells permet l'accès au tableau constitué par les diverses cellule du Stringrid
i est le numéro de colonne
j est le numéro de ligne

Attention la première ligne ou colonne portent le n° 0

Généralement il faut gérer tout cela dans une boucle sur i - j pour parcourir le tableau .

J'espère que cette réponse vous sera utile.
21/08/2015, 18h53
Jipété

Salut,

Citation:

Envoyé par OR34a

i est le numéro de colonne
j est le numéro de ligne

Truc mnémotechnique : utiliser c, r pour column, row ;)
21/08/2015, 22h27
naute

Citation:

Envoyé par ThWilliam

Bonjour,
Je suppose que tu parles de TStringGrid et non de TStringList.

:oops: Oui, bien sûr. Il commençait à se faire tard!

Citation:

Envoyé par ThWilliam

A vrai dire, je ne comprends pas ta question, pcq le TStringGrid réagit aux flèches de direction et touche Enter, à condition évidemment que le StringGrid soit focalisé !
La touche Enter a un comportement différent selon les options du grid.
Fais un test en modifiant les options : goEditing, goAlwaysShowEditor, goDrawFocusSelected...

goEditing, goAlwaysShowEditor, goDrawFocusSelected sont toutes les trois à True.
Les touches fléchées me permettent de me déplacer dans la colonne, mais pas dans la rangée. En haut = à gauche et en bas = à droite. Je peux monter et descendre, mais pas aller à droite ou à gauche. La touche <Enter> n'a aucun effet.
Mon TStringGrid est celui du paquet "Solution" (TLSStrinGrid) fourni par Code Typhon mais il est directement dérivé de celui fourni par Lazarus. Je l'utilise parce qu’il fournit quelques fonctionnalités supplémentaires, notamment la suppression d'une ligne de la grille.

Citation:

Envoyé par ThWilliam

Que veux-tu faire exactement ?
Thierry

J'aimerais que la saisie, dans chaque cellule, ne nécessite pas l'utilisation de la souris. J'ai, par exemple, des CheckBox(s) dans ma grille, et j'aimerais pouvoir y accéder avec les touches fléchées et les positionner avec la touche <Enter>.

Citation:

Envoyé par OR34a

L'accès à une cellule d'un stringGrid est possible par l'instruction suivante :

Code:

StrGrid_Rapp.Cells[i , j] ;

C'est vrai pour lire ou écrire une valeur dans la cellule, mais pas pour sélectionner la cellule et pour y saisir une valeur. Enfin, sauf erreur.

Citation:

Envoyé par Jipété

Truc mnémotechnique : utiliser c, r pour column, row

Oui, et d'ailleurs, quand j'ai écrit TStringList.SelectCell[X,Y], j'aurais du écrire TStringList.SelectCell[aCol,aRow]: ça aurait fait plaisir à Stéphane (Collaro) (pas sûr de l'orthographe :aie:).

Merci beaucoup pour vos réponses,
amicalement,

naute
21/08/2015, 23h35
Jipété

Citation:

Envoyé par naute

goEditing, goAlwaysShowEditor, goDrawFocusSelected sont toutes les trois à True.

goEditing suffit pour que <Enter> active l'éditeur dans la cellule sélectionnée.

Citation:

Envoyé par naute

Les touches fléchées me permettent de me déplacer dans la colonne, mais pas dans la rangée. En haut = à gauche et en bas = à droite. Je peux monter et descendre, mais pas aller à droite ou à gauche. La touche <Enter> n'a aucun effet.

Le TStringgrid de base de mon Lazarus 1.4.0 posé sur une bête form, F9 et en avant, les 4 flèches pour se déplacer dans les 4 directions, et <Enter> pour activer l'éditeur, après avoir passé goEditing à True et hop !, ça le fait.

Citation:

Envoyé par naute

Mon TStringGrid est celui du paquet "Solution" (TLSStrinGrid) fourni par Code Typhon mais il est directement dérivé de celui fourni par Lazarus. Je l'utilise parce qu’il fournit quelques fonctionnalités supplémentaires, notamment la suppression d'une ligne de la grille.
J'aimerais que la saisie, dans chaque cellule, ne nécessite pas l'utilisation de la souris. J'ai, par exemple, des CheckBox(s) dans ma grille, et j'aimerais pouvoir y accéder avec les touches fléchées et les positionner avec la touche <Enter>.

Ah ben vi, si tu compliques les choses, on va pas y arriver :mouarf:
22/08/2015, 09h38
naute

Citation:

Envoyé par Jipété

Ah ben vi, si tu compliques les choses, on va pas y arriver :mouarf:

Eh oui! Je crois encore au Père Noël. Ce n'est pourtant pas la première fois que je me fais avoir avec un composant exotique.
Je n'arrive pas à comprendre pourquoi, lorsqu'on dérive un composant pour y ajouter des fonctionnalités, on en enlève d'autres. Ou alors une bête erreur, peut-être, dans la publication des procédures? Mais, en même temps, si on ne veut pas les changer, il n'y a qu'à pas y toucher. Cela prouve, en tout cas (ou en tous cas, c'est selon :P) que le composant n'a pas (ou mal) été testé.
J'ai effectivement mis un TStrinGrid standard et, évidemment :roll: , ça fonctionne!
Je vais donc bricoler une routine pour supprimer des lignes puisque la fonction n'existe pas dans TStringGrid.
C'est dommage car TLSStringGrid offre des fonctionnalités supplémentaires réellement intéressantes, notamment en ce qui concerne la présentation. Cela peut paraître secondaire, mais quand on peut améliorer l'esthétique, pourquoi s'en priver? :D

Par contre, je ne sais toujours pas comment sélectionner une cellule particulière par logiciel. C'est forcément possible puisqu'un click de la souris sur une cellule la sélectionne, et il ne fait que déclencher un évènement qui lance une routine. C'est le principe de cette routine que j'aimerais bien connaître, si elle n'est pas trop complexe.
22/08/2015, 12h02
Invité

Bonjour,

Je viens de faire un test avec le composant TLSStringGrid et cela semble fonctionner correctement : aussi bien les flèches de directions (les 4) qui permettent de se déplacer de cellule en cellule dans la grille (haut + bas + gauche + droite) que la touche "Enter" qui fait se déplacer sur la cellule suivante.

Dans les options, j'ai mis goRowSelect à False et goAlwaysShowEditor + goDrawFocusSelected + goEditing à True.

Peut-être est-ce dû à l'option goRowSelect qui est resté à True ?

J'utilise CodeTyphon Version 5.4

Cdt

Laurent
22/08/2015, 16h34
ThWilliam
Bonjour.

Plus besoin de bricoler une procédure pour supprimer une ligne, elle existe dans le TStringGrid de Lazarus (v 1.4) :

Code:

StringGrid.DeleteRow(index_ligne)

Citation:

Par contre, je ne sais toujours pas comment sélectionner une cellule particulière par logiciel

Simplement en utilisant les propriétés Col et Row
Code:

1 2 3 4 5 with StringGrid1 do begin Col:= 2; Row:= 3; end;
Pour améliorer l'esthétique, tu peux faire beaucoup de choses avec les événements OnDrawCell et OnPrepareCanvas.
Y compris simuler la petite case d'un checkbox.

Cordialement
Thierry
22/08/2015, 23h09
naute
Bon! Alors d'abord, je présente mes plus plates excuses aux développeurs du composant en question. En mettant à True l'option goRelaxedRowSelect, le déplacement avec les touches fléchées fonctionne. Il est vrai que je n'avais pas testé toutes les options. Oui mais bon!!! Les composants ne sont pas documentés. Vu le temps passé à savoir comment ils fonctionnent, on aurait aussi vite fait de les développer soi-même. Non :ptdr:! Je plaisante, mais comme je l'ai dit sur un autre post, l'absence de documentation ou d'aide reste un sacré frein à l'utilisation d'un composant que quelqu'un a mis beaucoup de temps à développer.

Citation:

Envoyé par ThWilliam

Plus besoin de bricoler une procédure pour supprimer une ligne, elle existe dans le TStringGrid de Lazarus (v 1.4) :

Code:

StringGrid.DeleteRow(index_ligne)

Alors là, je ne vois pas comment je suis passé à coté :oops:! J'ai dû rester sur le StringGrid de Delphi 7 qui ne possède pas cette méthode.
Citation:
Envoyé par ThWilliam

Simplement en utilisant les propriétés Col et Row

Code:

1 2 3 4 5 6 with StringGrid1 do begin Col:= 2; Row:= 3; end;
:ccool:Ben voui! Tout simplement! A postériori, ça semble évident.

Citation:

Envoyé par inforock

Peut-être est-ce dû à l'option goRowSelect qui est resté à True ?

:ccool:Tout à fait: En mettant goRowSelect à False, et quelque soit le positionnement de goRelaxedRowSelect, le déplacement fonctionne! Il faut avouer que l'action de certaines options n'est pas toujours évident. Du moins pour moi. Par contre, ma touche <Enter> ne fait toujours rien (la fainéante). Mais à présent, je pense qu'il doit s'agir d'une option mal choisie.

Il me reste deux problèmes à solutionner: L'entrée automatique en mode édition de la cellule sélectionnée sans avoir à cliquer sur la grille et le positionnement des CheckBox(s) avec une touche du clavier plutôt qu'à la souris.

Mais déjà, grand merci à tous,

naute

Pour sélectionner ou désélectionner la CheckBox d'une StringGrid à l'aide d'une touche du clavier, ce n'est finalement pas bien compliqué:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TFiche.GrilleDown(Sender: TObject; var Key: Word; Shift: TShiftState); var Col,Row: LongInt; begin //On récupère les coordonnées de la cellule sélectionnée Col := Grille.Col; Row := Grille.Row; //Quand on appuie sur la touche <Enter> (13), par exemple if Key = 13 then begin //On bascule la valeur de la cellule entre '1' et '0' ('1' = CheckBox sélectionnée, '0' = CheckBox désélectionnée, valeurs par défaut) if Grille.Cells[Col,Row] = '1' then Grille.Cells[Col,Row] := '0' else Grille.Cells[Col,Row] := '1'; end; end;
Reste l'entrée automatique en mode édition, mais c'est secondaire puisqu'il suffit d'une seule action pour placer la grille dans ce mode, elle y restera pendant toute la session. Ce n'est donc pas bien gênant.

25/08/2015, 10h56
Jipété
Salut,

je réagis un peu tardivement mais c'est la vision de ton bout de code qui m'a fait tilter :
Citation:
Envoyé par naute

Pour sélectionner ou désélectionner la CheckBox d'une StringGrid à l'aide d'une touche du clavier, ce n'est finalement pas bien compliqué:

Code:

1 2 3 //Quand on appuie sur la touche <Enter> (13), par exemple if Key = 13 then
Si l'on se base sur l'ergonomie des IHM en mode graphique, c'est la barre d'espace qui change l'état d'une checkbox : l'appui sur <ENTRÉE> risque de ne pas être intuitif pour tes utilisateurs, et déstabilisant.
26/08/2015, 09h59
naute
Citation:

Envoyé par Jipété

Salut,
je réagis un peu tardivement mais c'est la vision de ton bout de code qui m'a fait tilter :
Si l'on se base sur l'ergonomie des IHM en mode graphique, c'est la barre d'espace qui change l'état d'une checkbox : l'appui sur <ENTRÉE> risque de ne pas être intuitif pour tes utilisateurs, et déstabilisant.

OK! Je ne savais pas. Je change ça tout de suite, et ça devient:
Code:

1 2 3 //Quand on appuie sur la touche <Espace> (32), par exemple if Key = 32 then
J'avais d'ailleurs bien stipulé "par exemple" car je n'avais pas encore trop idée de la bonne touche à choisir pour cette action. Utiliser <Enter> pour ça est, comme tu dis, contre-intuitif et déstabilisant. C'est de plus du gâchis, <Enter> ayant bien d'autres usages préférables.

Merci Jipété,

naute
26/08/2015, 14h45
naute

Hum! Oui sauf que cela ne fonctionne pas :calim2:.

Chez moi, les touches virtuelle de Delphi comme VK_SPACE (ou VK_RETURN) ne semblent pas être reconnues par Lazarus, à moins que leur déclaration soit faite dans une unité que je ne connais pas et que je n'ai donc pas incorporée à ma clause "uses".
J'utilise donc directement la valeur qu'elles représentent, c'est à dire, par exemple, 32 pour la touche <Espace> et 13 pour la touche <Enter>. Or, le 13 fonctionne et pas le 32. Est-ce que ce code est le bon? Il vient directement de la documentation Delphi et j'imagine mal que le code d'une touche puisse être différent dans des langages différent et à fortiori dans des IDE qui utilisent le même langage. Sauf erreur, il est fixé par le système d'exploitation, non :weird:?
J'ai essayé, pour voir, avec les touches <Escape>, code 27 (VK_ESCAPE sous Delphi), et <Début>, code 36 (VK_HOME sous Delphi), et ça fonctionne très bien.

Moi pas bien comprendre :aie:.

:D

Edit: J'ai fait un

Code:

ShowMessage(IntToStr(Key))

et la touche <Espace> me renvoit bien 32 :bug:

Edit 2: Toujours le même problème de méconnaissance du composant. L'utilisation de la touche <Espace> pour positionner les CheckBox(s) de la StringGrid est déjà implémentée, ce qui confirme d'ailleurs, s'il en était besoin, le classicisme de son utilisation pour cette action. Donc, quand je code pour inverser le 'cochage' (pas français) de la CheckBox, j'annule celui qui a été réalisé dans l'implémentation du composant. Il ne se passe donc rien, du moins en apparence. Ah la la, misère :cfou:. Bon, ben j'vais aller prendre un p'tit :java:!