Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > TWebBrowser, как получить коэффициент масштабирова

Автор: estra 1.8.2017, 10:52

Форумчанам привет!

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

Код


procedure TForm1.Button3Click(Sender: TObject);
var
  vaOut: OLEVariant;
begin
   WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, Null, vaOut);
end;

Интересует именно OLECMDID_OPTICAL_ZOOM (т.к. с OLECMDID_ZOOM проблем нет, но это не то, что мне нужно).

Автор: estra 1.8.2017, 16:43

По каким-то причинам не удается определить доступность этой команды в WB.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Flags: TOleEnum;
  s: string;
begin
   Flags := WebBrowser1.QueryStatusWB(OLECMDID_OPTICAL_ZOOM);

   s := '';
   if Flags and OLECMDF_SUPPORTED = OLECMDF_SUPPORTED then
      s := s + 'Команда поддерживается'#13;
   if Flags and OLECMDF_ENABLED = OLECMDF_ENABLED then
      s := s + 'Команда поддерживается и разрешена'#13;
   if Flags and OLECMDF_LATCHED = OLECMDF_LATCHED then
      s := s + 'Команда – переключатель и сейчас включена'#13;
   if Flags and OLECMDF_NINCHED = OLECMDF_NINCHED then
      s := s + 'Зарезервировано'#13;
   ShowMessage(s);
end;

Выдается пустая строка. Не смотря на это изменить коэффициент масштабирования в WB можно, а получить нет... Есть какие-нибудь идеи?

Автор: honef50661 6.2.2020, 21:04

Модератор: Сообщение скрыто.