StringGrid: How to color a row?

[Jvan]

I want to color some rows.

Thanks

[RayoGlauco]

I found this example, using OnPrepareCanvas:

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

1. procedure TForm1.gridPrepareCanvas(sender: TObject; aCol, aRow: Integer;
2.   aState: TGridDrawState);
3. begin
4.   if (gdFixed in aState) then
5.     Exit;
6.   if (aRow=grid.Row) then
7.     if (aCol=grid.Col) then
8.       grid.Canvas.Brush.Color:=clYellow
9.     else grid.Canvas.Brush.Color:=clBlue;
10. end;

You can adapt it.

[Jvan]

I found this example, using OnPrepareCanvas:

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

1. procedure TForm1.gridPrepareCanvas(sender: TObject; aCol, aRow: Integer;
2.   aState: TGridDrawState);
3. begin
4.   if (gdFixed in aState) then
5.     Exit;
6.   if (aRow=grid.Row) then
7.     if (aCol=grid.Col) then
8.       grid.Canvas.Brush.Color:=clYellow
9.     else grid.Canvas.Brush.Color:=clBlue;
10. end;

You can adapt it.

That code works when I select a row, but I need to color rows by other ways, for instance when clicking a button.

[RayoGlauco]

Well, maybe you can keep a list of cells that must have different colors and apply these colors in the OnPrepareCanvas event.

[Jvan]

Well, maybe you can keep a list of cells that must have different colors and apply these colors in the OnPrepareCanvas event.

I thought that, but the question would be how to color a specific cell. Something like "MyGrid.Cells[x, y].Color := clBlue;".

[Handoko]

There are some demos showing how to color certain cells of a StringGrid:
https://wiki.freepascal.org/Portal:HowTo_Demos

Visit the link above, scroll down until User Interface section then you will find Searchable StringGrid.

[RayoGlauco]

This is a piece of the code suggested by Handoko. You have a list of cells that you want to color and you apply the color in the OnPrepareCanvas event. See the complete example.

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

1. procedure TForm1.StringGrid1PrepareCanvas(sender: TObject; aCol, aRow: Integer;
2.   aState: TGridDrawState);
3. var
4.   i: Integer;
5. begin
6.  
7.   if not(sender is TStringGrid) then Exit;
8.  
9.   // Paint the background yellow for the results
10.   for i := Low(Results) to High(Results) do
11.     if (Results[i].Col = aCol) and (Results[i].Row = aRow) then
12.       (sender as TStringGrid).Canvas.Brush.Color := clYellow;
13.  
14. end;

[Jvan]

It works, thanks!