Comment changer la couleur des lignes séparatifs d'un stringgrid? [Résolu]
cs_philpas
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Membre
- Dernière intervention
- 4 septembre 2008
- 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
Meilleure réponse
- Messages postés
- 4200
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 2 janvier 2019
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...
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
190 internautes nous ont dit merci ce mois-ci
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Membre
- Dernière intervention
- 4 septembre 2008
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Membre
- Dernière intervention
- 4 septembre 2008