Discussion :

[codial]

Bonjour,

petit soucis...

Sur un DBGrid j'applique ce code dans l'évènement OnDrawColumnCell pour alterner les couleurs des lignes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If gdSelected In State Then     // si la cellule est sélectionnée
    begin
    Dbgrid1.Canvas.Font.Style := [fsBold];
    Dbgrid1.Canvas.Brush.Color := clNavy
    end
  Else
  if (Dbgrid1.DataSource.DataSet.RecNo mod 2) = 0 then
          Dbgrid1.Canvas.Brush.Color :=  $00F4F3EE
        else
          Dbgrid1.Canvas.Brush.Color := clWhite;
 
  Dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

Le problème est que lorsque le DBGrid perd le focus la ligne reste en bleue mais le texte disparait.

Quelqu'un a une idée pour résoudre ce problème?

Cordialement

Codial

[macumba]

Il suffit d'ajouter le test sur gdfocused

Code :

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

If (gdSelected In State) and (gdFocused in state) Then     // si la cellule est sélectionnée

[Sunchaser]

Au fait, on dirait qu'il manque des ';' a certains endroits ...

[macumba]

Au fait, on dirait qu'il manque des ';' a certains endroits ...

Non il n'est pas obligatoire de mettre un ; sur la dernière instruction d'un bloc même si pour la lisibilité et la maintenance il est préférable d'en mettre un à chaque fin d'instruction.

[codial]

Bonjour,

le pb c'est que j'ai j'ai mon RowDelect à true et avec

Code :

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

 and (gdFocused in state)

je n'ai plus que la premier champ d'afficher et dans les autres champs je n'ai plus rien.

Cordialement

[macumba]

j'ai essayé le code que je t'ai indiqué et ca marche en y ajoutant le gdfocused...
C'est quoi ton rowDelect?
Edit : J'ai compris : rowselect...

[macumba]

Ca devrait mieux marcher avec le rowselect à true :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  if (gdselected in state) and (dbgrid1.Focused) then
  begin
    Dbgrid1.Canvas.Brush.Color :=  clred;
  end
  else
  begin
    if (Dbgrid1.DataSource.DataSet.RecNo mod 2) = 0 then
      Dbgrid1.Canvas.Brush.Color :=  $00F4F3EE
    else
      Dbgrid1.Canvas.Brush.Color := clWhite;
    Dbgrid1.Canvas.Font.Color := clblack;
  end;
 
  Dbgrid1.DefaultDrawColumnCell(rect,datacol,column,state);

[codial]

Bonsoir,

grand merci à macumba pour le coup de main.

Effectivement au lieu de rowDelect il fallait lire rowSelect:

Code :

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

1
2
 
and (dbgrid1.Focused)

Ce code fonctionne bien, je n'avais pas pensé à cette syntaxe.

Encore merci

Codial