[DBGrid]: Problèmes au rectangle de sélection.

J'ai trois problèmes avec le rectangle de sélection de l'enregistrement en cours du composant DBGrid:
1- J'utilise la propriété

Code:

---

canvas.Brush.Style:=bsclear

---

pour assurer la transparence du rectangle de sélection et laisser son contour visible néanmoins lorsque le DBGrid est activé (à la première exécution ou après perte de focus) le rectangle de sélection prend la couleur blanche; il revient transparent en pointant sur un autre enregistrement.
2- en parcourant plusieurs enregistrements de la grille, l'affichage des données devient illisible (en utilisant la barre de défilement par exemple). (Voir l'image DBGRID1.png)
En évitant d'utiliser la commande

Code:

---

canvas.Brush.Style:=bsclear

---

cet effet ne se produit pas.
3-En sélectionnant la ligne i, ensuite la ligne i+1 et enfin n'importe quelle position, on remarque que le ligne supérieure de la ligne i+1 a obtenue la couleur du contour de sélection (Voir l'image DBGRID2.png). Ces couleur disparaissent si la grille perd le focus et se réactive (j'ai triché un peu en ajoutant DBGrid.Repaint dans les événements OnCellClic OnKeyUp) mais il y a surement mieux à faire.

Voici le Code utilisé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

procedure TPrincipalForm.GridCarsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then //la modification de l'apparence du rectangle de selection begin With TDBGrid(Sender) do begin canvas.Pen.Width:=5; canvas.Pen.Color:=clred; canvas.Brush.Style:=bsclear; //le rectangle de selection devient transparent   TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);   // trace la ligne du haut Canvas.MoveTo(Rect.Left,Rect.Top); Canvas.LineTo(Rect.Right,Rect.Top);   // trace la ligne du bas Canvas.MoveTo(Rect.Left,Rect.Bottom); Canvas.LineTo(Rect.Right,Rect.Bottom);   // cas de la première cellule if DataCol = 0 then begin // on trace la coté gauche Canvas.MoveTo(Rect.Left,Rect.Top); Canvas.LineTo(Rect.Left,Rect.Bottom); end;   // Cas de la dernière colonne if DataCol = Columns.Count -1 then begin // On trace le coté droit Canvas.MoveTo(Rect.Right,Rect.Top); Canvas.LineTo(Rect.Right,Rect.Bottom); end; end; end else begin //pour alterner les couleurs de la grille if TDBGrid(Sender).datasource.dataset.RecNo mod 2 =0 then TDBGrid(Sender).Canvas.Brush.Color:=clwhite else TDBGrid(Sender).Canvas.Brush.Color:=$00FDCCC1;   TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state); end; end;

---

En XE..., il y a un décalage de 2 Pixels !
Quelle est ta version car tu n'as qu'un décalage horizontal alors qu'avec XE on a un décalage horizontal ET vertical

Si XE :
Je n'ai pas trouvé d'équivalent TDBGrid à code pour TStringGrid

C'est typique d'un Draw partiel mélangeant du DefaultDrawing et un OnDraw bidouillé

Code:

---

1 2 3 4 5 6

void __fastcall Txxx::GridxxxDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { // Le Rect fourni est décalé de trois pixels entre 2007 et XE2 ??? !!! Rect = Gridxxx->CellRect(ACol, ARow);

---

Dans Apparence dans un composant DBGrid, j'ai évoqué comment gérer GdsThemed,
Aero = SetBkMode TRANSPARENT
XP = SetBkMode OPAQUE

Tu sembles être d'ailleurs sous Seven en gdsClassic ?!

Semble que la fonte choisie à un impact, voir réponse de
rivierebruno22 : Tahoma \ fqClearTypeNatural

Si 2007 ou moins :

Ton problème, c'est que tu n'efface pas le contenu du Draw précédent en mode Clear !

j'aurais fait plutôt

Code:

---

1 2 3

canvas.Pen.Width:=5; canvas.Pen.Color := clred; canvas.Brush.Color := Color; // celle du Sender

---

ou alors

Code:

---

1 2 3 4 5 6 7 8

canvas.Pen.Color := Color; canvas.Brush.Color := Color; canvas.Rectangle(Rect....);   canvas.Pen.Width:=5; canvas.Pen.Color:=clred; canvas.Brush.Style:= bsclear; DefaultDrawColumnCell(rect,datacol,column,state);

---

Citation:

---

Envoyé par ShaiLeTroll

Quelle est ta version car tu n'as qu'un décalage horizontal alors qu'avec XE on a un décalage horizontal ET vertical

---

J'utilise Delphi 2010.

Citation:

---

Envoyé par ShaiLeTroll

C'est typique d'un Draw partiel mélangeant du DefaultDrawing et un OnDraw bidouillé

---

DefaultDrawing est à false, j'ai déja mentionné le code du OnDrawColumnCell

Citation:

---

Envoyé par ShaiLeTroll

Dans Apparence dans un composant DBGrid, j'ai évoqué comment gérer GdsThemed,
Aero = SetBkMode TRANSPARENT
XP = SetBkMode OPAQUE

Tu sembles être d'ailleurs sous Seven en gdsClassic ?!

---

Je suis sous seven en gdsThemed.
j'ai essayé avec SetBkMode TRANSPARENT, mais ça n'a rien changé.

Citation:

---

Envoyé par ShaiLeTroll

Semble que la fonte choisie à un impact, voir réponse de
rivierebruno22 : Tahoma \ fqClearTypeNatural

---

pas pour mon cas en tous cas, en choisissant Tahoma comme Font, le résultat est pire.
je ne connais pas 'fqClearTypeNatural'.

Citation:

---

Envoyé par ShaiLeTroll

Ton problème, c'est que tu n'efface pas le contenu du Draw précédent en mode Clear !

j'aurais fait plutôt

Code:

---

1 2 3

canvas.Pen.Width:=5; canvas.Pen.Color := clred; canvas.Brush.Color := Color; // celle du Sender

---

ou alors

Code:

---

1 2 3 4 5 6 7 8

canvas.Pen.Color := Color; canvas.Brush.Color := Color; canvas.Rectangle(Rect....);   canvas.Pen.Width:=5; canvas.Pen.Color:=clred; canvas.Brush.Style:= bsclear; DefaultDrawColumnCell(rect,datacol,column,state);

---

---

Désolé mais j'ai pas vraiment compris là :calim2:.

Citation:

---

Envoyé par adelneo

DefaultDrawing est à false, j'ai déja mentionné le code du OnDrawColumnCell

---

Je voulais confirmer, DefaultDrawing à true est utile si tu appelle parfois DefaultDrawColumnCell et que dans d'autres cas, on a sa propre fonction complète de dessin (DrawText, DrawRect ou tes LineTo)

En plus, tu as un problème de débordement, ça c'est le pire, fait attention au Rect fourni et regarde même le ClipRect pour voir ce qui doit être mis à jour

C'est à cause du Pen, tu le défini à 5, et si l'on regarde tes images, il ne fait pas 5, surement écrasé par les OnDraw suivant (ou par le ClipRect)

Pense que le trait est centré, donc il dessine 2 pixel au dessus et2 pixel en dessous du Rect, il faut penser donc à réduire la zone de dessin pour prendre en compte la bordure d'un Pen à 5

Ajoute ceci AVANT le premier LineTo

Code:

---

InflateRect(Rect, -2, -2);

---

Cela va éviter que le Pen déborde, passe à -3 si cela déborde encore !
Mais là ta cellule va être toute petite car 5 c'est trop

Je dirais que pen.withd := 3 est suffisant et dans ce cas InflateRect -1 est suffisant !

Citation:

---

Envoyé par adelneo

Désolé mais j'ai pas vraiment compris là :calim2:.

---

Pourtant c'est la base lorsque l'on fait du dessin et gestion du BackGround !
En mode CLEAR, tu n'efface pas le fond,
donc le texte T-1 n'est pas effacé,
et par dessus tu affiches le texte T,
il y a une superposition, c'est tout à fait logique, tu dois donc effacer le fond avant d'écrire de nouveau

On dirait même que cela n'affiche pas le bon texte en regardant tes images

Essaye ceci

Code:

---

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

canvas.Pen.Color := Math.IfThen(TDBGrid(Sender).datasource.dataset.RecNo mod 2 =0, clwhite, $00FDCCC1); canvas.Brush.Color := canvas.Pen.Color; canvas.Rectangle(Rect....);   canvas.Pen.Width:=3; canvas.Pen.Color:=clred; canvas.Brush.Style:= bsclear; DefaultDrawColumnCell(rect,datacol,column,state);   InflateRect(rect, -1, -1);   ...

---

ou plus simplement (sans bsClear);

Code:

---

1 2 3 4 5 6 7 8 9 10

canvas.Pen.Width:=3; canvas.Pen.Color:=clred; canvas.Brush.Color := Math.IfThen(TDBGrid(Sender).datasource.dataset.RecNo mod 2 =0, clwhite, $00FDCCC1);   DefaultDrawColumnCell(rect,datacol,column,state);   InflateRect(rect, -1, -1);   ...

---

j'ai parvenu (grâce à votre aide) à résoudre le problème numéro 3 en décalant les lignes supérieur et inférieur du rectangle de sélection par un pixel chacun (Voir l'mage jointe).
voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

procedure TPrincipalForm.GridCarsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then begin With TDBGrid(Sender) do begin   canvas.Pen.Width:=2; canvas.Pen.Color:=clred; canvas.Brush.Style:=bsclear;   TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);   // trace la ligne du haut Canvas.MoveTo(Rect.Left-1,Rect.Top+1); Canvas.LineTo(Rect.Right,Rect.Top+1);   // trace la ligne du bas Canvas.MoveTo(Rect.Left-1,Rect.Bottom-1); Canvas.LineTo(Rect.Right,Rect.Bottom-1);   // cas de la première cellule if DataCol = 0 then begin // on trace la coté gauche Canvas.MoveTo(Rect.Left,Rect.Top+1); Canvas.LineTo(Rect.Left,Rect.Bottom-1); end;   // Cas de la dernière colonne if DataCol = Columns.Count -1 then begin // On trace le coté droit Canvas.MoveTo(Rect.Right,Rect.Top+1); Canvas.LineTo(Rect.Right,Rect.Bottom-1); end; end; end else begin if TDBGrid(Sender).datasource.dataset.RecNo mod 2 =0 then TDBGrid(Sender).Canvas.Brush.Color:=clwhite else TDBGrid(Sender).Canvas.Brush.Color:=$00FDCCC1;   TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state); end; end;

---

Pas de réussite encore avec les problèmes 1 et 2 (en activant DefaultDrawing le rectangle de sélection perd sa transparence et reprend sa couleur par défaut).

C'est Ok sans BsClear.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

procedure TPrincipalForm.GridCarsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if gdSelected in State then begin With TDBGrid(Sender) do begin canvas.Brush.Color := Math.IfThen(TDBGrid(Sender).datasource.dataset.RecNo mod 2 =0, clwhite, $00FDCCC1); DefaultDrawColumnCell(rect,datacol,column,state);   canvas.Pen.Width:=2; canvas.Pen.Color:=clred; DefaultDrawColumnCell(rect,datacol,column,state);   // trace la ligne du haut Canvas.MoveTo(Rect.Left-1,Rect.Top+1); Canvas.LineTo(Rect.Right,Rect.Top+1);   // trace la ligne du bas Canvas.MoveTo(Rect.Left-1,Rect.Bottom-1); Canvas.LineTo(Rect.Right,Rect.Bottom-1);   // cas de la première cellule if DataCol = 0 then begin // on trace la coté gauche Canvas.MoveTo(Rect.Left,Rect.Top+1); Canvas.LineTo(Rect.Left,Rect.Bottom-1); end;   // Cas de la dernière colonne if DataCol = Columns.Count -1 then begin // On trace le coté droit Canvas.MoveTo(Rect.Right,Rect.Top+1); Canvas.LineTo(Rect.Right,Rect.Bottom-1); end; end; end else With TDBGrid(Sender) do begin canvas.Brush.Color := Math.IfThen(TDBGrid(Sender).datasource.dataset.RecNo mod 2 =0, clwhite, $00FDCCC1); DefaultDrawColumnCell(rect,datacol,column,state); end; end;

---

Merci beaucoup.

Tu pourrais même réduire le code puisque la partie alternée est systématique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

procedure TPrincipalForm.GridCarsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin With TDBGrid(Sender) do begin Canvas.Brush.Color := Math.IfThen(TDBGrid(Sender).datasource.dataset.RecNo mod 2 = 0, clwhite, $00FDCCC1); DefaultDrawColumnCell(Rect, DataCol, Column, State);   if gdSelected in State then begin Canvas.Pen.Width:=2; Canvas.Pen.Color:=clred; DefaultDrawColumnCell(Rect, DataCol, Column, State);   // trace la ligne du haut Canvas.MoveTo(Rect.Left-1,Rect.Top+1); Canvas.LineTo(Rect.Right,Rect.Top+1);   // trace la ligne du bas Canvas.MoveTo(Rect.Left-1,Rect.Bottom-1); Canvas.LineTo(Rect.Right,Rect.Bottom-1);   // cas de la première cellule if DataCol = 0 then begin // on trace la coté gauche Canvas.MoveTo(Rect.Left,Rect.Top+1); Canvas.LineTo(Rect.Left,Rect.Bottom-1); end;   // Cas de la dernière colonne if DataCol = Columns.Count -1 then begin // On trace le coté droit Canvas.MoveTo(Rect.Right,Rect.Top+1); Canvas.LineTo(Rect.Right,Rect.Bottom-1); end; end; end end;

---

tout à fait d'accord +1 :ccool: