Как выделить цветом текущую строку в TDBGrid

Delphi , Компоненты и Классы , TDBGrid

 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect:
 TRect;
   Field: TField; State: TGridDrawState);
 begin
   if gdFocused in State then
   with (Sender as TDBGrid).Canvas do
   begin
     Brush.Color := clRed;
     FillRect(Rect);
     TextOut(Rect.Left, Rect.Top, Field.AsString);
   end;
 end;

Перевод:

Код, который вы предоставили, является частью языка программирования Delphi и используется для выделения текущей строки в компоненте TDBGrid.

Вот что код делает:

• Он определяет процедуру DBGrid1DrawDataCell, которая вызывается, когда grid требует нарисовать ячейку.
• Процедура проверяет, является ли ячейка активной (т. е., это активная ячейка).
• Если это так, она устанавливает цвет кисти на красный и заливает прямоугольник, представляющий ячейку, этим цветом.
• Затем она рисует текстовый контент ячейки в верхнем левом углу прямоугольника.

Результатом является выделение текущей строки в grid заливкой ее красным цветом.

Альтернативное решение:

Вы можете использовать событие OnDrawColumnHeader вместо OnDrawDataCell, чтобы выделить текущую строку. Это событие вызывается, когда grid требует нарисовать заголовок для столбца, но вы можете использовать его для рисования линии под заголовком, чтобы представить текущую строку.

Вот как это сделать:

procedure TForm1.DBGrid1DrawColumnHeader(Sender: TObject; Column: TColumn;
  Rect: TRect; State: TGridDrawState);
begin
  if gdFocused in State then
    with Sender.Canvas do begin
      Brush.Color := clRed;
      FillRect(Rect);
    end;
end;

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

В статье описывается способ выделения текущей строки в компоненте TDBGrid при помощи процедуры DrawDataCell, которая изменяет цвет фона ячейки на красный при фокусировке.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::