Empecher edition cellules d'un ADVStringGrid

Version imprimable

Bonjour à tous,

Je suis actuellement en train de développer une application en utilisant des advStringGrid (composant TMS, version 3.0.0.3) et j'ai un soucis pour empecher l'édition de certaines cellules.

Voici mon événement lorsque l'on clique sur une cellule de mon grid:
Code:

1 2 3 4 5 6 7 8 procedure TfrmDonneesClient.desactiverEdition(Sender: TObject; ARow,ACol: Integer); begin if((ACol = 1) and (ARow=5)) then GrdIG_1.Options := GrdIG_1.Options-[goEditing] else GrdIG_1.Options := GrdIG_1.Options+[goEditing]; end; end;
Le probleme c'est que lorsque je teste, si j'essaye d'éditer cette cellule , je n'y arrive pas (logique).

Par contre, si je clique sur une cellule editable juste après avoir cliqué sur le cellule non éditable, et que je modifie la valeur, la modification se répercute également sur la cellule non modifiable!

J'ai essayé d'utiliser ma fonction sur un StringGrid classique et là par contre pas de probleme, ca ne modifie pas la cellule non éditable.

Voila si quelqu'un pouvait m'aider...mais à mon avis c'est un bug qui vient du comosant et donc faudrait peut-être prendre une version plus récente.

merci

Ça ressemble effectivement à un bug mais il y a une solution

Utilise l'evenement oncaneditcell

exemple:
Code:

1 2 3 4 5 procedure TForm1.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean); begin canedit:=not((ACol = 1) and (ARow=1)); end;

10/06/2006, 10h20
kirua2150

merci pour la réponse.

Je ferais le test lundi et je verrais si ca marche.

salut ,
tu as aussi un evement de ton advgrid... qui se nomme OnGetEditorType qui permet de definir le type de saisie de chacune de tes cellules.
Voir TeditorType pour connaitres les divers formats des cellules

L'exemple suivant defini le format des colonnes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure Tform1.TabGetEditorType (Sender:Tobject ; Acol,Arow:integer; Var Aeditor : TeditorType);
begin
   Case Acol of
        0: AEditor := edNomal ;               // édition normal
        1: AEditor := edNone ;                // pas édition
        3: AEditor := edPositiveNumeric;    // edition d'entier positif
        4: AEditor := edComBolist;           // insersion d'une liste
        5: AEditor :=  ....
   end; 
end;
end.

bye

12/06/2006, 08h48
kirua2150

Bon j'ai testé les deux solutions et cela marche parfaitement.

La 2eme solution est meilleure car elle permet en meme temps de définir le type du contenu des cellules.

En tout cas un grand merci à tous les deux.
15/06/2006, 11h03
kirua2150

Re bonjour à tous,

J'ai un autre probleme, concernant encore le composant TadvStringGrid (mais à mon avis c'est pareil avec un TStringGrid)

Voila j'aimerais qu'une cellule de mon tableau contienne un combobox (à deux choix "oui", "non").

En utilisant l'événement OnGetEditorType, je peux choisir le type des cellules et donc choisir la propriété EdcomboList pour dire qu'une cellule est de type combo.

Seulement je ne sais pas comment l'initialiser et quand je lance mon appli et que j'esssaye d'éditer la cellule j'ai une combo vide (logique).

merci de votre aide.
15/06/2006, 11h51
rbh
Salut
Dans le OnGetEditorType (ou ailleurs mais je pense que tu vas bosser dans cette procédure), il faut que tu attaque :
Code:

1 2 AdvStringGrid1.ComboBox ...
La propriété ComboBox pointe vers la combo gérer par la Grid. Tout comme les propriété InplaceEdit, DateTimePicker, ... qui représentent tous les contrôles que tu peux utiliser avec le GetEditorType.
Après, c'est comme avec une combobox normale :
Code:

1 2 ComboBox.items.add(..);
A plus et Bon courage.
(L'aide TMS est un peu faite avec les pieds donc si tu as besoin d'aide, n'hésites pas à demander).
15/06/2006, 11h59
kirua2150

Merci beaucoup pour cette réponse si rapide.

Ca marche nickel.
15/06/2006, 12h06
kirua2150

Tiens puisque tu m'a dit de pas hésiter à demander je continue :P

Je remarque (et c'est pareil pour les stringgrid) qu'un advstringgrid est composée de 2 "tableaux" : celui qui contient les cellules et un autre faisant office de conteneur.

A quoi sert ce 2eme tableau? (A part à me faire chier car j'essaye toujours de le réduire au max pour qu'il soit de la taille du 1er tableau)

Et dailleurs parfois je colle tellement le grand tableau au 1er que dans l'application le 1er tableau est réduit alors que sur l'IDE il ne l'est pas...

Ya pas une propriété pour dimensionner ce tableau automatiquement?
15/06/2006, 14h10
rbh

Salut
Je n'ai pas de solution à ton problème exactement par contre j'ai une piste.
Utilise la propriété ColumnSize.
Si tu met "Stretch" à True, il va redimensionner la colonne "StretchColumn"(une autre propriété de ColumnSize) de manière à utiliser toute la taille de ce que tu appelle le "2ème tableau".
Si en plus tu mets "SynchWithGrid" à True, le moindre Resize de ta stringgrid réajustera la largeur de la colonne.
Ce n'est pas exactement ce que tu demandes puisque moi j'ajuste le contenu à la taille de contenant et non le contraire.
15/06/2006, 14h32
kirua2150

ah bé voila c'est la propriété que je cherchais.

encore une fois merci beaucoup
15/06/2006, 17h44
kirua2150

Je continue avec les questions lourdes :P

J'ai besoin de créer un advstringGrid de façon dynamique(je ne connais pas son nombre de colonnes à l'avance).

Est-ce que je peux quand meme le créer avec l'IDE(en mettant nimporte quoi comme nombre de colonnes), quite à le modifier dans le programme? ou bien dois-je le créer de toute pièce dans mon code?

merci
15/06/2006, 18h05
rbh

Salut
Non pas de problèmes, tu peux le poser avec 1, 10 ou 666 colonnes comme tu veux. Moi je préfère le poser parceque c'est plus facile pour renseigner certaines propriétés.
Mais il est vrai que le créer dynamiquement ne pose aucun problème. J'aurai tendance à utiliser la création dynamique si le nombre de StringGrid sur la feuille est variable.
Après, c'est plus une question d'habitude de programmation. J'avais un collègue qui lui n'utilisait que les créations dynamique pour tout ses contrôles, ce n'est vraiment pas facile à modifier et ça rallonge le code mais au final le résultat est le même.
16/06/2006, 11h02
kirua2150

Salut,

Apparemment tu as l'air de bien connaitre les composants TMS. Sais-tu pourquoi certains composants standart de Delphi manquent au niveau TMS?

Je pense notamment au GroupBox, Scrollbox (les 2 que je voudrais utiliser :D ).
16/06/2006, 11h44
rbh

Salut
je n'ai pas d'explication.
Que voudrais tu faire avec un (TMS)GroupBox ou un ScrollBox que tu ne peux pas faire avec les composants VCL?

Tu peux peut-être regarder du coté des AdvPanel et des AdvPanelGroup.
16/06/2006, 12h04
kirua2150

nan c'est pas trop grave :P je voulais juste utiliser les propriétés "color" et color to" afin que l'affichage soit plus joli.

J'ai qd meme essyé avec des advpanel mais c'est chiant on peut pas donner de titre, ni faire du scrollbar (en tout cas c'est pas trivial).

Mais c'est vraiment pas grave, je peux utiliser les composants standarts.
16/06/2006, 12h21
rbh

Pour le titre des AdvPanel, il faut que tu rentre dans la propriété Caption, et dedans, tu as une prop Text.
En fait la propriété Caption te permet d'afficher ou non la barre de titre, d'y mettre des boutons pour réduire, maximiser le Panel ainsi que les fameux Color et ColorTo.
Pour la ScrollBar, il faut que tu mettes les AdvPanel dans un AdvPanelGroup.

En plus tu peux utiliser un AdvPanelStyler pour définir la "charte graphique" de tous tes panels en même temps.
16/06/2006, 13h05
kirua2150

ah ouai j'avais vu pour la propriété text de caption mais j'avais pas vu que la propriété visible était à False...