Redessiner une grille d'un TStringGrid

**delphi5user** · 12/10/2004, 11h06

Bonjour à tous, je vais essayer d'expliquer clairement ma question.

Je mets la valeur de

Code :

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

GridLineWidth à 0

Je veux redessiner la grille d'un TStringGrid comme si la valeur de

Code :

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

GridLineWidth = 1

En effet dans mon code j'ai fais un filtre qui me cache certaines lignes de la grille. Si la valeur de

Code :

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

GridLineWidth = 1

, mes lignes sont bien cachées mais sur la grille il m'affiche un amas de ligne grille d'ou j'ai mis le

Code :

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

GridLineWidth = 0

.

J'ai essayer d'utiliser les fonctions du Canvas FillRect(Rect) , FrameRect(Rect), Polygon, mais je n'y arrive pas.

Merci de votre aide.

@ bientot.

**Benjamin GAGNEUX** · 12/10/2004, 11h21

Salut,

Je ne suis pas sur d'avoir bien compris.
Tu cherches à redessiner les lignes lorsque GridLineWith = 0 ?

Je pense alors que tu peux pratiquer comme suit :

Dans ton OnDrawCell

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
.....
.....
 
StringGrid1.Canvas.PenPos.X := Rect.Left;
StringGrid1.Canvas.PenPos.Y := Rect.Bottom;
// affecte la position initiale en bas à gauche de la case.
 
StringGrid1.Canvas.LineTo(Rect.Right,Rect.Bottom);
// trace la ligne jusqu'en bas à droite
end;

tu peux modifier le type d'affichage de la ligne en renseignant au paravent :

Code :

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

1
2
3
4
 
StringGrid1.Canvas.Pen.Color
StringGrid1.Canvas.Pen.Width
etc...

J'espère que cela pourra t'aider.
A+

**delphi5user** · 12/10/2004, 11h32

Oui c'est ce que je veux faire.

J'ai entré ton code mais il me met La partie gauche n'est pas affectable.

Y a t il une autre soluce ??

Merci encore

**Benjamin GAGNEUX** · 12/10/2004, 11h38

Envoyé par delphi5user

Oui c'est ce que je veux faire.

J'ai entré ton code mais il me met La partie gauche n'est pas affectable.

Y a t il une autre soluce ??

Merci encore

Excuse moi mais je ne comprends le message d'erreur...
Peux tu me dire sur quelle ligne il s'arrête ?

**delphi5user** · 12/10/2004, 11h39

oui il s'arrete sur

Code :

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

1
2
3
 
StringGrid1.Canvas.PenPos.X := Rect.Left;
StringGrid1.Canvas.PenPos.Y := Rect.Bottom;

**Benjamin GAGNEUX** · 12/10/2004, 11h43

toutes mes excuses...
essaie plutot :

Code :

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

1
2
3
 
StringGrid1.Canvas.MoveTo(Rect.Left,Rect.Bottom);
StringGrid1.Canvas.LineTo(Rect.Right,Rect.Bottom);

**delphi5user** · 12/10/2004, 11h53

En fait rien ne se dessine à l'écran.

J'ai essayé de jouer sur les valeurs de Rect mais je n'arrive pas à dessine le contour de la cellule. Ca me dessine de traits dans tous les sens.

Excuse je suis un

**Benjamin GAGNEUX** · 12/10/2004, 12h02

En fait, dans l'exemple précédent, le tracage d'une cellule effacait la ligne de celle du dessus.

Si c'est pour redessiner la case (rectangle) alors fait comme cela dans le OnDrawCell:

Code :

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

1
2
 
StringGrid1.Canvas.Rectangle(Rect);

**delphi5user** · 12/10/2004, 12h16

Merci !!!

Ca marche !

Juste un dernier point dès que je clique sur la cellule il efface une partie de la bordure.

Faut il caser quelque part un 'Repaint' ?

En fait ça affichait rien alors j'ai mis :

Code :

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