Исправление Черного Фонового Пробела в DBGrid Delphi 10.2

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

При работе с компонентом DBGrid в Delphi 10.2 пользователи могут столкнуться с проблемой черного фона в ячейках, где используется изображение из TImageList для отображения специального символа вместо текста. В частности, при попытке отобразить галочку вместо текста "Done", в ячейках появляется черный фон, который не покрыт изображением. Это происходит из-за отсутствия корректной настройки цвета фона ячейки.

Описание проблемы

Пользователи столкнулись с тем, что при использовании изображения из TImageList для отображения галочки в ячейках DBGrid в Delphi 10.2, вокруг изображения остается черный фон. Это происходит даже после попытки увеличения размера пикселей изображения для соответствия размеру ячейки. В прошлых версиях Delphi, например в D7, такой проблемы не наблюдалось.

Пример кода, вызывающего проблему

В коде обработчика события OnDrawColumnCell компонента DBGrid используется метод ImageList1.Draw для отображения изображения, но вокруг него остается черный фон, что указывает на отсутствие корректной настройки фона ячейки.

procedure TFUpRepWS.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Column do begin
    if ((FieldName = 'Done') and (Field.AsString = 'x')) then begin
      // Отображаем изображение галочки, вокруг которой остается черный фон
      ImageList1.Draw(DBGrid1.Canvas, Rect.Left, Rect.Top, 0)
    end
    else DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Подтвержденное решение

Для решения проблемы необходимо сначала выполнить стандартную отрисовку ячейки, используя метод DefaultDrawColumnCell, а затем уже нарисовать изображение. Это гарантирует, что ячейка будет выглядеть так же, как и остальные. Пример исправленного кода:

procedure TFUpRepWS.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Column do
  begin
    // Выполняем стандартную отрисовку ячейки
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    // Проверяем условие и, если оно истинно, нарисовать изображение галочки
    if ((FieldName = 'Done') and (Field.AsString = 'x')) then
      ImageList1.Draw(DBGrid1.Canvas, Rect.Left, Rect.Top, 0);
  end;
end;

Альтернативный ответ

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

Заключение

Используя подход, при котором сначала выполняется стандартная отрисовка ячейки, а затем накладывается изображение, можно исправить проблему черного фона в ячейках DBGrid в Delphi 10.2. Этот метод гарантирует корректное отображение ячеек с использованием изображений из TImageList, делая их визуально согласованными с остальными элементами сетки.

Создано по материалам из источника по ссылке.

Пользователи столкнулись с проблемой черного фона вокруг изображения в ячейках DBGrid в Delphi 10.2 при попытке отобразить изображение вместо текста, и это связано с неправильной последовательностью отрисовки элементов ячейки.

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

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

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