Options d'un TGrid par programmation

Bonjour,

le code

Code:

---

1 2	With GridBindSourceDB1 do Options := Options -[dgEditing];

---

où GridBindSourceDB1 est un TGrid, me renvoie : identificateur 'dgEditing' non déclaré.

Il y a un uses ou une formulation (genre TGridOptions.dgEditing) particulier ?

Merci. Gilles

je crois que c'est décrit dans l'unité "Vcl.DBGrids"

Code:

---

1 2 3 4 5 6

TDBGridOption = (dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack); TDBGridOptions = set of TDBGridOption;

---

Bonjour,

Citation:

---

Envoyé par ALWEBER

je crois que c'est décrit dans l'unité "Vcl.DBGrids"

---

Attention, il s'agit d'un TGrid pas d'un TDBGrid donc il s'agit du Framework FMX
Donc il faut chercher dans FMX.Grid

Code:

---

1 2	TGridOption = (AlternatingRowBackground, Editing, AlwaysShowEditor, ColumnResize, ColumnMove, ColLines, RowLines, RowSelect, AlwaysShowSelection, Tabs, Header, HeaderClick, CancelEditingByDefault, AutoDisplacement);

---

il faut donc écrire

Code:

---

1 2	With GridBindSourceDB1 do Options := Options -[TGridOption.Editing];

---

Donc "Editing" et non pas "dgEditing"

Bonjour,
je vais surement poser une question bête, mais cela fait plusieurs fois que je remarque des différences de dénomination entre FMX et VCL ?
pourquoi, puisque l'on préfixe les unités par VCL ou FMX dans le code et qu'il y a un ordre dans les uses ?
y a t il un risque que le compilo s’emmêle les pinceaux ?

A+
Charly

Citation:

---

Envoyé par Charly910

...
pourquoi, puisque l'on préfixe les unités par VCL ou FMX dans le code et qu'il y a un ordre dans les uses ?
y a t il un risque que le compilo s’emmêle les pinceaux ?
...

---

Le compilateur préfixe automatiquement les unités si nécessaire au moment de la compilation en fonction du type de projet VCL ou FMX donc pas de problème. Le cas est plus complexe si tu utilises les deux en même temps avec le composant "firemonkey-container-master" par exemple et tu dois préfixer pour éviter les confusions.
Dans le cas présent il y avait les unités DBGrids et Grid (Vcl.DBGrids FMX.Grid) et juste une petite confusion entre "Editing" et "dgEditing"

Merci ALWEBER,
mais pourquoi pas simplement editing pour les 2 ; ce serait plus simple à retenir et cela désigne la même chose ?
A+
Charly

Citation:

---

Envoyé par Charly910

mais pourquoi pas simplement editing pour les 2 ; ce serait plus simple à retenir et cela désigne la même chose ?

---

les évolutions :roll: des unités FMX qui obligent à indiquer le type TGridOption.xxx (comme d'ailleurs pour presque tout ce genre d'énumération)
la compatibilité descendante de VCL et tu as les réponses

ON pourrait dire la même chose des couleurs etc...

pour ce qui est du préfixage des unités, je ne sais plus dans quel essai récent j'ai mêlé consciemment des FMX. et VCL. dans un programme FMX donc vaut mieux prendre l'habitude de préfixer

Bonjour,

Merci.

Il faut dire que l'IDE n'aide pas beaucoup.
Pièce jointe 432531
La complétion devient muette TGridO. Quand on se remet au langage et qu'on en utilise d'autres... Pfffff Et c'est encore prire, je crois avec les uses.

Ensuite quelle verbosité ! Je regrette mon vieux Delphi !

Code:

---

1 2	with GridBindSourceDB1 do Options := Options -[TGridOption.Editing] +[TGridOption.RowSelect];

---

N'y a-t-il pas moyen de rendre implicite le TGridOption ?

Cordialement. Gilles

Bonjour,

Citation:

---

Envoyé par Selzig

N'y a-t-il pas moyen de rendre implicite le TGridOption ?

---

c'est vrai que cette "amélioration" m'a toujours laissé un goût amer , on s'y habitue à la longue

un moyen ? oui je viens d'en trouver au moins un

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

// je reprend le source dans FMX.Grid , renomme l'énumération TGridOption ,mais peut-être est ce dangereux ? TVGridOption = (AlternatingRowBackground, Editing, AlwaysShowEditor, ColumnResize, ColumnMove, ColLines, RowLines, RowSelect, AlwaysShowSelection, Tabs, Header, HeaderClick, CancelEditingByDefault, AutoDisplacement); var Form2: TForm2;   implementation   {$R *.fmx}   procedure TForm2.Button1Click(Sender: TObject); begin Grid1.Options:=Grid1.Options - [Editing] + [AlwaysShowEditor]; end;

---

et il y a toujours la manière "brute" en utilisant directement la valeur (mais il faut une bonne mémoire et au niveau maintenance (tierce ou pas) ce n'est pas très explicite

Code:

---

1 2 3 4 5

procedure TForm2.Button1Click(Sender: TObject); begin Grid1.Options:=Grid1.Options - [1] + [2]; end;

---

je serais heureux d'en découvrir d'autres moins alambiqués ;)