Discussion :

[Galet]

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 :

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

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

[ALWEBER]

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

Code :

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

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

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

[SergioMaster]

Bonjour,

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 ?

[ALWEBER]

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

[Galet]

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


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,

[ALWEBER]

Voici un exemple :

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

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

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;

[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

[Galet]

Merci pour ces 2 pistes que je vais étudier de près !

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