Auto-suggestion sur une stringgrid

Version imprimable

15/06/2015, 16h04
diam's

Auto-suggestion sur une stringgrid

Bonjour,

Je souhaiterais qu'une liste s'affiche au fur et à mesure qu'on tape un texte dans la cellule d'un stringgrid.
La bonne illustration de ce que je souhaite faire est donnée par ce qui se passe quand on tape une requête dans un moteur de recherche : au fur et à mesure de la frappe, des suggestions s'affichent, et il est possible par un simple "entrée" (ou un clic de souris) de sélectionner la suggestion sans taper tout l'ensemble.

Dans mon cas, les suggestions proviendraient du contenu d'un fichier que je chargerais dans un second stringgrid invisible de l'utilisateur. Les utilisateurs étant parfois rétif à l'utilisation des majuscules, il faut aussi que je m'affranchisse de cela, mais ce n'est pas un gros soucis.

Avez-vous une piste pour me guider, sachant que mon niveau est celui d'un amateur (voir topic précédent concernant un graphique de type "radar") ?

Merci

D.
15/06/2015, 16h39
anapurna

salut

la solution la plus simple est de passer par le inplaceEditor
15/06/2015, 18h53
diam's

On ne peut pas dire que le wiki soit très prolixe sur cette propriété :weird: ni même la doc de Lazarus

Une doc à me conseiller ?

salut

je connais pas parfaitement lazarus
mais je pense que tu dois faire un truc de ce genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
// On defini et on utilise le select editor
procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer; var Editor: TWinControl); 
begin 
   if aRow= MaColone then 
  begin 
      Editor := (Sender as TStringGrid).EditorByStyle(cbsPickList); 
      TPickListCellEditor(Editor).Items.Assign(FieldList) 
   end
  else 
      Editor := nil; // readonly the rest of rows (or select another editor) 
end; 
...
procedure TForm1.StringGrid1PickListSelect(Sender: TObject); 
begin 
 //  C'est ici que tu recuper l'element de la liste
end;

Bonjour diam's.

Difficile dans ton cas d'utiliser un InplaceEditor du genre ComboBox.
En effet, on doit "vider" puis "remplir" le ComboBox à chaque caractère frappé.
Or, l'événement SelectEditor n'est appelé qu'une fois au début de l'édition.
Et je ne suis pas arrivé non plus à modifier la liste grâce à l'événement OnSetEditText.

Il y a sans doute mieux, mais la solution que j'ai trouvée est d'utiliser un TListBox indépendant du StringGrid.
Utilisation de l'événement OnSetEditText pour capturer le texte en cours.
Recherche dans ton stringgrid caché (tu pourrais utiliser un TStringList).
Affichage du mot(s) dans le ListBox.
Clic dans le ListBox pour modifier la valeur de la cellule.
Inconvénient : ce clic fait perdre la focalisation au stringgrid.
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 28 29 30 31 32 33 34 35 36 procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string); begin with StringGrid1 do if ACol = 1 then if Length(Value) < 2 then ListBox1.Clear else SearchNextValue(Value); end; procedure TForm1.SearchNextValue(S: string); var x, y: integer; begin ListBox1.Clear; S:= LowerCase(S); with StringGrid2 do for y:= 0 to ColCount - 1 do for x:= 0 to RowCount - 1 do if Pos(S, LowerCase(Cells[y,x])) = 1 then ListBox1.Items.Add(Cells[y,x]); end; procedure TForm1.ListBox1Click(Sender: TObject); begin with ListBox1, StringGrid1 do if ItemIndex >= 0 then Cells[Col, Row]:= Items[ItemIndex]; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; aCol, aRow: Integer; var CanSelect: Boolean); begin ListBox1.Clear; end;
Cordialement
Thierry

16/06/2015, 17h49
anapurna

pour info le TPickListCellEditor descend du Tcombobox donc je pense qu'il est facile de récupérer les événements comme le OnkeyDown ou autre
après il faut effectivement gérer la liste en fonction

salut

j'ai donc fait un test

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
28
29
30
31
32
33
 
TForm1 = class(TForm)
   StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
      var Editor: TWinControl);
  private
    FieldList : TStrings;    
   { private declarations }
  public
    { public declarations }
  end;  
//////////////////////////////////////////////////
.......
//////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
  FieldList := TStringList.Create;
  FieldList.LoadFromFile('C:\Projet\File.txt');
end;   
//////////////////////////////////////////////////////////////////////////////////
procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
  var Editor: TWinControl);
begin
  if Acol = 1 Then
  begin
    Editor := (Sender as TStringGrid).EditorByStyle(cbsPickList);
     TPickListCellEditor(Editor).Items.Assign(FieldList);
     TPickListCellEditor(Editor).AutoComplete := True;
  end
  else
      Editor := nil; // readonly the rest of rows (or select another editor)
end;

regarde si ce code te convient

j'ai un souci : il m'est impossible de mettre quoi que ce soit dans la grille. Je peux sélectionner une case, mais je ne peux rien y inscrire :weird:
La StringGrid a bien le autoEdit à vrai (ainsi que goEditing)... (ça fait vraiment trop longtemps que je n'ai pas touché à cela).

Mon source :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
  StringGrid1: TStringGrid;
   procedure FormCreate(Sender: TObject);
   procedure StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
     var Editor: TWinControl);
 private
   FieldList : TStrings;
  { private declarations }
 public
   { public declarations }
 end;
//////////////////////////////////////////////////
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
 
//////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
var rep : string;
begin
 FieldList := TStringList.Create;
 rep:=AppendPathDelim(ExtractFilePath(Application.ExeName));
 FieldList.LoadFromFile(rep+'test_auto.txt');
end;
//////////////////////////////////////////////////////////////////////////////////
procedure TForm1.StringGrid1SelectEditor(Sender: TObject; aCol, aRow: Integer;
 var Editor: TWinControl);
begin
 if Acol = 1 Then
 begin
   Editor := (Sender as TStringGrid).EditorByStyle(cbsPickList);
    TPickListCellEditor(Editor).Items.Assign(FieldList);
    TPickListCellEditor(Editor).AutoComplete := True;
 end
 else
     Editor := nil; // readonly the rest of rows (or select another editor)
end;
 
end.

Sinon, j'ai trouvé ce lien sur le forum Delphi : http://www.developpez.net/forums/d11...-manuellement/
C'est malheureusement basé sur un combobox.

Si je ne trouve pas de solution, je contournerais via une form à part, ce n'est pas grave.

17/06/2015, 14h59
anapurna

salut

de tete je crois que j'ai mis aussi le ShowAlwayEditor aussi a true ?

dans mon test tout fonctionne correctement ... je mettrais un zip du projet dés que possible pour voir les différences
17/06/2015, 17h35
ThWilliam
Bonjour.

Dans le code d'Anapurna, l'éditeur de la colonne 1 est de type cbsPickList. Donc là tu devrais pouvoir entrer du texte (auto-complete).
Pour les autres colonnes, l'éditeur = nil, donc pas de saisie possible !

A remplacer par
Code:

1 2 3 //... else Editor := (Sender as TStringGrid).EditorByStyle(cbsAuto); // l'éditeur par défaut
Cordialement
Thierry
17/06/2015, 17h56
anapurna

Bien vue Thierry,

j'ai effectivement complètement oublié cette petite astuce, vu que ce n'était que pour un TEST
19/06/2015, 18h10
diam's

merci, je retesterai (j'ai pa le bon PC sous la main là) et je vous tiens au courant.

En tout cas, merci du coup de main !