Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=411150&view=findpost&p=3734954 Tue, 01 Aug 2017 13:45:21 +0000 TWebBrowser, как получить коэффициент масштабирования страницы? https://forum.sources.ru/index.php?showtopic=411150&view=findpost&p=3734954
    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 можно, а получить нет... Есть какие-нибудь идеи?]]> estra Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=411150&view=findpost&p=3734893 Tue, 01 Aug 2017 07:49:06 +0000 TWebBrowser, как получить коэффициент масштабирования страницы? https://forum.sources.ru/index.php?showtopic=411150&view=findpost&p=3734893
Собственно сабж. Пытаюсь сделать так, но ничего не выходит

    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 Delphi: Сетевое программирование