Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TWebBrowser, как получить коэффициент масштабирова 
:(
    Опции темы
estra
Дата 1.8.2017, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 13.10.2008

Репутация: нет
Всего: нет



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

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

Код

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, 11:06
PM MAIL   Вверх
estra
Дата 1.8.2017, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 58
Регистрация: 13.10.2008

Репутация: нет
Всего: нет



По каким-то причинам не удается определить доступность этой команды в 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 можно, а получить нет... Есть какие-нибудь идеи?

Это сообщение отредактировал(а) estra - 1.8.2017, 16:44
PM MAIL   Вверх
honef50661
Дата 6.2.2020, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 6.2.2020

Репутация: нет
Всего: нет




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

PM MAIL WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.0984 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.