Discussion :

[dav999]

Bonjour,

tout est dans la question, je cherche à modifier les lignes de séparation entre cellules; chez moi, elles sont par défaut en gris mais, comme je modifie les couleurs des cellules, ça fait un peu mal aux yeux. Je voudrais donc les passer en noir, j'ai testé ce code dans ma procédure ondrawcell :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
str_grd.Canvas.Pen.Color:= clblack;  
 
With stringgrid1.Canvas do
begin
 
 
    brush.Color:=$00AAE8EE;
 
    If (aCol=6)  Then Brush.Color:=$007AA0FF;
    If (aCol=5)  Then Brush.Color:=$007AA0FF;
 
 
     FillRect(aRect);
 
 end;

Autant le brush fonctionne bien, autant je n'arrive pas à mes fins avec le pen.color, quelqu'un peut m'aider ?

Merci
David

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.GridLineColor := clBlack;
end;

Cordialement. Gilles

[dav999]

Hum....

mince alors, pourtant j'ai fais défiler l'autocomplétition, je devais être fatigué pour ne pas le voir.

Merci
David