identifier position cellule DBGrid à l'aide de DataSet

Bonjour :ccool:

En fait, j'ai un DBGrid relié bien sur à un dataset. Sur la même fiche, j'ai un bouton et un champ TEdit de saisie de nombre et un bouton Control Sup.
Sur mon DBgrid, j'ai une colonne Valeur qui contient rien que des nombres.
Mon soucis est que je dois colorier les cellules de la colonne Valeur ou une valeur de cette colonne est supérieure à un nombre que l'utilisateur aura saisi dans le TEdit avant de lancer la vérification et la coloration des cellules vérifiant la condition à l'aide du bouton Control Sup . Cette action doit pouvoir être relancée si l'utilisateur le désire avec une nouvelle valeur dans le TEdit.
J'atends vos propositions et suggestions.

Cela n'a pas l'air compliqué , quoique je n'ai jamais essayé en fonction d'une valeur variable .
Pour la 'colorisation' de la cellule plusieurs posts parle déjà du sujet , un recherche de OnDrawDataCell ou dans la FAQ fourni les réponses .
Quant à la modification en fonction du Bouton , je crois que l'ordre Repaint ou Refresh de la DBGrid devrait fonctionner

Salut

pour faire simple

dans la methode du dessin des colonne

Code:

---

1 2 3

procedure Tform.GrilleDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

---

tu conserve l'ancien on ne sais jamais ;)

Code:

---

1 2 3

inherited; oldcolor := (sender as TDBGridSiel).Canvas.Brush.Color;

---

tu recupere la valeur de ton champs

Code:

---

intValue := (sender as TDBGridSiel).DataSource.DataSet.FieldByName('MonChamp').AsInteger;

---

selon la valeur tu redefini les couleur

Code:

---

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

if (intValue >= IntSeuilValue) then begin (sender as TDBGridSiel).Canvas.Font.Color := clnavy; (sender as TDBGridSiel).Canvas.Pen.Color := clnavy; (sender as TDBGridSiel).Canvas.Brush.Color := clLightCyan end else begin (sender as TDBGridSiel).Canvas.Font.Color := clnavy; (sender as TDBGridSiel).Canvas.Pen.Color := clnavy; (sender as TDBGridSiel).Canvas.Brush.Color := clLightGreen end;

---

le cas particulier des ligne selectionnées

Code:

---

1 2 3 4 5 6 7

if (gdSelected in State) then begin (sender as TDBGridSiel).Canvas.Font.Color := clWhite; (sender as TDBGridSiel).Canvas.Pen.Color := clWhite; (sender as TDBGridSiel).Canvas.Brush.Color := clnavy; end;

---

on redessine tout

Code:

---

1 2 3

(sender as TDBGridSiel).Canvas.FillRect(Rect); TDBGrid(Column.Grid).DefaultDrawColumnCell(Rect, DataCol, Column, []);

---

Salut,
Merci pour ta réponse bien clair et précis.
Mais juste une question, tu dis de faire cela dans l'évènement DrawColumnCell !!! Mais moi, je désire que cette colaration et le test se fasse après saisi de l'entier dans le TEdit et le click sur le bouton Control Sup.
NB: Ce test doit être fait sur toutes les données de la colonne concernée.
Cela signifie qu'il faut pouvoir boucler les données et faire ce test.
:ccool:

salut

il te suffit dans ton evenement click de forcer le rafraichisement de la grille
afin que celle-ci se redessinne

donc si j'ai bien compris

tu creer une variable globale a ta form
par exemple

Code:

---

IntSeuilValue : integer;

---

dans le oncreate du tedit et tu fait

Code:

---

IntSeuilValue :=-99999 ;

---

dans le onchange du tedit et tu fait

Code:

---

IntSeuilValue :=-99999 ;

---

dans le onclick du "Control Sup" et tu fait

Code:

---

1 2 3

IntSeuilValue := strtoint(edit1.text) ; MaGrille.refresh;

---

dans le ondrawcell de la grille tu remplace

Code:

---

1 2 3 4 5 6 7 8 9 10 11

// on ajoute le cas ou ton tedit n'est pas definie // on supprimme toutes les couleur if intSeuilValue = -99999 Then begin (sender as TDBGridSiel).Canvas.Font.Color := clnavy; (sender as TDBGridSiel).Canvas.Pen.Color := clnavy; (sender as TDBGridSiel).Canvas.Brush.Color := clLightGreen end if (intValue >= IntSeuilValue) then ...

---

@+ Phil