Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.10.2010, 17:40
Nurlan Nurlan вне форума
Прохожий
 
Регистрация: 29.12.2009
Сообщения: 28
Репутация: 10
По умолчанию увеличение в webbrowser

привет всем!мне задали электроный учебник, как сделать чтобы в веббраузере можно было увеличивать как в IE!
т.е чтобы через combobox выбираешь проценты и происходит увеличение

хелп плизз...
Ответить с цитированием
  #2  
Старый 31.10.2010, 17:42
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,560
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Nurlan
привет всем!мне задали электроный учебник, как сделать чтобы в веббраузере можно было увеличивать как в IE!
т.е чтобы через combobox выбираешь проценты и происходит увеличение

хелп плизз...
Код:
begin
 if RadioButton2.Checked
 then
  try
   // 20 %
   if ComboBox1.Text='20 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.2;
   // 30 %
   if ComboBox1.Text='30 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.3;
   // 40 %
   if ComboBox1.Text='40 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.4;
   // 50 %
   if ComboBox1.Text='50 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.5;
   // 60 %
   if ComboBox1.Text='60 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.6;
   // 70 %
   if ComboBox1.Text='70 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.7;
   // 80 %
   if ComboBox1.Text='80 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.8;
   // 90 %
   if ComboBox1.Text='90 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.9;
   // 100 %
   if ComboBox1.Text='100 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=1;
   // 110 %
   if ComboBox1.Text='110 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.1;
   // 125 %
   if ComboBox1.Text='125 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.25;
    // 150 %
   if ComboBox1.Text='150 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.5;
   // 175 %
   if ComboBox1.Text='175 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.75;
   // 200 %
   if ComboBox1.Text='200 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=2;
   // 250 %
   if ComboBox1.Text='250 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=2.5;
   // 300 %
   if ComboBox1.Text='300 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=3;
   // 400 %
   if ComboBox1.Text='400 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=4;
   // 500 %
   if ComboBox1.Text='500 %'
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=5;
  except
  
  end;
end;
Ответить с цитированием
  #3  
Старый 31.10.2010, 18:25
Nurlan Nurlan вне форума
Прохожий
 
Регистрация: 29.12.2009
Сообщения: 28
Репутация: 10
По умолчанию

СПС
но я сделал немного по другому

Код:
try
   // 20 %
   if ComboBox1.itemindex=0
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.2;
   // 30 %
   if ComboBox1.itemindex=1
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.3;
   // 40 %
   if ComboBox1.itemindex=2
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.4;
   // 50 %
   if ComboBox1.itemindex=3
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.5;
   // 60 %
   if ComboBox1.itemindex=3
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.6;
   // 70 %
   if ComboBox1.itemindex=4
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.7;
   // 80 %
   if ComboBox1.itemindex=5
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.8;
   // 90 %
   if ComboBox1.itemindex=6
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.9;
   // 100 %
   if ComboBox1.itemindex=7
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=1;

   // 200 %
   if ComboBox1.itemindex=8
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=2;
   // 250 %
   if ComboBox1.itemindex=9
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=2.5;
   // 300 %
   if ComboBox1.itemindex=10
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=3;
   // 400 %
   if ComboBox1.itemindex=11
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=4;
   // 500 %
   if ComboBox1.itemindex=12
   then WebBrowser1.OleObject.Document.Body.Style.Zoom:=5;
  except

  end;
Ответить с цитированием
  #4  
Старый 31.10.2010, 18:41
Аватар для pesi
pesi pesi вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
По умолчанию

Код:
case ComboBox1.itemindex of
	0: WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.2;
	1: WebBrowser1.OleObject.Document.Body.Style.Zoom:=0.3;
	...
	...
else
	WebBrowser1.OleObject.Document.Body.Style.Zoom:=1;
end;
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:43.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter