Discussion :

[ChPr]

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.

[JP CASSOU]

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 :

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
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



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 :

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

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;

[ChPr]

Merci CASSOU, je vais essayer ça.

Cordialement.

Pierre.