Сидят два программера, пиво пьют. Ну, значит, один другому и говорит:
- Слышь, Серега, я вчера на одном чате с такой классной девчонкой познакомился. Она мне по Интернету такой минет сделала, просто обалдеть.
Второй:
- Димон, ты это... в этом Интернете поаккуратнее, пожалуйста. А то я тоже лазил, так меня там в задницу поимели.
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50;
end;
{A page must be already loaded into TWebBrowser}//.zoom:=0.25; //25% //.zoom:=0.5; //50%//.zoom:=1.5; //100%//.zoom:=2.0; //200%//.zoom:=5.0; //500%//.zoom:=10.0; //1000%
Статья Показать миниатюру страницы в TWebBrowser раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.