Bonjour ;

J'ai un petit problème avec string grid, le code ci dessous, me permet de colorer certaines cellules selon un critère : sgrid1.Cells[1,ARow]='1'.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm15.SGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
with (Sender as TStringGrid).Canvas do
if (sgrid1.Cells[1,ARow]='1') then
begin
      Brush.Color := $00FFFFF0;
      FillRect(Rect);
end;
end;
tout se passe bien sauf, que lorsque les cellules sont colorées, le texte écrit dans la cellule est caché, il n'est visible que quand je sélectionne la cellule en édition.

comment faire pour colorer les cellules sans en dissimuler le contenu ?

merci