Colore celle StringGrid

[JuanBell]

Salve a tutti
per favore mi dite come so colora una specifica cella di StringGrid con un colore data una condizione.
Grazie dell’attenzione.
for J:=1 to 10
do begin
L:=L+1;
LS:=IntToStr(L);
If not Odd(I) Then CC:='Z' e colora cella in verde
 else CC:='A'; e colora cella in rosso
StringGrid1.Cells[I,J]:=CC;
end;
end

[qk]

Se non hai dimistichezza con l'inglese aggiungi comunque una copia
del tuo messaggio tradotta anche con google translator.
In questo modo il messaggio sarà comprensibile a tutti e più persone potranno aiutarti.

Sotto un semplice esempio di come colorare le colonne dispari.

Google translator:
If you don't speak English well, still add a copy of your message
translated with Google translator. This way, the message will be
understandable to everyone, and more people can help you.

Below is a simple example of how to color the odd columns.

Code: Pascal  [Select][+][-]

1. procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
2.   aRect: TRect; aState: TGridDrawState);
3. begin
4.   if (ACol > 0) and (ARow > 0) then
5.     with Sender as TStringGrid do
6.     begin
7.       if Odd(ACol) then
8.       begin
9.         Canvas.Brush.Color := clGreen;
10.         Canvas.FillRect(aRect);
11.         Canvas.TextOut(aRect.Left + 2, ARect.Top + 2, Cells[ACol, ARow]);
12.       end else
13.       begin
14.         Canvas.Brush.Color := clRed;
15.         Canvas.FillRect(aRect);
16.         Canvas.TextOut(aRect.Left + 2, ARect.Top + 2, Cells[ACol, ARow]);
17.       end;
18.     end;
19. end;

   

[Lutz Mändle]

Use the OnPrepareCanvas event of the stringgrid for coloring the cells, for example like this:

Code: Pascal  [Select][+][-]

1. procedure TForm1.StringGrid1PrepareCanvas(Sender: TObject; aCol,
2.   aRow: Integer; aState: TGridDrawState);
3. begin
4.   if (ACol > 0) and (ARow > 0) then
5.     if Odd(aCol) then
6.       TStringGrid(Sender).Canvas.Brush.Color := clGreen
7.     else
8.       TStringGrid(Sender).Canvas.Brush.Color := clRed;
9. end;
10.  

[JuanBell]

Grazie di tutto thanks for everything