Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.191.211.66] |
|
Сообщ.
#1
,
|
|
|
Форумчанам привет!
Собственно сабж. Пытаюсь сделать так, но ничего не выходит procedure TForm1.Button3Click(Sender: TObject); var vaOut: OLEVariant; begin WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, Null, vaOut); end; Интересует именно OLECMDID_OPTICAL_ZOOM (т.к. с OLECMDID_ZOOM проблем нет, но это не то, что мне нужно). |
Сообщ.
#2
,
|
|
|
По каким-то причинам не удается определить доступность этой команды в 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 можно, а получить нет... Есть какие-нибудь идеи? |