StringGrid1DrawCell

Résolu
Signaler
Messages postés
133
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
7 septembre 2010
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
A partir d'un stringgrid, je fais une couleur alternée :
procedure TForm2.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
begin
if (row mod 2)<>1 then
begin
stringgrid1.canvas.brush.color:=impaire; // ligne impaire
stringgrid1.canvas.FillRect(rect)
end
else
begin
stringgrid1.canvas.brush.color:=paire; // ligne paire
stringgrid1.canvas.FillRect(rect);
end;
end;

A l'aide d'un bouton, je veux initialiser les valeurs paire et impaire :
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
impaire:= $00EBFEFB; // Couleur de la ligne impaire
paire:= $00E7ECCA; // Couleur de la ligne paire
StringGrid1.OnDrawCell:=StringGrid1DrawCell;
end;

Ca marche a condition que je clique sur les cellules du StringGrid. Comment faire de telle sorte que ca devienne automatique ?

1 réponse

Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,
Essaye ça
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
impaire:= $00EBFEFB; // Couleur de la ligne impaire
paire:= $00E7ECCA; // Couleur de la ligne paire
StringGrid1.OnDrawCell:=StringGrid1DrawCell;
StringGrid1.Refresh;
end;

@+
Cirec