problème de coloration des cellules de string grid
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:
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
