[SOLVED] StringGrid colored rows do not change color when being selected

[Vodnik]

I have a StringGrid where some rows are colored different.
I use the following procedure for that:

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

1. procedure TForm1.StringGridPrepareCanvas(Sender: TObject; aCol, aRow: Integer;
2.   aState: TGridDrawState);
3. var
4.   MyTextStyle: TTextStyle;
5. begin
6.   with (Sender as TMyStringGrid) do begin
7.     MyTextStyle := Canvas.TextStyle;
8.     MyTextStyle.SingleLine := false;    // wrap long line in cell
9.     MyTextStyle.Wordbreak := True;    // break line in cell if linebreak found
10.     MyTextStyle.Layout:=tlTop;
11.     Canvas.TextStyle := MyTextStyle;
12.     if AR[Tag].RowAttr[aRow] then begin
13.       Canvas.Brush.Color:=$F1F1F1;
14.       Canvas.Font.Color:=$000000;
15.     end;
16.   end;
17. end;
18.  

This works fine, except that rows with color set to gray do not change color when they are selected (blue).
What have I missed?

[wp]

You did not check the selected state:

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

1. ...
2. if (gdSelected in aState) then
3. begin
4.   Canvas.Brush.Color := clHighlight;
5.   Canvas.Font.Color := clHighlightText;
6. end else
7. if AR[Tag].RowAttr[aRow] then
8. begin
9.   ...

[Vodnik]

Thanks, WP!
Now works fine.