Comment utiliser PickList d'un TStringGrid

Version imprimable

26/10/2023, 10h33
ChPr

Comment utiliser PickList d'un TStringGrid

Bonjour à toutes et à tous,

À l'utilisation d'un TStringGrid, j'ai découvert l'utilisation de la propriété "Columns". Elle permet de créer des colonnes et de leur donner un titre.

J'utilise un TStringGrid pour deux présentations, l'une pour des factures et l'autre pour des devis. J'aimerais alors changer les titres des colonnes : passer de "Facture" à "Devis".

J'ai vu, dans la propriété "Columns" qu'il y avait une autre propriété "PickList" qui selon ce qui est dit :

"The list of items that can be selected as the value for the column."

permettrait (selon moi) de choisir une valeur parmi celles qu'on a mises dans cette PickList.

Je n'ai pas trouvé d'explication claire sur la toile (ou je n'ai pas bien cherché).

Selon vous est-ce son utilisation et si oui, comment fait-on ?

Cordialement.

Pierre.

1 pièce(s) jointe(s)

Utilisation de Picklist

1. Posez un TStringList sur une fiche
2. Posez un TButton
3. Dans l'éditeur de propriétés du StringGrid, ouvrez l'éditeur de la propriété Columns
4. Ajoutez vos colonnes

Test: Pour

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
 
 
procedure TdlgTestsUnitaires.Button1Click(Sender: TObject);
var
  CL: TGridColumn;
begin
  // rendre modifiable
  StringGrid1.Options := StringGrid1.Options + [goEditing, goColSizing];
  // Attraper la colonne voulue, ici la 1
  CL := StringGrid1.Columns[1];
  // Modifier le titre
  CL.Title.Caption := 'Colonne 1';
  // largeur
  CL.Width := 200;
  // Type de colonne
  CL.ButtonStyle := cbsPickList;
  // peupler le Picklist
  try
    CL.PickList.Clear;
    CL.PickList.Add('miaou');
    CL.PickList.Add('fatche');
    CL.PickList.Add('thurlutte');
    CL.PickList.Add('sgueg');
    CL.PickList.Add('sboub');
 
  finally
  end;
end;

Vous aurez le résultat suivant

Pièce jointe 645791

Pour travailler avec le résultat du PickList: La ligne affectée est StringGrid1.Row, et l'index de l'élément de PickList est dans L.ItemIndex

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure TdlgTestsUnitaires.StringGrid1PickListSelect(Sender: TObject);
var
  CL: TGridColumn;
  L: TPickListCellEditor;
begin
  CL   := StringGrid1.Columns[0];
  L := TPickListCellEditor((Sender as TCustomGrid).EditorByStyle(cbsPickList));
  StringGrid1.Cells[0, StringGrid1.Row] := format('%d', [L.ItemIndex]);
end;

27/10/2023, 10h34
ChPr

Merci CASSOU, je vais essayer ça.

Cordialement.

Pierre.