У меня есть tstringgrid в форме, которая использует этот код для выделения выбранной строки:
procedure TTestForm.testGridDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
testGrid.Canvas.Pen.Color := clNone;
if ARow <> SelectedRow then
testGrid.Canvas.Brush.Color := clWindow
else testGrid.Canvas.Brush.Color := clActiveCaption;
if ColorTSTringList[ARow] = 'Red' then
testGrid.Canvas.Font.Color := clRed;
testGrid.Canvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
testGrid.Canvas.TextRect(Rect, Rect.Left,Rect.Top,testGrid.Cells[ACol,ARow]);
end;
По какой-то причине есть немного более темный синий прямоугольник, возможно, шириной 3 пикселя и высотой ячейки в каждой выделенной строке (см. Прикрепленное изображение). Любые идеи по этому поводу?