На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> TWebBrowser, как получить коэффициент масштабирования страницы?
    Форумчанам привет!

    Собственно сабж. Пытаюсь сделать так, но ничего не выходит

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


    Интересует именно OLECMDID_OPTICAL_ZOOM (т.к. с OLECMDID_ZOOM проблем нет, но это не то, что мне нужно).
      По каким-то причинам не удается определить доступность этой команды в WB.

      ExpandedWrap disabled
        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 можно, а получить нет... Есть какие-нибудь идеи?
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0738 ]   [ 15 queries used ]   [ Generated: 22.11.17, 13:07 GMT ]