Оптимизация стилизованного DBGrid в Delphi XE5 для плавной прокрутки

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

Пользователи, работающие с компонентом DBGrid в Delphi XE5, иногда сталкиваются с проблемой, когда при использовании стилей (styles) вертикальный ползунок прокрутки ведет себя рывками и не обеспечивает плавное перемещение. Это может быть неприятным моментом при работе с большим объемом данных, когда вертикальный ползунок прокрутки отображается. Проблема усугубляется тем, что при отключении стилизации границы (DBGRID.StyleElement.seBorder to False), компонент начинает работать нормально.

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

Решение проблемы

Подтвержденное решение проблемы заключается в использовании специального хука стилизации, который позволяет переопределить поведение вертикального ползунка прокрутки. Хуки стилизации (style hooks) — это механизм, который позволяет внедрить собственную логику в процесс стилизации компонентов.

Пример кода, который решает проблему, представлен ниже:

unit xStyleFixes;
interface
uses forms, Vcl.Buttons, Vcl.StdCtrls, Windows, Messages, SysUtils, Classes, Graphics, Controls, themes, Wwdbgrid, typinfo, DBGrids;
type
  TFixScrollingStyleHook = class (TScrollingStyleHook)
    var ScrollBarthumbBtnWasPressed : Boolean;
    procedure WMVScroll(var Msg: TMessage); message WM_VSCROLL;
  end;
implementation
procedure TFixScrollingStyleHook.WMVScroll(var Msg: TMessage);
var sTest : String;
begin
  if VertSliderState = tsThumbBtnVertPressed then begin
    ScrollBarthumbBtnWasPressed := true;
    Handled := True;
  end else begin
    if ScrollBarthumbBtnWasPressed then begin
      if Self.VertTrackRect.TopLeft = self.VertSliderRect.TopLeft then
        TWMVScroll(Msg).ScrollCode := SB_TOP;
      if Self.VertTrackRect.BottomRight = self.VertSliderRect.BottomRight then
        TWMVScroll(Msg).ScrollCode := SB_BOTTOM;
      ScrollBarthumbBtnWasPressed := False;
    end;
    CallDefaultProc(TMessage(Msg));
    PaintScroll;
  end;
end;
initialization
  TCustomStyleEngine.RegisterStyleHook(TWWDbGrid, TFixScrollingStyleHook );
  TCustomStyleEngine.RegisterStyleHook(TDbGrid, TFixScrollingStyleHook );
end.

Данный код представляет собой класс TFixScrollingStyleHook, который наследуется от TScrollingStyleHook и переопределяет обработчик сообщения WM_VSCROLL. В этом коде реализована логика, которая позволяет плавно прокручивать компонент DBGrid при использовании стилей.

Как это работает

При прокрутке ползунка компонент сначала проверяет состояние ползунка, и если оно соответствует нажатию на кнопку ползунка, то устанавливает флаг ScrollBarthumbBtnWasPressed в True. Если ползунок отпущен, но флаг все еще установлен, то выполняется проверка положения ползунка относительно трека, и в зависимости от этого, устанавливается код прокрутки на SB_TOP или SB_BOTTOM. После этого флаг сбрасывается, и вызывается стандартная процедура обработки сообщения для дальнейшей отрисовки.

Интеграция решения

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

Заключение

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

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

Оптимизация стилизованного DBGrid в Delphi XE5 для плавной прокрутки.

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

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

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