Discussion :

[molini_a]

Bonjour,

je suis en train de faire une application qui utilise un string grid, et j'aimerais que lorsque l'utilisateur place la souris sur l'une des case, ca colorie en bleu la ligne et la colonne.

Pour la ligne j'utilise:

Code :

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

1
2
if gdSelected in State then
    Canvas.Brush.Color := clGradientInactiveCaption

Ca fonctionne parfaitement, par contre, je ne vois pas comment faire pour colorer la colonne.

j'ai essayé de faire :

Code :

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

1
2
if (ACol = gMX) then
     Canvas.Brush.Color := clGradientInactiveCaption

Ca fonctionne au début, mais comme le rafraichissement est mauvais, ca devient du n'importe et ca colorie des cases au hasard.

Auriez-vous une solution pour colorier la ligne et la colonne en même temps ?

Merci d'avance

[Just-Soft]

je crois que StringGrid dispose d'une méthode OnDrawCell*** ou quelque chose du genre et c'est cette méthode qui est faite pour ces tâches.

[Andnotor]

Exactement .

Tu n'as plus qu'à tester les ligne/colonne sélectionnée:

Code :

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

1
2
3
4
5
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid(Sender) do
    if (Col = aCol) or (Row = aRow) then ...
end;

Bien sûr au changement de cellule, tu devras Invalidate toute la grille. Sinon seules l'ancienne et la nouvelle cellule seront repeintes.