Discussion :

[mamou30]

j'ai fait une ligne de couleur dans un dbgrid (style access ligne par ligne de couleur) avec L'evenement DBGridDrawColumnCell()

Ligne couleur1:TDBGrid(Sender).Canvas.Brush.Color := $00F7E7E7
Else
Ligne couleur2:TDBGrid(Sender).Canvas.Brush.Color := clWhite;
ca marche.

Mais Mon problème et quand je fait une insertion dans la base de donnée
le dbgrid m'envoie seulement
Ligne couleur2:TDBGrid(Sender).Canvas.Brush.Color := clWhite;
L'evenement DBGridDrawColumnCell() reprend effet après avoir enregistrer
table.post

[akli_agha]

C'est quoi le critère qui te permet de choisir l'une des couleurs dans l'evnt OnDraw... ????

[couiss]

Salut,

j'ai ce code qui permets d'avoir un changement de couleur entre les ligne paires et les impaires + le texte centré en hauteur :

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
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
begin 
     // Pas les lignes et colonnes fixes 
     if (aCol >= StringGrid1.FixedCols) and (aRow >= StringGrid1.FixedRows) then 
     begin 
          // Si ligne impaire 
          if Odd(ARow) then 
             StringGrid1.Canvas.Brush.Color := clYellow 
          else 
              StringGrid1.Canvas.Brush.Color := clWhite; 
 
          StringGrid1.Canvas.FillRect(Rect); 
          // Ecrit le texte centré en hauteur 
          StringGrid1.Canvas.TextOut( Rect.Left +2, 
                               Rect.Top  + (Rect.Bottom-Rect.Top- 
                               StringGrid1.Canvas.TextHeight(StringGrid1.Cells[ACol,ARow])) div 2, 
                               StringGrid1.Cells[ACol,ARow]); 
     end; 
end;

En espérant que ceci puisse vous aidez.

A bientôt, Couiss.

[mamou30]

Merci a couiss et akli_agha

C'est quoi le critère qui te permet de choisir l'une des couleurs dans l'evnt OnDraw... ????

Le critere est le suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If gdSelected In State Then
  Begin
    TDBGrid(Sender).Canvas.Brush.Color := clHighlight;
end else
begin
If TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 =0 then
    TDBGrid(Sender).Canvas.Brush.Color := $00F7E7E7
    else
    TDBGrid(Sender).Canvas.Brush.Color := Clwhite;
    end;
  TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state );

[akli_agha]

Je crois que ce n'est pas la meilleure solution car le RecNo ne fonctionnera pas bien si ta table est indexée. Le RecNo suit l'ordre PHYSIQUE dans la table et si la table est indexée, l'ordre suivra la clé d'index ce qui fausse le RecNo et c'est pour ça que tu n'as pas les résultats attendus.

La solution proposée ci-dessus par Couis conviendra mieux à tes attentes.

PS : N'oublies pas de mettre le block if gdSelected juste avant DefaultDraw ...
sinon tu ne verras pas les lignes sélectionnées.

[EPJSoft]

Mamou30 travaille avec un TDBGrid et non pas un TStringGrid

L'évenement OnDrawCell ou OnDrawColumnCell ne renvoie pas de coordonnées Row et Col...

Dans un documentation de Microsoft il atteste le non héritage de Row et Col et conseille d'utiliser le principe de Mamou30...

[mamou30]

Je crois que ce n'est pas la meilleure solution car le RecNo ne fonctionnera pas bien si ta table est indexée. Le RecNo suit l'ordre PHYSIQUE dans la table et si la table est indexée, l'ordre suivra la clé d'index ce qui fausse le RecNo et c'est pour ça que tu n'as pas les résultats attendus.

j'ai essayé avec une table son index juste pour voir le résultat, mais sont effet

[atb]

Bonjour ,
je te conseille d'essayer les composants qui sont ici dans cette topic
http://www.developpez.net/forums/sho...d.php?t=309986
je travail avec le SMDBGRID il resoudra ton promble de ligne par ligne

[mamou30]

merci atb
j'ai déjà ces composant il sont très performant
mais j'aimerais obtenir une solution avec l'évènement DBGridDrawColumnCell()
surement y 'a une meilleur stratégie pour ce type d'évènement