[Admin]

Сообщение от 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;