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
- 4202
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 13 juin 2020
A voir également:
- Delphi stringgrid options
- Stringgrid - Meilleures réponses
- String grid - Meilleures réponses
- Options d'affichage de la StringGrid ✓ - Forum - Delphi / Pascal
- Delphi stringgrid select cell ✓ - Forum - Delphi / Pascal
- Selection stringgrid ✓ - Forum - Delphi / Pascal
- Delphi stringgrid selected row - Forum - Delphi / Pascal
- Delphi stringgrid checkbox - Guide
5 réponses
f0xi
- Messages postés
- 4202
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 13 juin 2020
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.
f0xi
- Messages postés
- 4202
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 13 juin 2020
Philpas .... Phildar (de 6eme sens) c'est toi ?