Comment changer la couleur des lignes séparatifs d'un stringgrid? [Résolu]
cs_philpas
77
Messages postés
lundi 17 octobre 2005Date d'inscription
4 septembre 2008
Dernière intervention
-
25 nov. 2005 à 10:30 - Dernière réponse :
f0xi
4304
Messages postés
samedi 16 octobre 2004Date d'inscription
9 mars 2018
Dernière intervention
- 26 nov. 2005 à 10:59
- Comment changer la couleur des lignes séparatifs d'un stringgrid?
- Commment Changer la couleur des lignes du datagrid qui satisfont une condition » Forum - ASP.NET
- Changer la couleur des lignes d'un DataGrid » Forum - Flash
- Changer la couleur des lignes d'un combobox ? » Forum - Visual Basic
- Changer couleur des lignes dans MSFlexgrid » Forum - Visual Basic 6
- Changer la couleur de la barre de titre » Codes sources - Visual Basic / VB.NET (Formulaire)
5 réponses
Meilleure réponse
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...
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 102 internautes ce mois-ci
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.