Discussion :

[SOPSOU]

Bonjour

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.

[SergioMaster]

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

[anapurna]

Salut

pour faire simple

dans la methode du dessin des colonne

Code :

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

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 :

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

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

tu recupere la valeur de ton champs

Code :

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

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

selon la valeur tu redefini les couleur

Code :

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

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 :

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

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 :

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

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

[SOPSOU]

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.

[anapurna]

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 :

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

IntSeuilValue : integer;

dans le oncreate du tedit et tu fait

Code :

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

IntSeuilValue :=-99999 ;

dans le onchange du tedit et tu fait

Code :

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

IntSeuilValue :=-99999 ;

dans le onclick du "Control Sup" et tu fait

Code :

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

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

dans le ondrawcell de la grille tu remplace

Code :

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

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