Опис програми
Розробку програми здійснено за допомогою мови програмування Object Pascal в середовищі Delphi – для операційної системи Windows.
Також програма дозволяє реалізувати принцип навчання на прикладах, тобто починаючий програміст має можливість переглянути всі вихідні тексти програми, що містять необхідні пояснення, і розібратися в її роботі наочно.
Мал. 1. Вигляд програми “ Енциклопедія персонального комп’ютера”
Використовуючі компоненти:
Image - Малюнок. Цей компонент призначений для відображення малюнків, в тому числі піктограм і метафайлів.
Label - Мітка. Цей компонент використовується для розміщення у вікні не дуже довгих однорядкових написів.
XPManifest - використовує стандартні візуальні компоненти для даної ОС.
Button - командна кнопка. Обробник події OnClick цього компонента зазвичай використовується для реалізації деякої команди.
Panel - цей компонент - панель - є несучою конструкцією для розміщення інших елементів управління. На відміну від простої рамки (TBevel) панель сама є віконним елементом управління і батьком для всіх розміщених на ній компонентів. Часто її використовують для створення панелей інструментів, рядків стану і т. п.
TreeView - компонент служить для відображення складних даних в Windоws отображающихся у вигляді списку або дерева. Наприклад, структура провідника відображається саме таким чином. Компонент TTreeView призначений для реалізації подібних дерев у структурі розроблюваних додатків. Редактор компонента TreeView аналогічний редактору списку ListView, з тією відмінністю, що рівень вкладеності елементів дерева не обмежений.
ToolBar - компонент являє собою інструментальну панель, для швидкого доступу до часто використовуваних функцій нашої програми, дозволяє управляти компонуванням швидких кнопок і компонентів.
ImageList - Компонент delphi ImageList це набір зображень однакових розмірів, на які є можливість посилатися за індексами, починаючи з 0. У багатьох компонентах зустрічається властивість, що представляє собою посилання на цей компонент. Imagelist дозволяє організувати економне та ефективне управління безліччю бітових матриць і піктограм. Він може включати в себе монохромні бітові матриці, що містять маски для відображення прозорості зображень.
WebBrowser - це інтернет браузер, в якому можна переглядати html сторінки, нишпорити в інтернеті. Інтернет експлорер був написаний саме в Delphi. Але WebBrowser - спрощена версія, і можливостей в ньому набагато менше. Знаходиться він в закладці "Internet".
Опис процедур
Перехід на головну сторінку
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index.html');
end;
Вихід з программи
begin
close
end;
Вимкнути зміст (TreeView)
begin
TreeView1.visible:=False;
pnl1.visible:=False;
end;
Включити зміст (TreeView)
begin
TreeView1.visible:=True;
pnl1.visible:=True;
end;
Про програму
begin
aboutBox.ShowModal;
end;
Перехід на сторінки енциклопедії
begin
if (TreeView1.Selected.index = 0)then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/index.html');
end;
if (TreeView1.Selected.Text = '1 Дисплей')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/1.mht');
end;
if (TreeView1.Selected.Text = '2 Системна плата')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/2.mht');
end;
if (TreeView1.Selected.Text = '3 Центральний процесор (Мікропроцесор)')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/3.mht');
end;
if (TreeView1.Selected.Text = '4 Оперативна память')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/4.mht');
end;
if (TreeView1.Selected.Text = '5 Карти розширення')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/5.mht');
end;
if (TreeView1.Selected.Text = '6 Блок живлення')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/6.mht');
end;
if (TreeView1.Selected.Text = '7 Оптичний дисковод')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/7.mht');
end;
if (TreeView1.Selected.Text = '8 Постійна память (Твердий диск)')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/8.mht');
end;
if (TreeView1.Selected.Text = '9 Клавіатура')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/9.mht');
end;
if (TreeView1.Selected.Text = '10 Миша компютерна')then
begin
WebBrowser1.Navigate(GetCurrentDir+'/data/10.mht');
end;