begin
if
RadioButton2
.
Checked
then
try
if
ComboBox1
.
Text=
'20 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.2
;
if
ComboBox1
.
Text=
'30 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.3
;
if
ComboBox1
.
Text=
'40 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.4
;
if
ComboBox1
.
Text=
'50 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.5
;
if
ComboBox1
.
Text=
'60 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.6
;
if
ComboBox1
.
Text=
'70 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.7
;
if
ComboBox1
.
Text=
'80 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.8
;
if
ComboBox1
.
Text=
'90 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
0.9
;
if
ComboBox1
.
Text=
'100 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
1
;
if
ComboBox1
.
Text=
'110 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
1.1
;
if
ComboBox1
.
Text=
'125 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
1.25
;
if
ComboBox1
.
Text=
'150 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
1.5
;
if
ComboBox1
.
Text=
'175 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
1.75
;
if
ComboBox1
.
Text=
'200 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
2
;
if
ComboBox1
.
Text=
'250 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
2.5
;
if
ComboBox1
.
Text=
'300 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
3
;
if
ComboBox1
.
Text=
'400 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
4
;
if
ComboBox1
.
Text=
'500 %'
then
WebBrowser1
.
OleObject
.
Document
.
Body
.
Style
.
Zoom:=
5
;
except
end
;
end
;