Comment changer la couleur des lignes séparatifs d'un stringgrid? [Résolu]
cs_philpas
Membre Dernière intervention
4 septembre 2008
- - Dernière réponse :
f0xi
Modérateur Dernière intervention
2 janvier 2019
- 26 nov. 2005 à 10:59
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Statut
A voir également:
- Stringgrid
- String grid - 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
- Classe vb.net permettant de changer la couleur d'une cellule ou d'une ligne de son choix dans un con - Codes sources - Visual Basic / VB.NET (Graphique)
5 réponses
Meilleure réponse
- Messages postés
- 4307
- Date d'inscription
- samedi 16 octobre 2004
- Statut
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
131 internautes nous ont dit merci ce mois-ci
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
- Messages postés
- 77
- Date d'inscription
- lundi 17 octobre 2005
- Statut
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.