Comment changer la couleur des lignes séparatifs d'un stringgrid? [Résolu]
Signaler
cs_philpas
f0xi
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Membre
- Dernière intervention
- 4 septembre 2008
f0xi
- Messages postés
- 4200
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 2 janvier 2019
A voir également:
- Stringgrid
- Delphi stringgrid options - Meilleures réponses
- Delphi stringgrid - Meilleures réponses
- Changement de couleur des lignes sélectionnées par programme dans un TListView ✓ - Forum - Delphi / Pascal
- Changement de couleur de ligne vba ✓ - Forum - VB.NET
- Changer la couleur d'un tableau une ligne sur deux - Codes sources - ColdFusion (Astuces)
- Javascript : Changement de couleur d'une ligne de tableau avec le passage de la souris ou par clic - - Guide
- Visual Basic / VB.NET : Classe vb.net permettant de changer la couleur d'une cellule ou d'une ligne - Guide
5 réponses
Options :
goVertLine et goHorzLine a false
dans l'evenement OnDrawCell de la TStringGrid ...
<hr size="2" width="100%">
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var PenOld,BrushOld : Tcolor;
begin
with StringGrid1.Canvas do begin
// on sauvegarde les anciennes couleurs
PenOld := Pen.Color;
BrushOld := Brush.Color;
// si on est sur une cellule "Fixed"
if gdFixed in state then begin
// Pen.Color := $009C7454;
// Brush.Color := $009C7454;
end else
// si on est sur une cellule Selectionnée
if gdSelected in state then begin
Pen.Color := $009C7454;
Brush.Color := $00BC9474;
end else
// si on est sur une cellule qui a le focus
if gdFocused in state then begin
Pen.Color := $009C7454;
Brush.Color := $0054749C;
end else
// sinon ...
begin
Pen.Color := $009C7454;
Brush.Color := $00FFFFFF;
end;
// on passe en mode MASK! tututu Mask nanananana!
pen.Mode := pmMask;
// on dessine le rectangle on peu egalement faire n'importe quoi d'autre
rectangle(rect.Left-1,rect.Top-1,rect.Right+1,rect.Bottom+1);
// on remet les valeur par defauts
pen.Mode := pmCopy;
Pen.Color := PenOld;
Brush.Color := BrushOld;
end;
end;
<hr size="2" width="100%">
et voila...remarque que comparer a un TListbox ou autre composant du
genre on as pas besoin de faire un FillRect(Rect) au debut ni de
remettre le texte avec TextRect...
goVertLine et goHorzLine a false
dans l'evenement OnDrawCell de la TStringGrid ...
<hr size="2" width="100%">
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var PenOld,BrushOld : Tcolor;
begin
with StringGrid1.Canvas do begin
// on sauvegarde les anciennes couleurs
PenOld := Pen.Color;
BrushOld := Brush.Color;
// si on est sur une cellule "Fixed"
if gdFixed in state then begin
// Pen.Color := $009C7454;
// Brush.Color := $009C7454;
end else
// si on est sur une cellule Selectionnée
if gdSelected in state then begin
Pen.Color := $009C7454;
Brush.Color := $00BC9474;
end else
// si on est sur une cellule qui a le focus
if gdFocused in state then begin
Pen.Color := $009C7454;
Brush.Color := $0054749C;
end else
// sinon ...
begin
Pen.Color := $009C7454;
Brush.Color := $00FFFFFF;
end;
// on passe en mode MASK! tututu Mask nanananana!
pen.Mode := pmMask;
// on dessine le rectangle on peu egalement faire n'importe quoi d'autre
rectangle(rect.Left-1,rect.Top-1,rect.Right+1,rect.Bottom+1);
// on remet les valeur par defauts
pen.Mode := pmCopy;
Pen.Color := PenOld;
Brush.Color := BrushOld;
end;
end;
<hr size="2" width="100%">
et voila...remarque que comparer a un TListbox ou autre composant du
genre on as pas besoin de faire un FillRect(Rect) au debut ni de
remettre le texte avec TextRect...
cs_philpas
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Membre
- Dernière intervention
- 4 septembre 2008
Super c'est ce que je voulais. Merci f0xi.
cs_philpas
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Membre
- Dernière intervention
- 4 septembre 2008
après écriture, j'émets tout de même une réserve. Lorsque je saisi le texte dans la cellule le trait inférieur disparait. il revient lorsque je sélectionne une autre cellule.