Масштабирование страницы в TWebBrowser

Delphi , Интернет и Сети , Браузер

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 begin
   //75% of original size 
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.75;
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   //original size 
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;
 end;

 {A page must be already loaded into TWebBrowser}
 {Eine Seite muss bereits in TWebBrowser geladen sein}

 //.zoom:=0.25; //25% 
//.zoom:=0.5; //50% 
//.zoom:=1.5; //100% 
//.zoom:=2.0; //200% 
//.zoom:=5.0; //500% 
//.zoom:=10.0; //1000% 

{----------}

 uses
   OleCtrls, SHDocVw;

 { 
Suppose That you want to use for buttons to give you the zooming 
(text size) options of MSIE, 
Button1 for smallest, Button2 for small, Button3 for medium, 
Button4 for large and Button5 for Largest, 
You have to set the value of the tag property for each button as following: 
 0: for the smallest text size, 
 1: for the small, 
 2: for medium, 
 3: for large, 
 4: for the largest. 

}


 procedure TForm1.Button1Click(Sender: TObject);
 var
   ZoomFac: OLEVariant;
 begin
   ZoomFac := TButton(Sender).Tag;
   WebBrowser1.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac);
 end;

Код, который я опубликовал, используется для управления уровнем зума веб-страницы в компоненте TWebBrowser с помощью Delphi.

Вот что каждый часть кода делает:

1. procedure TForm1.Button1Click( Sender: TObject );: Это процедура, которая запускается при клике кнопки Button1.
2. WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.75; : Эта строка устанавливает уровень зума в 75% от его оригинального размера.
3. procedure TForm1.Button2Click( Sender: TObject );: Это процедура, которая запускается при клике кнопки Button2.
4. WebBrowser1.OleObject.Document.Body.Style.Zoom := 1; : Эта строка устанавливает уровень зума обратно в его оригинальный размер (100%).
5. Комментарии предоставляют дополнительные примеры, как можно установить уровень зума с помощью различных значений.

6. Для настройки опций зума для кнопок каждый из них имеет свойство Tag, которое нужно настроить соответствующим образом:

   • Button1: наименьший размер текста (0)
   • Button2: маленький (1)
   • Button3: средний (2)
   • Button4: большой (3)
   • Button5: наибольший (4)

7. В второй процедуре (procedure TForm1.Button1Click( Sender: TObject );), она получает свойство Tag кнопки, которая была кликнута, и затем использует метод ExecWB для выполнения команды зума с указанным фактором.

Обратите внимание, что это quite old код-снippet из 2003 года, поэтому вы можете использовать более современные версии Delphi, такие как 10.4 или выше, для этой цели.

В статье описывается масштабирование страницы в компоненте TWebBrowser Delphi с помощью изменения параметра Zoom стиля тега Body документа.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::