Discussion :

[linda80]

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

[Cl@udius]

Salut

Il te manque l'écriture du contenu de la cellule avec un TextOut:

Code :

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

1
2
3
 
   { Dessin du texte }
   TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);

[Edit]Ajoute cette ligne juste après le FillRect dans le bloc begin-end.
Tu peux également jeter un oeil à cette QR de la

@+ Claudius

[linda80]

merci Cl@udius, c'est tout à fait ça