Установка цвета фона выбранной строки в TStringGrid

Question

У меня есть TStringGrid, где у выбранной строки (макс. 1, без множественного выбора) всегда должен быть другой фоновый цвет (u) r.

Я установил для свойства DefaultDrawing значение false и предоставил методдля события OnDrawCell, показанного ниже - но оно не работает.Я даже не могу точно описать, как это не работает;Я полагаю, что если бы я мог, я бы уже решил проблему.Достаточно сказать, что вместо полных рядов с одним и тем же цветом фона это мешанина.Несколько строк имеют несколько ячеек цвета «Выбранный», и не все ячейки выбранной строки имеют выбранный цвет.

Обратите внимание, что я сравниваю строку ячейки со строкой strnggrid;Я не могу проверить состояние ячейки для выбранного, так как выбрана только ячейка выбранной строки.

procedure TForm1.DatabaseNamesStringGridDrawCell(Sender: TObject;
                                                 ACol, ARow: Integer;
                                                 Rect: TRect;
                                                 State: TGridDrawState);

  var cellText :String;
begin
   if gdFixed in State then
      DatabaseNamesStringGrid.Canvas.Brush.Color := clBtnFace
   else
   if ARow = DatabaseNamesStringGrid.Row then
      DatabaseNamesStringGrid.Canvas.Brush.Color := clAqua
   else
      DatabaseNamesStringGrid.Canvas.Brush.Color := clWhite;

   DatabaseNamesStringGrid.Canvas.FillRect(Rect);
   cellText := DatabaseNamesStringGrid.Cells[ACol, ARow];
   DatabaseNamesStringGrid.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, cellText);
end;

Answer 1

если вы пытаетесь закрасить выбранную строку или ячейку другим цветом, вы должны проверить значение gdSelected в state var.

procedure TForm1.DatabaseNamesStringGridDrawCell(Sender: TObject;
                                                 ACol, ARow: Integer;
                                                 Rect: TRect;
                                                 State: TGridDrawState);
var
  AGrid : TStringGrid;
begin
   AGrid:=TStringGrid(Sender);

   if gdFixed in State then //if is fixed use the clBtnFace color
      AGrid.Canvas.Brush.Color := clBtnFace
   else
   if gdSelected in State then //if is selected use the clAqua color
      AGrid.Canvas.Brush.Color := clAqua
   else
      AGrid.Canvas.Brush.Color := clWindow;

   AGrid.Canvas.FillRect(Rect);
   AGrid.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, AGrid.Cells[ACol, ARow]);
end;

Answer 2

Это работает для меня

procedure TFmain.yourStringGrid(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
var
  md: integer;
begin
  with yourStringGrid do 
    begin
           if yourStringGrid,Row = ARow then
              Canvas.Brush.Color:= clYellow  //your highlighted color
           else begin
                 md := Arow mod 2;
                 if md <> 0 then Canvas.Brush.Color:= $00BADCC1 else //your alternate color
                 Canvas.Brush.Color:= clwhite;
           end;
           Canvas.FillRect(Rect);
           Canvas.TextOut(L, Rect.top + 4, cells[ACol, ARow]);
        end;
end;

Обновление сетки

procedure TFmain.yourStringGridClick(Sender: TObject);
begin
  yourStringGrid.Refresh;
end;

Примечание: имеет небольшую задержку, но в остальном работает отлично.
(используется в Delphi XE2)

Answer 3

Когда новая ячейка выбрана в сетке строк, только предыдущая и новая выбранная ячейка становятся недействительными. Таким образом, оставшиеся ячейки предыдущего и нового ряда не перерисовываются, что дает описанный вами эффект.

Одним из обходных путей может быть вызов InvalidateRow для обеих затронутых строк, но это защищенный метод, и вам нужно найти способ доступа к этому методу из обработчика события OnSelectCell. В зависимости от версии Delphi для этого есть разные способы.

Самым чистым способом было бы получить данные из TStringGrid, но в большинстве случаев это невозможно. В более новой версии Delphi вы можете использовать помощника по классам для достижения этой цели. В противном случае вы должны положиться на обычный защищенный хак .

Answer 4

У вас включены темы во время выполнения?Темы времени выполнения переопределяют любую цветовую схему, которую вы пытаетесь применить для Windows Vista и выше.