VCL / tStringGrid et tStringList

Version imprimable

Bonjour à tous,
Je cherche à intégrer, dans certaines colonnes d'un tStringGrid, un Combobox me donnant un accès à une liste d'objets par leur nom.

Le test ci-dessous fonctionne parfaitement tant que je récupère le String.
Est-il possible de récupérer, dans la cellule du StringGrid, l'objet qui est associé à au champ de la StringList, plutôt que la chaine elle-même ?

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
 
// Gestion StringList
  TGetEditStyleEvent = procedure(TSender: TObject; ACol, ARow: Integer;
    var EditStyle: TEditStyle) of object;
 
  TStringGrid = Class(Grids.TStringGrid)
  Private
    FDropdownRowCount: Integer;
    FOnEditButtonClick: TNotifyEvent;
    FOnGetEditStyle: TGetEditStyleEvent;
    FOnGetPickListItems: TOnGetPickListItems;
    procedure SetDropDownRowCount(value: Integer);
    // procedure SetOnEditButtonClick(value: TNotifyEvent);
    procedure SetOnGetPicklistItems(value: TOnGetPickListItems);
  protected
    function CreateEditor: TInplaceEdit; override;
    function GetEditStyle(ACol, ARow: Integer): TEditStyle; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property DropdownRowCount: Integer read FDropdownRowCount
      write SetDropDownRowCount default cNbCtrlMax;
    // property OnEditButtonClick: TNotifyEvent read FOnEditButtonClick
    // write SetOnEditButtonClick;
    property OnGetEditStyle: TGetEditStyleEvent read FOnGetEditStyle
      write FOnGetEditStyle;
    property OnGetPickListItems: TOnGetPickListItems read FOnGetPickListItems
      write SetOnGetPicklistItems;
  end;

avec :

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
 
Constructor TStringGrid.Create;
begin
  inherited Create(AOwner);
  FDropdownRowCount := 2;
end;
 
function TStringGrid.CreateEditor: TInplaceEdit;
begin
  result := TInplaceEditList.Create(self);
  with TInplaceEditList(result) do
  begin
    RowCount := FDropdownRowCount;
    OnGetPickListItems := FOnGetPickListItems;
    OnEditButtonClick := FOnEditButtonClick;
  end;
end;
 
function TStringGrid.GetEditStyle(ACol, ARow: Integer): TEditStyle;
begin
  result := esSimple;
  if Assigned(FOnGetEditStyle) then
    FOnGetEditStyle(self, ACol, ARow, result);
  Invalidate;
end;
 
procedure TStringGrid.SetDropDownRowCount(value: Integer);
begin
  FDropdownRowCount := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).DropdownRows := value;
  Invalidate;
end;
 
// procedure TStringGrid.SetOnEditButtonClick(value: TNotifyEvent);
// begin
// FOnEditButtonClick := value;
// if Assigned(InplaceEditor) then
// TInplaceEditList(InplaceEditor).OnEditButtonClick := value;
// Invalidate;
// end;
 
procedure TStringGrid.SetOnGetPicklistItems(value: TOnGetPickListItems);
begin
  FOnGetPickListItems := value;
  if Assigned(InplaceEditor) then
    TInplaceEditList(InplaceEditor).OnGetPickListItems := value;
  Invalidate;
end;
 
procedure TfrmDynFct.OnGetEditStyle(TSender: TObject; ACol, ARow: Integer;
  var EditStyle: TEditStyle);
begin
  case ACol of
    cColRefObjectName:
      EditStyle := esPickList;
    cColOperateur:
      EditStyle := esPickList;
    cColRefValue:
      EditStyle := esSimple;
    cColFctNext:
      EditStyle := esPickList;
  end;
end;
 
procedure TfrmDynFct.OnGetPickListItems(ACol, ARow: Integer; Items: TStrings);
begin
  case ACol of
    cColRefObjectName:
      Items.Assign(RefVisuelListe);
    cColOperateur:
      Items.Assign(RefOperateurListe);
    // cColRefValue:
    // cColDelay:
    cColFctNext:
      Items.Assign(RefLogiqueListe);
  end;
end;

Merci pour votre aide,

tu peux attacher un objet à une cellule de la manière suivante

Code:

1
2
3
4
5
6
7
8
 
  Randomize;
  For i := 1 To StringGrid1.RowCount-1 do
    For j := 1 To StringGrid1.ColCount-1 Do
    begin
      StringGrid1.Cells[j, i] := IntToStr(Random(510));
      StringGrid1.Cols[i].Objects[J] := nil ;
    end;

Tu remplaces nil par ton objet

05/12/2019, 20h14
Galet

Merci Alweber,
J'arrive
- à proposer le contenu d'une cellule par une stringList (à laquelle je sais attacher des objets)
- à attacher un objet à chaque cellule (notamment par la solution que tu proposes) de ma grille

mais comment combiner les 2, c'est à dire, à la sélection, transmettre l'objet attaché à la string sélectionnée vers la cellule remplie ?

La définition de TOnGetPickListItems me transmet bien une String comme Item
TOnGetPickListItems = procedure(ACol, ARow: Integer; Items: TStrings) of Object;

Y a-t-il une solution avec les Livebindings, ou ma technique pour inclure une stringList dans ma stringGrid n'est-elle pas la bonne ?
Merci par avance pour vos idées. Si cela n'est pas possible, je me tournerais vers une autre interface...
Cordialement,
06/12/2019, 07h12
SergioMaster

1 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par Galet

Y a-t-il une solution avec les Livebindings ?
Si cela n'est pas possible, je me tournerais vers une autre interface...

Je me pencherai bien dessus mais je ne vois pas exactement l'objectif (ciel bouché ce matin)

serait-ce quelque chose comme la stringgrid de TMS ?
Pièce jointe 522310
06/12/2019, 09h05
ALWEBER

Citation:

Envoyé par Galet

Merci Alweber,
...
mais comment combiner les 2, c'est à dire, à la sélection, transmettre l'objet attaché à la string sélectionnée vers la cellule remplie ?
Cordialement,

Attention "string" n'est pas un objet au sens strict. Dis nous quel objet tu veux utiliser je t'envoie dans la mesure du possible un exemple
06/12/2019, 09h33
Galet

1 pièce(s) jointe(s)

Merci à tous les 2,

Mon objectif est de pouvoir créer des "équations" composées de plusieurs lignes.
Chaque ligne implique une "variable" (objet, principalement identifié par son nom, d'une liste générique). Ces objets peuvent avoir des caractéristiques différentes.
C'est un peu comme si je voulais composer des requêtes vers une Base de données, composée par l'utilisateur.

Un petit proto qui fonctionne parfaitement, en utilisant une stringrid pour stocker les lignes, et une stringListe pour la sélection (qui pointe vers mes objets) :
Pièce jointe 522331

Mon problème est qu'il est possible (c'est sur ce point que je dois travailler) que plusieurs objets portent un nom similaire (ce qui, pour le coup n'est pas très logique). Il est donc plus fiable (et plus rapide), dans la stringGrid, de récupérer le pointeur de mon objet plutôt que son nom (ce que je fais actuellement).
Ne m'étant pas encore frotté aux LiveBinding, je me dis qu'une piste peut se trouver de ce côté... la encore, je dois creuser.
Cordialement,

1 pièce(s) jointe(s)

Voici un exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  For i := 1 To StringGrid1.RowCount-1 do
    For j := 1 To StringGrid1.ColCount-1 Do
    begin
      StringGrid1.Cells[j, i] := IntToStr(Random(510));
      ComboBox1:= TComboBox.Create(self);
      ComboBox1.Left := j*StringGrid1.DefaultColWidth ;
      ComboBox1.top := i*StringGrid1.DefaultRowHeight ;
      ComboBox1.Width := StringGrid1.DefaultColWidth - 3 ;
      ComboBox1.height := StringGrid1.DefaultRowHeight - 3 ;
      ComboBox1.Parent := stringGrid1 ;
      ComboBox1.Items.Add('A') ;
      ComboBox1.Items.Add('B') ;
      ComboBox1.Items.Add('C') ;
      ComboBox1.text := StringGrid1.Cells[j, i] ;
      ComboBox1.Visible := false ;
      StringGrid1.Cols[i].Objects[J] := ComboBox1 ;
    end;

Code:

1
2
3
4
5
6
7
8
9
 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
  ComboBox1: TComboBox ;
begin
  ComboBox1:= TComboBox (StringGrid1.Cols[ARow].Objects[ACol]) ;
  ComboBox1.Visible := true ;
end;

06/12/2019, 11h05
anapurna

salut

ce n'est pas un simple string mais un TStrings ancêtre de la TStringList ... tu dois pouvoir retrouver tes objets en transtypant l'item

/////////////////////////////////////

Ps : si c'est uniquement du VCL il existe le inplaceditor qui te permet de faire ce que tu cherche
06/12/2019, 19h17
Galet

Merci pour ces 2 pistes que je vais étudier de près ! :applo::applo:
10/12/2019, 12h10
Galet

Bon, finalement j'ai travaillé en profondeur pour résoudre le problème de nom unique (ce qui est nettement plus efficace).
Je remets donc à plus tard le test des 2 pistes et classe en résolu pour libérer la place.
Merci une nouvelle fois pour l'aide.