ct);
procedure N21Click (Sender: TObject);
procedure N19Click (Sender: TObject);
procedure N5Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
Form1: TForm1;
Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
ScreenWidth: LongInt=1 280;
ScreenHeight: LongInt=1024;
{$ R * .dfm}
TForm1.TreeView1Change (Sender: TObject; Node: TTreeNode); TreeView1.Selected.Text= Системний блок then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Системний блок.HTM ); TreeView1.Selected.Text= Введення then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. МатериалыВведение.HTMraquo;);TreeView1.Selected.Text=laquo;Материнская плата then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Материнська плата.HTM ); TreeView1.Selected.Text= Процесор then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + laquo ; Доп. МатериалыПроцессор.HTMraquo;);TreeView1.Selected.Text=laquo;Видеокартаraquo; then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Відеокарта.HTM ); TreeView1.Selected.Text= Жорсткий диск then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Жорсткий діск.HTM ); TreeView1.Selected.Text= ОЗУ then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали ОЗУ.HTM ); TreeView1.Selected.Text= Блок живлення then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Блок пітанія.HTM ); TreeView1.Selected.Text= Карти розширення then WEbBrowser1.Navigate (Extractfilepath (Application. ExeName) + Доп. Матеріали Карти расшіренія.HTM ); TreeView1.Selected.Text= Мережева карта then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Мережева карта.HTM ); TreeView1.Selected.Text= Звукова карта then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Звукова карта.HTM ); TreeView1.Selected.Text= Оптичний привід then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Оптичний прівод.HTM ); TreeView1.Selected.Text= кардрідер then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Кардрідер.HTM ); TreeView1.Selected.Text= Системна шина then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Системна шіна.HTM ); TreeView1.Selected.Text= Електронні схеми then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Електронні схеми.HTM ); TreeView1.Selected.Text= Типи корпусів then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Типи корпусов.HTM ); TreeView1.Selected.Text= Периферійні пристрої then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Периферійні устройства.HTM ); TreeView1.Selected.Text= Монітор then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. МатериалыМонитор.HTMraquo;);TreeView1.Selected.Text=laquo;Клавиатураraquo; then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. МатериалыКлавиатура.HTMraquo;);TreeView1.Selected.Text=laquo;Компьютерная миша then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Комп'ютерна мишь.HTM ); TreeView1.Selected.Text= Внутрішні then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + laquo ; Доп. МатериалыВнутренние.HTMraquo;);TreeView1.Selected.Text=laquo;Внешниеraquo; then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Внешніе.HTM ); TreeView1.Selected.Text= Принтер then WEbBrowser1.Navigate (Extractfilepath (Application.ExeName) + Доп. Матеріали Прінтер.HTM ) ;; TForm1.Button1Click (Sender: TObject);
ZoomFac: OLEVariant;
WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.3;
ZoomFac:=TButton (Sender) .Tag;
WebBrowser1.ExecWB (OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac) ;; TForm1.Button2Click (Sender: TObject);
WebBrowser1.OleObject.Document.Body.Style.Zoom:=1 ;; TForm1.N2Click (Sender: TObject) ;. Show ;;
TForm1.N3Click (Sender: TObject) ;. Show ;;
TForm1.FormCreate (Sender: TObject);
scaled:=true;
if (screen.width lt; gt; ScreenWidth) then
begin
height:=longint (height) * longint (screen.height) div ScreenH...
