Настройка автоматического масштабирования содержимого в TWebBrowser в Delphi 2007: решение проблемы

Delphi , Интернет и Сети , Браузер

Настройка автоматического масштабирования содержимого в TWebBrowser в Delphi 2007

В данной статье мы рассмотрим проблему автоматического масштабирования содержимого в компоненте TWebBrowser при использовании комбинации клавиш Ctrl+колесо мыши в приложениях на Delphi 2007. Это поведение по умолчанию реализовано в Internet Explorer, но может потребовать дополнительной настройки в Delphi.

Проблема

Разработчики столкнулись с проблемой, что после вызова метода IWebBrowser2.ExecWB с параметром OLECMDID_OPTICAL_ZOOM и значением pvaIn равным 100, поведение масштабирования при использовании Ctrl+колесо мыши не изменяется. Ожидалось, что после этого вызова содержимое TWebBrowser будет масштабироваться автоматически, как в Internet Explorer.

Пример кода

Вот пример кода, который был использован в Delphi 2007 для попытки настроить масштабирование:

const
  OLECMDID_OPTICAL_ZOOM = 63;
var
  pvaIn, pvaOut: OleVariant;
begin
  pvaIn := 100;
  pvaOut := NULL;
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_OPTICAL_ZOOM,
    OLECMDEXECOPT_DONTPROMPTUSER, pvaIn, pvaOut);
end;

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

Из обсуждений на форумах стало ясно, что для реализации автоматического масштабирования с помощью Ctrl+колесо мыши необходимо использовать другую стратегию. Один из разработчиков предложил код, который позволяет изменять масштаб содержимого TWebBrowser в заданных пределах:

type
  TFormWebBrowserZoom = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
    procedure FormShow(Sender: TObject);
  private
    FZoom: Integer;
    FLastZoom: Integer;
    procedure ApplyZoom(ZoomValue: Integer);
    procedure DecZoom;
    procedure IncZoom;
  end;

В этом примере реализованы процедуры для увеличения и уменьшения масштаба при нажатии на колесо мыши вниз или вверх соответственно, если зажата клавиша Ctrl. Значение масштабирования задается в пределах от 10 до 1000 с шагом в 20.

const
  OLECMDID_OPTICAL_ZOOM = $0000003F;
  MinZoom = 10;
  MaxZoom = 1000;
  ZoomFactor = 20;
  DefaultZoom = 100;

Процедуры DecZoom и IncZoom вызывают ApplyZoom, который устанавливает новое значение масштаба:

procedure ApplyZoom(ZoomValue: Integer);
var
  pvaIn, pvaOut: OleVariant;
begin
  if ZoomValue = FLastZoom then
    Exit;
  FLastZoom := ZoomValue;
  pvaIn := ZoomValue;
  pvaOut := Null;
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, pvaIn, pvaOut);
end;

Также было отмечено, что для корректной работы с высоким разрешением (High DPI) необходимо установить флаг DOCHOSTUIFLAG_DPI_AWARE при вызове метода GetHostInfo. Это позволит использовать поведение Internet Explorer 8 для масштабирования содержимого.

Подтвержденный ответ

Изменение значения pvaIn на значение, отличное от 100, позволяет реализовать масштабирование содержимого TWebBrowser в приложениях на Delphi 2007. Пример выше демонстрирует, как можно управлять масштабированием, используя события колеса мыши и клавишу Ctrl.

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

Помимо изменения значения pvaIn, было предложено рассмотреть использование компонента TEmbeddedWB и установить флаг DOCHOSTUIFLAG_DPI_AWARE, что может помочь в реализации масштабирования в высоком разрешении. Однако, в обсуждениях отмечалось, что это не решает проблему полностью.

Заключение

Для настройки автоматического масштабирования в TWebBrowser в Delphi 2007 необходимо использовать метод ExecWB с OLECMDID_OPTICAL_ZOOM, изменяя параметр pvaIn в соответствии с желаемым уровнем масштабирования. Также важно учитывать события мыши и использование клавиши Ctrl для активации масштабирования. Установка флага DOCHOSTUIFLAG_DPI_AWARE может быть полезной для корректной работы в высоком разрешении.

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

В статье рассматривается настройка автоматического масштабирования содержимого для компонента `TWebBrowser` в среде разработки Delphi 2007, с целью реализации поведения, аналогичного Internet Explorer при использовании сочетания клавиш `Ctrl+колесо мыши`

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

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

:: Главная :: Браузер ::