Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
Форум на Исходниках.RU > Delphi: Сетевое программирование > TWebBrowser, как получить коэффициент масштабирования страницы? |
Автор: estra 01.08.17, 07:49 |
Форумчанам привет! Собственно сабж. Пытаюсь сделать так, но ничего не выходит <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> 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 01.08.17, 13:45 |
По каким-то причинам не удается определить доступность этой команды в WB. <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> 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 можно, а получить нет... Есть какие-нибудь идеи? |