- •Аннотация
- •Оглавление
- •Введение
- •Основная часть.
- •Выбор структур данных для решения поставленной задачи.
- •Логическое проектирование.
- •Физическое проектирование.
- •Проектирование интерфейса.
- •Перейдем к разделу «тренажерное тестирование»:
- •Перейдем к разделу «контрольное тестирование»:
- •Вызов и загрузка.
- •Тестирование.
- •Заключение.
- •Список используемой литературы.
- •Блок-схемы алгоритмов
- •Листинг программы
- •Руководство пользователя
Блок-схемы алгоритмов
Рис. П2.1 Загрузка данных в случае выбора любого из компонентов
в разделе «Теоретический материал».
-
+
Рис. П2.2 Блок-схема последовательности действий в контрольном тесте.
-
+
-
+
Рис. П2.3.1 Блок-схема последовательности действий в тренажерном тесте.
П родолжение рис П2.3
-
+
-
+
Рис. П2.3.2 Блок-схема последовательности действий в тренажерном тесте.
Приложение 3
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Menus, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
MainMenu1: TMainMenu;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N3: TMenuItem;
N1: TMenuItem;
Image2: TImage;
procedure N3Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure Label4MouseEnter(Sender: TObject);
procedure Label4MouseLeave(Sender: TObject);
procedure Label5MouseEnter(Sender: TObject);
procedure Label5MouseLeave(Sender: TObject);
procedure Label6MouseEnter(Sender: TObject);
procedure Label6MouseLeave(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Label6Click(Sender: TObject);
procedure Label5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.dfm}
//нажатие кнопки "ТЕОРЕТИЧЕСКИЙ МАТЕРИАЛ"
procedure TForm1.Label4Click(Sender: TObject);
begin
form2.Position:=poScreenCenter;
form2.N2.Enabled:=true;
form2.N3.Visible:=false;
Form1.hide;
Form2.Show;
form3.memo1.Width:=673;
end;
//нажатие кнопки "ВЫХОД" в главном меню
procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;
//подтверждение выхода из программы
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Вы действительно хотите выйти?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then CanClose:=true else CanClose:=false;
end;
//нажатие кнопки "ОБ АВТОРЕ" в "Справке" главного меню
procedure TForm1.N6Click(Sender: TObject);
begin
form3.BorderIcons:=form1.BorderIcons;
with form3 do
begin
label4.Caption:='Автор и исполнитель Гатиятова Анжелика Ренатовна. Специальность "Программное обеспечение вычислительной техники и автоматизированных систем", группа 1ПО-21, ИИТ, ЧГУ, Череповец. 2011-2012 год.';
Caption:=Label3.Caption;
label4.Alignment:=taCenter;
label4.Font.Size:=13;
show;
label4.visible:=true;
label3.visible:=true;
label2.visible:=false;
label1.visible:=false;
memo1.Visible:=false;
image7.Visible:=true;
Height:=436;
Width:=577;
end;
end;
//нажатие кнопки "О ПРОГРАММЕ" в "Справке" главного меню
procedure TForm1.N5Click(Sender: TObject);
begin
form3.BorderIcons:=form1.BorderIcons;
with form3 do
begin
label2.Caption:='О ПРОГРАММЕ';
Caption:=Label2.Caption;
show;
label2.visible:=true;
label1.visible:=true;
label4.visible:=false;
label3.visible:=false;
Memo1.Visible:=false;
Height:=436;
Width:=577;
end;
end;
//подсветка "ТЕОРЕТИЧЕСКОГО МАТЕРИАЛА" при наведении курсора
procedure TForm1.Label4MouseEnter(Sender: TObject);
begin
label4.Font.Color:=clblue;
label4.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "ТЕОРЕТИЧЕСКОГО МАТЕРИАЛА"
procedure TForm1.Label4MouseLeave(Sender: TObject);
begin
label4.Font.Color:=clwindowtext;
label4.Font.Style:=label5.Font.Style;
end;
//подсветка "ТРЕНАЖЕРНОГО ТЕСТИРОВАНИЯ" при наведении курсора
procedure TForm1.Label5MouseEnter(Sender: TObject);
begin
label5.Font.Color:=clblue;
label5.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "ТЕОРЕТИЧЕСКОГО МАТЕРИАЛА"
procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
label5.Font.Color:=clwindowtext;
label5.Font.Style:=label4.Font.Style;
end;
//подсветка "ТРЕНАЖЕРНОГО ТЕСТИРОВАНИЯ" при наведении курсора
procedure TForm1.Label6MouseEnter(Sender: TObject);
begin
label6.Font.Color:=clblue;
label6.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "ТЕОРЕТИЧЕСКОГО МАТЕРИАЛА"
procedure TForm1.Label6MouseLeave(Sender: TObject);
begin
label6.Font.Color:=clwindowtext;
label6.Font.Style:=label5.Font.Style;
end;
//нажатие кнопки "ИСТОЧНИКИ" в "Справке" главного меню
procedure TForm1.N1Click(Sender: TObject);
begin
form3.BorderIcons:=form1.BorderIcons;
with form3 do
begin
label2.Caption:='HTTP ИСТОЧНИКИ';
Caption:=Label2.Caption;
show;
label27.visible:=true;
label2.visible:=true;
label3.visible:=false;
label4.visible:=false;
label1.visible:=false;
memo1.Visible:=false;
Height:=436;
Width:=577;
end;
end;
//нажатие кнопки "КОНТРОЛЬНОЕ ТЕСТИРОВАНИЕ"
procedure TForm1.Label6Click(Sender: TObject);
begin
form4.Position:=poScreenCenter;
form1.Hide;
with form4 do
begin
label2.Font.Size:=13;
label8.Visible:=false;
label9.Visible:=false;
image1.Visible:=false;
image3.Visible:=false;
label1.Visible:=true;
label2.Visible:=true;
bitbtn2.Visible:=false;
bitbtn13.Visible:=false;
panel1.Visible:=false;
label3.Visible:=false;
label4.Visible:=false;
label6.Visible:=false;
label7.Visible:=false;
label8.Visible:=false;
BitBtn1.Visible:=true;
edit1.Text:='';
edit1.visible:=false;
show;
n2.Enabled:=true;
Label1.Caption:='Вы выбрали КОНТРОЛЬНОЕ ТЕСТИРОВАНИЕ. Данный вид проверки предназначен для заключительной оценки имеющихся у Пользователя знаний по изучаемой в программе теме.';
Label2.Caption:='Вам будет предоставлено 10 вопросов и 4 варианта ответа на каждый из них. Доступ к теории будет невозможен, к предыдущим вопросам тоже. Также Вы не сможете выйти в главное меню до окончания теста. С момента нажатия кнопки "НАЧАТЬ" ведется отсчет времени.';
end;
end;
//нажатие кнопки "ТРЕНАЖЕРНОЕ ТЕСТИРОВАНИЕ"
procedure TForm1.Label5Click(Sender: TObject);
begin
form5.Position:=poScreenCenter;
PRAV:=0;
form2.N3.Visible:=true;
form1.Hide;
with form5 do
begin
image1.Visible:=false;
BitBtn1.Visible:=true;
bitbtn3.Visible:=false;
bitbtn4.Visible:=false;
bitbtn5.Visible:=false;
bitbtn6.Visible:=false;
bitbtn7.Visible:=false;
bitbtn8.Visible:=false;
bitbtn9.Visible:=false;
bitbtn10.Visible:=false;
bitbtn11.Visible:=false;
bitbtn12.Visible:=false;
bitbtn13.Visible:=false;
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
label3.Visible:=false;
label1.Visible:=true;
label2.Visible:=true;
show;
Label1.Caption:='Вы выбрали ТРЕНАЖЕРНОЕ ТЕСТИРОВАНИЕ. Данный вид проверки используется как подготовительный этап к заключительному контрольному тестированию.';
Label2.Caption:='Помимо вопросов и вариантов ответа Вам будет предоставлена возможность просмотра теории по компонентам. Также Вы сможете вернуться к любому из показаных ранее вопросов.';
end;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Buttons, ExtCtrls;
type
TForm2 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BitBtn14: TBitBtn;
BitBtn15: TBitBtn;
BitBtn16: TBitBtn;
BitBtn17: TBitBtn;
MainMenu1: TMainMenu;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
Label1: TLabel;
Label2: TLabel;
N1: TMenuItem;
Label3: TLabel;
N3: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn15Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure BitBtn14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn12Click(Sender: TObject);
procedure BitBtn17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn17Click(Sender: TObject);
procedure BitBtn13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure BitBtn16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4, Unit5;
{$R *.dfm}
//нажатие кнопки "ГЛАВНОЕ МЕНЮ" в главном меню
procedure TForm2.N2Click(Sender: TObject);
begin
form2.Hide;
form1.Show;
form1.Position:=poScreenCenter;
end;
//нажатие кнопки "ВЕРНУТЬСЯ К ТЕСТУ" в главном меню
procedure TForm2.N3Click(Sender: TObject);
begin
close;
form5.Position:=poScreenCenter;
end;
//нажатие кнопки "О ПРОГРАММЕ" в "Справке" главного меню
procedure TForm2.N5Click(Sender: TObject);
begin
form3.BorderIcons:=form1.BorderIcons;
with form3 do
begin
label2.Caption:='О ПРОГРАММЕ';
Caption:=Label2.Caption;
show;
label2.visible:=true;
label1.visible:=true;
label27.visible:=false;
label3.visible:=false;
Memo1.Visible:=false;
Height:=436;
Width:=577;
end;
end;
//нажатие кнопки "ОБ АВТОРЕ" в "Справке" главного меню
procedure TForm2.N6Click(Sender: TObject);
begin
form3.BorderIcons:=form1.BorderIcons;
with form3 do
begin
label4.Caption:='Автор и исполнитель Гатиятова Анжелика Ренатовна. Специальность "Программное обеспечение вычислительной техники и автоматизированных систем", группа 1ПО-21, ИИТ, ЧГУ, Череповец. 2011-2012 год.';
Caption:=Label3.Caption;
label4.Alignment:=taCenter;
label4.Font.Size:=13;
show;
label27.visible:=false;
label4.visible:=true;
label3.visible:=true;
label2.visible:=false;
label1.visible:=false;
memo1.Visible:=false;
Height:=436;
Width:=577;
image7.Visible:=true;
end;
end;
//нажатие кнопки "ИСТОЧНИКИ" в "Справке" главного меню
procedure TForm2.N1Click(Sender: TObject);
begin
form3.BorderIcons:=form1.BorderIcons;
with form3 do
begin
label2.Caption:='HTTP ИСТОЧНИКИ';
Caption:=Label2.Caption;
show;
label27.visible:=true;
label2.visible:=true;
label3.visible:=false;
label3.visible:=false;
label4.visible:=false;
label1.visible:=false;
memo1.Visible:=false;
Height:=436;
Width:=577;
end;
end;
//нажатие пользователем кнопки компонента "КУРСОР"
procedure TForm2.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
label2.Caption:='Извините, по данному компоненту не существует более подробной информации.';
end;
//наведение курсора на кнопку компонента "КУРСОР"
procedure TForm2.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='Данный элемент не является компонентом формы. При его выборе, выбранный, но еще не перенесенный на форму другой компонент сбрасывается, мышь оперирует простым указателем.';
label3.Visible:=false;
end;
//наведение курсора на кнопку компонента "FRAME"
procedure TForm2.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='FRAME. Панель с возможностями наследования. Проектируется как отдельное окно. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "FRAME"
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ FRAME (TFrame)';
label5.Caption:='FRAME';
show;
Memo1.Visible:=true;
image1.Visible:=true;
image2.Visible:=true;
image3.Visible:=true;
image4.Visible:=true;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\01. frame\1.16. FRAME.txt');
image1.Picture.LoadFromFile('teoriya\01. frame\1.jpg');
image2.Picture.LoadFromFile('teoriya\01. frame\2.jpg');
image3.Picture.LoadFromFile('teoriya\01. frame\3.jpg');
image4.Picture.LoadFromFile('teoriya\01. frame\4.jpg');
image3.Align:=alnone;
image4.Align:=alnone;
image1.Top:=56;
image1.left:=720;
image3.left:=720;
image4.left:=720;
IMAGE2.Top:=image1.Top+image1.Height+7;
IMAGE3.Top:=image2.Top+image2.Height+7;
IMAGE4.Top:=image3.Top+image3.Height+7;
end;
end;
//наведение курсора на кнопку компонента "MAINMENU"
procedure TForm2.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='MAINMENU. Позволяет создавать и конструировать полосу главного меню формы и выпадающие меню. Компонент невизуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "MAINMENU"
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ MAINMENU (Menus)';
label5.Caption:='MAINMENU';
show;
Memo1.Visible:=true;
label6.Visible:=true;
label7.Visible:=true;
label8.Visible:=true;
label26.Visible:=true;
image1.Visible:=true;
image2.Visible:=true;
image1.left:=720;
image1.Top:=56;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\02. mainmenu\2.16. mainmenu.txt');
image1.Picture.LoadFromFile('teoriya\02. mainmenu\1.jpg');
image2.Picture.LoadFromFile('teoriya\02. mainmenu\2.jpg');
IMAGE2.Top:=image1.Top+image1.Height+3;
end;
end;
//наведение курсора на кнопку компонента "POPUPMENU"
procedure TForm2.BitBtn4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='POPUPMENU. Позволяет создавать и конструировать всплывающие контекстные меню, возникающие при нажатии пользователем правой кнопки мыши. Компонент невизуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "POPUPMENU"
procedure TForm2.BitBtn4Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ POPUPMENU (Menus)';
label5.Caption:='POPUPMENU';
show;
Memo1.Visible:=true;
image1.Visible:=true;
image2.Visible:=true;
image1.Top:=56;
image1.left:=720;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\03. popupmenu\3.16. popupmenu.txt');
image1.Picture.LoadFromFile('teoriya\03. popupmenu\1.jpg');
image2.Picture.LoadFromFile('teoriya\03. popupmenu\2.jpg');
IMAGE2.Top:=image1.Top+image1.Height+7;
end;
end;
//нажатие пользователем кнопки компонента "LABEL"
procedure TForm2.BitBtn5Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ LABEL (StdCtrls)';
label5.Caption:='LABEL';
show;
Memo1.Visible:=true;
label9.visible:=true;
label26.Visible:=true;
image1.Visible:=true;
image2.Visible:=true;
image1.Top:=73;
Height:=699;
Width:=1083;
image1.left:=720;
memo1.lines.loadfromfile('teoriya\04. label\4.16. label.txt');
image1.Picture.LoadFromFile('teoriya\04. label\1.jpg');
image2.Picture.LoadFromFile('teoriya\04. label\2.jpg');
IMAGE2.Top:=image1.Top+image1.Height+7;
end;
end;
//наведение курсора на кнопку компонента "LABEL"
procedure TForm2.BitBtn5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='LABEL. Используется для размещения на формах и других контейнерах текста, который не изменяется пользователем. Компонент визуальный.';
label3.Visible:=false;
end;
//наведение курсора на кнопку компонента "EDIT"
procedure TForm2.BitBtn6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='EDIT. Используется для ввода пользователем однострочных текстов. Может использоваться для отображения текста. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "EDIT"
procedure TForm2.BitBtn6Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ EDIT (StdCtrls)';
label5.Caption:='EDIT';
show;
Memo1.Visible:=true;
label10.visible:=true;
label11.visible:=true;
label12.visible:=true;
label26.Visible:=true;
image1.Visible:=true;
image2.Visible:=true;
image1.Top:=73;
Height:=699;
Width:=1083;
image1.left:=720;
memo1.lines.loadfromfile('teoriya\05. edit\5.16. edit.txt');
image1.Picture.LoadFromFile('teoriya\05. edit\1.jpg');
image2.Picture.LoadFromFile('teoriya\05. edit\2.jpg');
IMAGE2.Top:=image1.Top+image1.Height+7;
end;
end;
//наведение курсора на кнопку компонента "MEMO"
procedure TForm2.BitBtn7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='MEMO. Используется для ввода и отображения многострочных текстов. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "MEMO"
procedure TForm2.BitBtn7Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ MEMO (StdCtrls)';
label5.Caption:='MEMO';
show;
Memo1.Visible:=true;
label13.visible:=true;
image1.Visible:=true;
image2.Visible:=true;
label26.Visible:=true;
image1.Top:=56;
Height:=699;
Width:=1083;
image1.left:=720;
memo1.lines.loadfromfile('teoriya\06. memo\6.16. memo.txt');
image1.Picture.LoadFromFile('teoriya\06. memo\1.jpg');
image2.Picture.LoadFromFile('teoriya\06. memo\2.jpg');
IMAGE2.Top:=image1.Top+image1.Height+7;
end;
end;
//наведение курсора на кнопку компонента "BUTTON"
procedure TForm2.BitBtn8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='BUTTON. Используется для создания кнопок, которыми пользователь выбирает команды в приложении. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "BUTTON"
procedure TForm2.BitBtn8Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ BUTTON (StdCtrls)';
label5.Caption:='BUTTON';
show;
Memo1.Visible:=true;
label14.visible:=true;
image1.Visible:=true;
label26.Visible:=true;
image1.Top:=73;
Height:=699;
Width:=1083;
image1.left:=720;
memo1.lines.loadfromfile('teoriya\07. button\7.16. button.txt');
image1.Picture.LoadFromFile('teoriya\07. button\1.jpg');
end;
end;
//наведение курсора на кнопку компонента "CHECKBOX"
procedure TForm2.BitBtn9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='CHECKBOX. Позволяет пользователю включать и выключать различные опции. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "CHECKBOX"
procedure TForm2.BitBtn9Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ CHECKBOX (StdCtrls)';
label5.Caption:='CHECKBOX';
show;
Memo1.Visible:=true;
label15.visible:=true;
image1.Visible:=true;
label26.Visible:=true;
image1.Top:=73;
Height:=699;
Width:=1083;
image1.left:=720;
memo1.lines.loadfromfile('teoriya\08. CHECKBOX\8.16. CHECKBOX.txt');
image1.Picture.LoadFromFile('teoriya\08. CHECKBOX\1.jpg');
end;
end;
//наведение курсора на кнопку компонента "RADIOBUTTON"
procedure TForm2.BitBtn10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='RADIOBUTTON. Предлагает пользователю набор альтернатив, из которых выбирается одна. Набор реализуется требуемым количеством радиокнопок, размещенных в одном контейнере (форме, панели и т.п.). Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "RADIOBUTTON"
procedure TForm2.BitBtn10Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ RADIOBUTTON (StdCtrls)';
label5.Caption:='RADIOBUTTON';
show;
Memo1.Visible:=true;
label16.visible:=true;
image1.Visible:=true;
label26.Visible:=true;
image1.Top:=73;
Height:=699;
Width:=1083;
image1.left:=775;
memo1.lines.loadfromfile('teoriya\09. RADIOBUTTON\9.16. RADIOBUTTON.txt');
image1.Picture.LoadFromFile('teoriya\09. RADIOBUTTON\1.jpg');
end;
end;
//наведение курсора на кнопку компонента "LISTBOX"
procedure TForm2.BitBtn11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='LISTBOX. Представляет собой стандартное окно списка Windows, позволяющее пользователю выбирать разделы из списка. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "LISTBOX"
procedure TForm2.BitBtn11Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ LISTBOX (StdCtrls)';
label5.Caption:='LISTBOX';
show;
Memo1.Visible:=true;
label17.visible:=true;
image1.Visible:=true;
label26.Visible:=true;
image1.Left:=702;
image1.Top:=66;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\10. LISTBOX\10.16. LISTBOX.txt');
image1.Picture.LoadFromFile('teoriya\10. LISTBOX\_1.jpg');
end;
end;
//наведение курсора на кнопку компонента "COMBOBOX"
procedure TForm2.BitBtn15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='COMBOBOX. Объединяет функции ListBox и Edit. Пользователь может либо ввести текст, либо выбрать его из списка. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "COMBOBOX"
procedure TForm2.BitBtn15Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ COMBOBOX (StdCtrls)';
label5.Caption:='COMBOBOX';
show;
Memo1.Visible:=true;
label18.visible:=true;
image1.Visible:=true;
label26.Visible:=true;
image1.left:=773;
image1.Top:=93;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\11. combobox\11.16 combobox.txt');
image1.Picture.LoadFromFile('teoriya\11. combobox\1.jpg');
end;
end;
//наведение курсора на кнопку компонента "SCROLLBAR"
procedure TForm2.BitBtn14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='SCROLLBAR. Представляет собой стандартную линейку прокрутки Windows и служит для управления положением видимой части форм и компонентов. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "SCROLLBAR"
procedure TForm2.BitBtn14Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ SCROLLBAR (StdCtrls)';
label5.Caption:='SCROLLBAR';
show;
Memo1.Visible:=true;
label19.visible:=true;
image1.Visible:=true;
label26.Visible:=true;
image1.left:=750;
image1.Top:=78;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\12. scrollbar\12.16. scrollbar.txt');
image1.Picture.LoadFromFile('teoriya\12. scrollbar\1.jpg');
end;
end;
//наведение курсора на кнопку компонента "GROUPBOX"
procedure TForm2.BitBtn12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='GROUPBOX. Является контейнером, объединяющим группу связанных органов управления, таких как радиокнопки Radiobutton, контрольные индикаторы CheckBox и т.д. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "GROUPBOX"
procedure TForm2.BitBtn12Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ GROUPBOX (StdCtrls)';
label5.Caption:='GROUPBOX';
show;
Memo1.Visible:=true;
label20.visible:=true;
label21.visible:=true;
label26.Visible:=true;
image1.Top:=56;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\13. groupbox\13.16. groupbox.txt');
end;
end;
//наведение курсора на кнопку компонента "RADIOGROUP"
procedure TForm2.BitBtn17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='RADIOGROUP. Является комбинацией группового окна GroupBox с набором радиокнопок RadioButton, служит специально для создания групп радиокнопок.';
label3.Visible:=true;
end;
//нажатие пользователем кнопки компонента "RADIOGROUP"
procedure TForm2.BitBtn17Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ RADIOGROUP (StdCtrls)';
label5.Caption:='RADIOGROUP';
show;
Memo1.Visible:=true;
label22.visible:=true;
image1.Visible:=true;
label26.Visible:=true;
image1.Top:=56;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\14. radiogroup\14.16. radiogroup.txt');
end;
end;
//наведение курсора на кнопку компонента "PANEL"
procedure TForm2.BitBtn13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='PANEL. Является контейнером для группирования органов управления и меньших контейнеров. Панель можно использовать также для построения полос состояния, инструментальных панелей, палитр инструментов. Компонент визуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "PANEL"
procedure TForm2.BitBtn13Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ PANEL (StdCtrls)';
label5.Caption:='PANEL';
show;
Memo1.Visible:=true;
label23.visible:=true;
image1.Visible:=true;
image2.Visible:=true;
label26.Visible:=true;
image1.Top:=56;
image1.left:=700;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\15. panel\15.16. panel.txt');
image1.Picture.LoadFromFile('teoriya\15. panel\1.jpg');
image2.Picture.LoadFromFile('teoriya\15. panel\3.jpg');
IMAGE2.Top:=image1.Top+image1.Height+7;
end;
end;
//наведение курсора на кнопку компонента "ACTIONLIST"
procedure TForm2.BitBtn16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Caption:='ACTIONLIST. Обеспечивает диспетчеризацию событий компонентов. Компонент невизуальный.';
label3.Visible:=false;
end;
//нажатие пользователем кнопки компонента "ACTIONLIST"
procedure TForm2.BitBtn16Click(Sender: TObject);
begin
form2.Hide;
form3.BorderIcons:=form2.BorderIcons;
with form3 do
begin
Caption:='КОМПОНЕНТ ACTIONLIST (ActnList)';
label5.Caption:='ACTIONLIST';
show;
Memo1.Visible:=true;
label24.visible:=true;
label25.visible:=true;
image1.Visible:=true;
image2.Visible:=true;
image6.Visible:=true;
label26.Visible:=true;
image1.Top:=56;
image1.left:=720;
image6.left:=775;
memo1.Width:=657;
Height:=699;
Width:=1083;
memo1.lines.loadfromfile('teoriya\16. actionlist\16.16. actionlist.txt');
image1.Picture.LoadFromFile('teoriya\16. actionlist\1.jpg');
image2.Picture.LoadFromFile('teoriya\16. actionlist\2.jpg');
image6.Picture.LoadFromFile('teoriya\16. actionlist\3.jpg');
IMAGE2.Top:=image1.Top+image1.Height+1;
IMAGE6.Top:=image2.Top+image2.Height+1;
end;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
Label5: TLabel;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Image5: TImage;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Image6: TImage;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Image7: TImage;
Label27: TLabel;
procedure Button1Click(Sender: TObject);
procedure Label6MouseEnter(Sender: TObject);
procedure Label6MouseLeave(Sender: TObject);
procedure Label7MouseEnter(Sender: TObject);
procedure Label7MouseLeave(Sender: TObject);
procedure Label8MouseEnter(Sender: TObject);
procedure Label8MouseLeave(Sender: TObject);
procedure Label6Click(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure Label8Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Label9MouseEnter(Sender: TObject);
procedure Label9MouseLeave(Sender: TObject);
procedure Label9Click(Sender: TObject);
procedure Label10MouseEnter(Sender: TObject);
procedure Label10MouseLeave(Sender: TObject);
procedure Label10Click(Sender: TObject);
procedure Label11MouseEnter(Sender: TObject);
procedure Label11MouseLeave(Sender: TObject);
procedure Label11Click(Sender: TObject);
procedure Label12MouseEnter(Sender: TObject);
procedure Label12MouseLeave(Sender: TObject);
procedure Label12Click(Sender: TObject);
procedure Label13Click(Sender: TObject);
procedure Label13MouseEnter(Sender: TObject);
procedure Label13MouseLeave(Sender: TObject);
procedure Label14MouseEnter(Sender: TObject);
procedure Label14MouseLeave(Sender: TObject);
procedure Label14Click(Sender: TObject);
procedure Label15MouseEnter(Sender: TObject);
procedure Label15MouseLeave(Sender: TObject);
procedure Label15Click(Sender: TObject);
procedure Label16MouseEnter(Sender: TObject);
procedure Label16MouseLeave(Sender: TObject);
procedure Label16Click(Sender: TObject);
procedure Label17MouseEnter(Sender: TObject);
procedure Label17MouseLeave(Sender: TObject);
procedure Label17Click(Sender: TObject);
procedure Label18MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label18MouseLeave(Sender: TObject);
procedure Label18Click(Sender: TObject);
procedure Label19MouseEnter(Sender: TObject);
procedure Label19MouseLeave(Sender: TObject);
procedure Label19Click(Sender: TObject);
procedure Label20MouseEnter(Sender: TObject);
procedure Label20MouseLeave(Sender: TObject);
procedure Label20Click(Sender: TObject);
procedure Label21Click(Sender: TObject);
procedure Label21MouseEnter(Sender: TObject);
procedure Label21MouseLeave(Sender: TObject);
procedure Label22Click(Sender: TObject);
procedure Label22MouseEnter(Sender: TObject);
procedure Label22MouseLeave(Sender: TObject);
procedure Label23MouseEnter(Sender: TObject);
procedure Label23MouseLeave(Sender: TObject);
procedure Label23Click(Sender: TObject);
procedure Label25MouseEnter(Sender: TObject);
procedure Label25MouseLeave(Sender: TObject);
procedure Label25Click(Sender: TObject);
procedure Label24MouseEnter(Sender: TObject);
procedure Label24MouseLeave(Sender: TObject);
procedure Label24Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit2, Unit1;
{$R *.dfm}
//нажатие пользователем кнопки "ВЕРНУТЬСЯ"
procedure TForm3.Button1Click(Sender: TObject);
begin
form2.show;
form3.Close;
image1.Picture:=nil;
image2.Picture:=nil;
image3.Picture:=nil;
image4.Picture:=nil;
image5.Picture:=nil;
image6.Picture:=nil;
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
image6.Visible:=false;
label1.visible:=false;
label2.visible:=false;
label3.visible:=false;
label4.visible:=false;
label6.Visible:=false;
label7.Visible:=false;
label8.Visible:=false;
label9.visible:=false;
label10.visible:=false;
label11.visible:=false;
label12.visible:=false;
label13.visible:=false;
label14.visible:=false;
label15.visible:=false;
label16.visible:=false;
label17.visible:=false;
label18.visible:=false;
label19.visible:=false;
label20.visible:=false;
label21.visible:=false;
label22.visible:=false;
label23.visible:=false;
label24.visible:=false;
label25.visible:=false;
label26.Visible:=false;
label27.visible:=false;
memo1.Width:=673;
end;
//подсветка "CВОЙСТВ КОМПОНЕНТА TMENUITEM" при наведении курсора
procedure TForm3.Label6MouseEnter(Sender: TObject);
begin
label6.Font.Color:=clblue;
label6.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "CВОЙСТВ КОМПОНЕНТА TMENUITEM"
procedure TForm3.Label6MouseLeave(Sender: TObject);
begin
label6.Font.Color:=clwindowtext;
label6.Font.Style:=label13.Font.Style;
end;
//подсветка "CВОЙСТВА КОМПОНЕНТА TMAINMENU" при наведении курсора
procedure TForm3.Label7MouseEnter(Sender: TObject);
begin
label7.Font.Color:=clblue;
label7.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "CВОЙСТВА КОМПОНЕНТА TMAINMENU"
procedure TForm3.Label7MouseLeave(Sender: TObject);
begin
label7.Font.Color:=clwindowtext;
label7.Font.Style:=label13.Font.Style;
end;
//подсветка "МЕТОДЫ КОМПОНЕНТА TMAINMENU" при наведении курсора
procedure TForm3.Label8MouseEnter(Sender: TObject);
begin
label8.Font.Color:=clblue;
label8.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "МЕТОДЫ КОМПОНЕНТА TMAINMENU"
procedure TForm3.Label8MouseLeave(Sender: TObject);
begin
label8.Font.Color:=clwindowtext;
label8.Font.Style:=label13.Font.Style;
end;
//нажатие на "CВОЙСТВА КОМПОНЕНТА TMENUITEM"
procedure TForm3.Label6Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\02. mainmenu\3.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
label26.Visible:=false;
end;
//нажатие на "CВОЙСТВА КОМПОНЕНТА TMAINMENU"
procedure TForm3.Label7Click(Sender: TObject);
begin
image4.Picture.LoadFromFile('teoriya\02. mainmenu\4.jpg');
image4.Align:=alClient;
image4.Visible:=true;
memo1.Visible:=false;
end;
//нажатие на "МЕТОДЫ КОМПОНЕНТА TMAINMENU"
procedure TForm3.Label8Click(Sender: TObject);
begin
image5.Picture.LoadFromFile('teoriya\02. mainmenu\5.jpg');
image5.Align:=alClient;
image5.Visible:=true;
memo1.Visible:=false;
end;
//нажатие на таблицу 1
procedure TForm3.Image3Click(Sender: TObject);
begin
memo1.Visible:=true;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
label26.Visible:=true;
end;
//нажатие на таблицу 2
procedure TForm3.Image4Click(Sender: TObject);
begin
memo1.Visible:=true;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
label26.Visible:=true;
end;
//нажатие на таблицу 3
procedure TForm3.Image5Click(Sender: TObject);
begin
memo1.Visible:=true;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
label26.Visible:=true;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TLABEL" при наведении курсора
procedure TForm3.Label9MouseEnter(Sender: TObject);
begin
label9.Font.Color:=clblue;
label9.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TLABEL"
procedure TForm3.Label9MouseLeave(Sender: TObject);
begin
label9.Font.Color:=clwindowtext;
label9.Font.Style:=label13.Font.Style;
end;
//нажатие на "МЕТОДЫ КОМПОНЕНТА TMAINMENU"
procedure TForm3.Label9Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\04. label\3.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TEDIT-1" при наведении курсора
procedure TForm3.Label10MouseEnter(Sender: TObject);
begin
label10.Font.Color:=clblue;
label10.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TEDIT-1"
procedure TForm3.Label10MouseLeave(Sender: TObject);
begin
label10.Font.Color:=clwindowtext;
label10.Font.Style:=label13.Font.Style;
end;
//нажатие на "CВОЙСТВА КОМПОНЕНТА TEDIT-1"
procedure TForm3.Label10Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\05. edit\3a.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TEDIT-2" при наведении курсора
procedure TForm3.Label11MouseEnter(Sender: TObject);
begin
label11.Font.Color:=clblue;
label11.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TEDIT-2"
procedure TForm3.Label11MouseLeave(Sender: TObject);
begin
label11.Font.Color:=clwindowtext;
label11.Font.Style:=label13.Font.Style;
end;
//нажатие на "CВОЙСТВА КОМПОНЕНТА TEDIT-2"
procedure TForm3.Label11Click(Sender: TObject);
begin
image4.Picture.LoadFromFile('teoriya\05. edit\3b.jpg');
image4.Align:=alClient;
image4.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "МЕТОДЫ КОМПОНЕНТА TEDIT" при наведении курсора
procedure TForm3.Label12MouseEnter(Sender: TObject);
begin
label12.Font.Color:=clblue;
label12.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "МЕТОДЫ КОМПОНЕНТА TEDIT"
procedure TForm3.Label12MouseLeave(Sender: TObject);
begin
label12.Font.Color:=clwindowtext;
label12.Font.Style:=label13.Font.Style;
end;
//нажатие на "МЕТОДЫ КОМПОНЕНТА TEDIT"
procedure TForm3.Label12Click(Sender: TObject);
begin
image5.Picture.LoadFromFile('teoriya\05. edit\4.jpg');
image5.Align:=alClient;
image5.Visible:=true;
memo1.Visible:=false;
end;
//нажатие на "МЕТОДЫ И СВОЙСТВА КОМПОНЕНТА TMEMO"
procedure TForm3.Label13Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\06. memo\3.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "МЕТОДЫ И СВОЙСТВА КОМПОНЕНТА TMEMO" при наведении курсора
procedure TForm3.Label13MouseEnter(Sender: TObject);
begin
label13.Font.Color:=clblue;
label13.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "МЕТОДЫ КОМПОНЕНТА TEDIT"
procedure TForm3.Label13MouseLeave(Sender: TObject);
begin
label13.Font.Color:=clwindowtext;
label13.Font.Style:=label12.Font.Style;
end;
//подсветка "Свойства и обработчики событий TBUTTON" при наведении курсора
procedure TForm3.Label14MouseEnter(Sender: TObject);
begin
label14.Font.Color:=clblue;
label14.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "Свойства и обработчики событий TBUTTON"
procedure TForm3.Label14MouseLeave(Sender: TObject);
begin
label14.Font.Color:=clwindowtext;
label14.Font.Style:=label12.Font.Style;
end;
//нажатие на "Свойства и обработчики событий TBUTTON"
procedure TForm3.Label14Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\07. button\2.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TCHECKBOX" при наведении курсора
procedure TForm3.Label15MouseEnter(Sender: TObject);
begin
label15.Font.Color:=clblue;
label15.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TCHECKBOX"
procedure TForm3.Label15MouseLeave(Sender: TObject);
begin
label15.Font.Color:=clwindowtext;
label15.Font.Style:=label12.Font.Style;
end;
//нажатие на "СВОЙСТВА КОМПОНЕНТА TCHECKBOX"
procedure TForm3.Label15Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\08. CHECKBOX\2.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TRADIOBUTTON" при наведении курсора
procedure TForm3.Label16MouseEnter(Sender: TObject);
begin
label16.Font.Color:=clblue;
label16.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TRADIOBUTTON"
procedure TForm3.Label16MouseLeave(Sender: TObject);
begin
label16.Font.Color:=clwindowtext;
label16.Font.Style:=label12.Font.Style;
end;
//нажатие на "СВОЙСТВА КОМПОНЕНТА TRADIOBUTTON"
procedure TForm3.Label16Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\09. radiobutton\3.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TLISTBOX" при наведении курсора
procedure TForm3.Label17MouseEnter(Sender: TObject);
begin
label17.Font.Color:=clblue;
label17.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TLISTBOX"
procedure TForm3.Label17MouseLeave(Sender: TObject);
begin
label17.Font.Color:=clwindowtext;
label17.Font.Style:=label12.Font.Style;
end;
//нажатие на "СВОЙСТВА КОМПОНЕНТА TLISTBOX"
procedure TForm3.Label17Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\10. listbox\2.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
label26.Visible:=false
end;
//подсветка "ТАБЛИЦА КОМПОНЕНТА TCOMBOBOX" при наведении курсора
procedure TForm3.Label18MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label18.Font.Color:=clblue;
label18.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "ТАБЛИЦА КОМПОНЕНТА TCOMBOBOX"
procedure TForm3.Label18MouseLeave(Sender: TObject);
begin
label18.Font.Color:=clwindowtext;
label18.Font.Style:=label12.Font.Style;
end;
//нажатие на "ТАБЛИЦА КОМПОНЕНТА TCOMBOBOX"
procedure TForm3.Label18Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\11. combobox\2.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TSCROLLBAR" при наведении курсора
procedure TForm3.Label19MouseEnter(Sender: TObject);
begin
label19.Font.Color:=clblue;
label19.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TSCROLLBAR"
procedure TForm3.Label19MouseLeave(Sender: TObject);
begin
label19.Font.Color:=clwindowtext;
label19.Font.Style:=label12.Font.Style;
end;
//нажатие на "СВОЙСТВА КОМПОНЕНТА TSCROLLBAR"
procedure TForm3.Label19Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\12. scrollbar\2.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "РАССМОТРИТЕ РИСУНОК 1" при наведении курсора
procedure TForm3.Label20MouseEnter(Sender: TObject);
begin
label20.Font.Color:=clblue;
label20.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "РАССМОТРИТЕ РИСУНОК 1"
procedure TForm3.Label20MouseLeave(Sender: TObject);
begin
label20.Font.Color:=clwindowtext;
label20.Font.Style:=label12.Font.Style;
end;
//нажатие на "РАССМОТРИТЕ РИСУНОК 1"
procedure TForm3.Label20Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\13. groupbox\1.jpg');
image3.Align:=alNone;
image3.Top:=190;
image3.Left:=180;
image3.Visible:=true;
image4.Visible:=false;
memo1.Visible:=false;
end;
//нажатие на "СВОЙСТВА И СОБЫТИЯ TGROUPBOX"
procedure TForm3.Label21Click(Sender: TObject);
begin
image4.Picture.LoadFromFile('teoriya\13. groupbox\2.jpg');
image4.Align:=alClient;
image4.Visible:=true;
memo1.Visible:=false;
label26.Visible:=false;
end;
//подсветка "СВОЙСТВА И СОБЫТИЯ TGROUPBOX" при наведении курсора
procedure TForm3.Label21MouseEnter(Sender: TObject);
begin
label21.Font.Color:=clblue;
label21.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА И СОБЫТИЯ TGROUPBOX"
procedure TForm3.Label21MouseLeave(Sender: TObject);
begin
label21.Font.Color:=clwindowtext;
label21.Font.Style:=label12.Font.Style;
end;
//нажатие на "РАССМОТРИТЕ РИСУНОК И СВОЙСТВА"
procedure TForm3.Label22Click(Sender: TObject);
begin
image4.Picture.LoadFromFile('teoriya\14. radiogroup\2.jpg');
image4.Align:=alClient;
image4.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "РАССМОТРИТЕ РИСУНОК И СВОЙСТВА" при наведении курсора
procedure TForm3.Label22MouseEnter(Sender: TObject);
begin
label22.Font.Color:=clblue;
label22.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "РАССМОТРИТЕ РИСУНОК И СВОЙСТВА"
procedure TForm3.Label22MouseLeave(Sender: TObject);
begin
label22.Font.Color:=clwindowtext;
label22.Font.Style:=label12.Font.Style;
end;
//подсветка "СВОЙСТВА КОМПОНЕНТА TPANEL" при наведении курсора
procedure TForm3.Label23MouseEnter(Sender: TObject);
begin
label23.Font.Color:=clblue;
label23.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА КОМПОНЕНТА TPANEL"
procedure TForm3.Label23MouseLeave(Sender: TObject);
begin
label23.Font.Color:=clwindowtext;
label23.Font.Style:=label12.Font.Style;
end;
//нажатие на "СВОЙСТВА КОМПОНЕНТА TPANEL"
procedure TForm3.Label23Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\15. panel\2.jpg');
image3.Align:=alClient;
image3.Visible:=true;
memo1.Visible:=false;
end;
//подсветка "ПОСМОТРЕТЬ РИСУНОК 4 (РЕЗУЛЬТАТ)" при наведении курсора
procedure TForm3.Label25MouseEnter(Sender: TObject);
begin
label25.Font.Color:=clblue;
label25.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "ПОСМОТРЕТЬ РИСУНОК 4 (РЕЗУЛЬТАТ)"
procedure TForm3.Label25MouseLeave(Sender: TObject);
begin
label25.Font.Color:=clwindowtext;
label25.Font.Style:=label12.Font.Style;
end;
//нажатие на "ПОСМОТРЕТЬ РИСУНОК 4 (РЕЗУЛЬТАТ)"
procedure TForm3.Label25Click(Sender: TObject);
begin
image3.Picture.LoadFromFile('teoriya\16. actionlist\4.jpg');
image3.Align:=alNone;
image3.Visible:=true;
memo1.Visible:=false;
image3.Top:=150;
image3.Left:=160;
end;
//подсветка "СВОЙСТВА И СОБЫТИЯ TACTIONLIST" при наведении курсора
procedure TForm3.Label24MouseEnter(Sender: TObject);
begin
label24.Font.Color:=clblue;
label24.Font.Style:=[fsbold];
end;
//отмена подсветки при уводе курсора с "СВОЙСТВА И СОБЫТИЯ TACTIONLIST"
procedure TForm3.Label24MouseLeave(Sender: TObject);
begin
label24.Font.Color:=clwindowtext;
label24.Font.Style:=label12.Font.Style;
end;
//нажатие на "СВОЙСТВА И СОБЫТИЯ TACTIONLIST"
procedure TForm3.Label24Click(Sender: TObject);
begin
image4.Picture.LoadFromFile('teoriya\16. actionlist\5.jpg');
image4.Align:=alClient;
image4.Visible:=true;
memo1.Visible:=false;
end;
//Закрытие формы 3
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
image7.Visible:=false;
label27.Visible:=false;
end;
//Создание формы 3
procedure TForm3.FormCreate(Sender: TObject);
begin
form3.Close;
image1.Picture:=nil;
image2.Picture:=nil;
image3.Picture:=nil;
image4.Picture:=nil;
image5.Picture:=nil;
image6.Picture:=nil;
image1.Visible:=false;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=false;
image5.Visible:=false;
image6.Visible:=false;
label1.visible:=false;
label2.visible:=false;
label3.visible:=false;
label4.visible:=false;
label6.Visible:=false;
label7.Visible:=false;
label8.Visible:=false;
label9.visible:=false;
label10.visible:=false;
label11.visible:=false;
label12.visible:=false;
label13.visible:=false;
label14.visible:=false;
label15.visible:=false;
label16.visible:=false;
label17.visible:=false;
label18.visible:=false;
label19.visible:=false;
label20.visible:=false;
label21.visible:=false;
label22.visible:=false;
label23.visible:=false;
label24.visible:=false;
label25.visible:=false;
label26.Visible:=false;
label27.visible:=false;
memo1.Width:=673;
end;
end.
__________________________________________
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Buttons, ExtCtrls;
type
mas=array [1..10] of byte;
TForm4 = class(TForm)
MainMenu1: TMainMenu;
N2: TMenuItem;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
Edit1: TEdit;
Label3: TLabel;
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
BitBtn2: TBitBtn;
BitBtn13: TBitBtn;
Memo1: TMemo;
Timer1: TTimer;
Label5: TLabel;
Label6: TLabel;
Label4: TLabel;
Label7: TLabel;
Image1: TImage;
Label8: TLabel;
Image2: TImage;
Image3: TImage;
Label9: TLabel;
procedure N2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4; t:textfile; i,k,n,kolvo,prav:byte; s,s1:string; m1, mpr:mas;
{k-случайное число для открытия случ.варианта и выбора вопроса }
implementation
uses Unit2, Unit1, Unit3, Unit5;
{$R *.dfm}
//нажатие кнопки "ГЛАВНОЕ МЕНЮ" в главном меню
procedure TForm4.N2Click(Sender: TObject);
begin
form4.Hide;
form1.Show;
form1.Position:=poScreenCenter;
end;
//нажатие кнопки "НАЧАТЬ" тестирование
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Label7.Caption:='00';
Label4.Caption:='00';
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
prav:=0;
for i:=1 to 10 do
begin
m1[i]:=0;
mpr[i]:=0; end;
timer1.Enabled:=false;
assignfile (t,'teoriya\test\1.txt');
reset(t);
while not eof(t) do
begin
readln(t,s);
memo1.Lines.Append(s);
end;
closefile(t);
if form4.N2.Enabled=true then
begin
label1.Caption:='Введите, пожалуйста, свое имя (фамилию) и группу.';
label2.Caption:='УДАЧИ!';
edit1.Visible:=true;
n2.Enabled:=false;
end
else
if form4.N2.Enabled=false then
begin
if edit1.Text='' then showMessage('Введите необходимую информацию, пожалуйста!') else
begin
label4.Visible:=true;
label6.Visible:=true;
label7.Visible:=true;
image1.Visible:=true;
TIMER1.Enabled:=TRUE;
BitBtn1.visible:=false;
label1.visible:=false;
label2.visible:=false;
edit1.visible:=false;
form2.Hide;
form3.Hide;
form1.Hide;
panel1.Visible:=true;
label3.Visible:=true;
bitbtn2.Visible:=true;
k:=random(47)+1;
n:=(k-1)*5;
label3.Caption:=memo1.Lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton1.caption:=s;
mpr[1]:=n;
end else
radiobutton1.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton2.caption:=s;
mpr[1]:=n;
end else
radiobutton2.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton3.caption:=s;
mpr[1]:=n;
end else
radiobutton3.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton4.caption:=s;
mpr[1]:=n;
end else
radiobutton4.caption:=memo1.lines[n];
m1[1]:=k;
kolvo:=1;
end;
end;
end;
//нажатие на кнопку главного меню "ПОСМОТРЕТЬ ТЕОРИЮ"
procedure TForm4.N1Click(Sender: TObject);
begin
form2.Show;
form2.N2.Enabled:=false;
end;
//нажатие стрелки в тесте
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
i:=mpr[kolvo];
s1:=memo1.Lines[i];
s:='*'+radiobutton1.Caption;
if (radiobutton1.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton2.Caption;
if (radiobutton2.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton3.Caption;
if (radiobutton3.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton4.Caption;
if (radiobutton4.Checked=true) and (s=s1) then inc(prav);
label5.Caption:=inttostr(prav);
{сверху - определение правильности данного ответа}
inc(kolvo);
n:=0;
while n<>10 do
begin
k:=random(47)+1;
for i:=1 to 10 do
begin
if k<>m1[i] then inc(n);
end;
if n<>10 then n:=0;
end;
{задаем случайным образом номер вопроса, но исключаем повтор}
n:=(k-1)*5;
label3.Caption:=memo1.Lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton1.caption:=s;
mpr[kolvo]:=n;
end else
radiobutton1.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton2.caption:=s;
mpr[kolvo]:=n;
end else
radiobutton2.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton3.caption:=s;
mpr[kolvo]:=n;
end else
radiobutton3.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton4.caption:=s;
mpr[kolvo]:=n;
end else
radiobutton4.caption:=memo1.lines[n];
if kolvo=10 then
begin
bitbtn2.visible:=false;
bitbtn13.visible:=true;
end;
m1[kolvo]:=k;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
end;
//кнопка ЗЕЛЕНЫЙ ЧЕЛОВЕЧЕК
procedure TForm4.BitBtn13Click(Sender: TObject);
begin
label9.Caption:=edit1.Text+',';
i:=mpr[kolvo];
s1:=memo1.Lines[i];
s:='*'+radiobutton1.Caption;
if (radiobutton1.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton2.Caption;
if (radiobutton2.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton3.Caption;
if (radiobutton3.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton4.Caption;
if (radiobutton4.Checked=true) and (s=s1) then inc(prav);
label5.Caption:=inttostr(prav);
{проверка правильности ответа на последний вопрос}
label4.Visible:=false;
label6.Visible:=false;
label7.Visible:=false;
label2.Visible:=true;
label9.Visible:=true;
panel1.Visible:=false;
image1.Visible:=false;
N2.Enabled:=true;
image3.Visible:=true;
bitbtn13.Visible:=false;
label2.Font.Size:=20;
label8.Visible:=true;
label3.Caption:='ПОЗДРАВЛЯЮ! ВЫ ЗАВЕРШИЛИ ТЕСТ. РЕЗУЛЬТАТЫ:';
label8.Caption:='Вы ответили правильно на '+inttostr(prav)+' вопросов за '
+label7.caption+':'+label4.caption+' минут.';
{if (prav=10) or (prav=9) then i:=5 else
if (prav=7) or (prav=8) then i:=4 else
if (prav=6) or (prav=5) then i:=3 else
i:=2; }
case prav of
10,9: BEGIN label2.Caption:='Ваша оценка: ОТЛИЧНО!';
image3.Picture.LoadFromFile('teoriya\5.jpg'); end;
8,7:BEGIN label2.Caption:='Ваша оценка: ХОРОШО!';
image3.Picture.LoadFromFile('teoriya\4.jpg'); end;
6,5: BEGIN label2.Caption:='Ваша оценка: УДОВЛЕТВОРИТЕЛЬНО.';
image3.Picture.LoadFromFile('teoriya\3.jpg'); end;
1,2,3,4,0:BEGIN label2.Caption:='Ваша оценка: НЕУДОВЛЕТВОРИТЕЛЬНО.';
image3.Picture.LoadFromFile('teoriya\2.jpg'); end; end;
timer1.Enabled:=false;
end;
{отсчет времени}
procedure TForm4.Timer1Timer(Sender: TObject);
begin
if label4.Caption<>'59' then
label4.Caption:=inttostr(strtoint(label4.Caption)+1)
else
begin
label4.Caption:='0';
label7.Caption:=inttostr(strtoint(label7.Caption)+1);
if strtoint(label7.Caption)<10 then
label7.Caption:='0'+ label7.Caption;
end;
if strtoint(label4.Caption)<10 then
label4.Caption:='0'+ label4.Caption;
end;
end.
_________________________________________
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Buttons, ExtCtrls;
type
mas=array [1..10] of byte;
TForm5 = class(TForm)
MainMenu1: TMainMenu;
N2: TMenuItem;
N1: TMenuItem;
BitBtn1: TBitBtn;
Label3: TLabel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Panel3: TPanel;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
Panel4: TPanel;
RadioButton13: TRadioButton;
RadioButton14: TRadioButton;
RadioButton15: TRadioButton;
RadioButton16: TRadioButton;
Panel5: TPanel;
RadioButton17: TRadioButton;
RadioButton18: TRadioButton;
RadioButton19: TRadioButton;
RadioButton20: TRadioButton;
Panel7: TPanel;
RadioButton25: TRadioButton;
RadioButton26: TRadioButton;
RadioButton27: TRadioButton;
RadioButton28: TRadioButton;
Panel8: TPanel;
RadioButton29: TRadioButton;
RadioButton30: TRadioButton;
RadioButton31: TRadioButton;
RadioButton32: TRadioButton;
Panel9: TPanel;
RadioButton33: TRadioButton;
RadioButton34: TRadioButton;
RadioButton35: TRadioButton;
RadioButton36: TRadioButton;
Panel10: TPanel;
RadioButton37: TRadioButton;
RadioButton38: TRadioButton;
RadioButton39: TRadioButton;
RadioButton40: TRadioButton;
BitBtn13: TBitBtn;
Memo1: TMemo;
Panel6: TPanel;
RadioButton21: TRadioButton;
RadioButton22: TRadioButton;
RadioButton23: TRadioButton;
RadioButton24: TRadioButton;
Panel2: TPanel;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
Image1: TImage;
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure RadioButton1Enter(Sender: TObject);
procedure RadioButton10Enter(Sender: TObject);
procedure RadioButton2Enter(Sender: TObject);
procedure RadioButton3Enter(Sender: TObject);
procedure RadioButton4Enter(Sender: TObject);
procedure RadioButton5Enter(Sender: TObject);
procedure RadioButton6Enter(Sender: TObject);
procedure RadioButton7Enter(Sender: TObject);
procedure RadioButton8Enter(Sender: TObject);
procedure RadioButton9Enter(Sender: TObject);
procedure RadioButton11Enter(Sender: TObject);
procedure RadioButton12Enter(Sender: TObject);
procedure RadioButton13Enter(Sender: TObject);
procedure RadioButton14Enter(Sender: TObject);
procedure RadioButton15Enter(Sender: TObject);
procedure RadioButton16Enter(Sender: TObject);
procedure RadioButton17Enter(Sender: TObject);
procedure RadioButton18Enter(Sender: TObject);
procedure RadioButton19Enter(Sender: TObject);
procedure RadioButton20Enter(Sender: TObject);
procedure RadioButton21Enter(Sender: TObject);
procedure RadioButton22Enter(Sender: TObject);
procedure RadioButton23Enter(Sender: TObject);
procedure RadioButton24Enter(Sender: TObject);
procedure RadioButton25Enter(Sender: TObject);
procedure RadioButton26Enter(Sender: TObject);
procedure RadioButton27Enter(Sender: TObject);
procedure RadioButton28Enter(Sender: TObject);
procedure RadioButton29Enter(Sender: TObject);
procedure RadioButton30Enter(Sender: TObject);
procedure RadioButton31Enter(Sender: TObject);
procedure RadioButton32Enter(Sender: TObject);
procedure RadioButton33Enter(Sender: TObject);
procedure RadioButton34Enter(Sender: TObject);
procedure RadioButton35Enter(Sender: TObject);
procedure RadioButton36Enter(Sender: TObject);
procedure RadioButton37Enter(Sender: TObject);
procedure RadioButton38Enter(Sender: TObject);
procedure RadioButton39Enter(Sender: TObject);
procedure RadioButton40Enter(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5; t:textfile; i,k,n,kolvo,prav:byte; s,s1:string; m1, mpr:mas;
implementation
uses Unit2, Unit1;
{$R *.dfm}
//нажатие кнопки "ПОСМОТРЕТЬ ТЕОРИЮ" в главном меню
procedure TForm5.N1Click(Sender: TObject);
begin
form2.Show;
form2.N2.Enabled:=false;
form2.Position:=poScreenCenter;
end;
//нажатие кнопки "ГЛАВНОЕ МЕНЮ" в главном меню
procedure TForm5.N2Click(Sender: TObject);
begin
form5.Hide;
form1.Show;
form1.Position:=poScreenCenter;
end;
//нажатие кнопки "НАЧАТЬ" тестирование
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
memo1.Clear;
assignfile (t,'teoriya\test\1.txt');
reset(t);
while not eof(t) do
begin
readln(t,s);
memo1.Lines.Append(s);
end;
closefile(t);
bitbtn3.Glyph:=nil;
bitbtn4.Glyph:=nil;
bitbtn5.Glyph:=nil;
bitbtn6.Glyph:=nil;
bitbtn7.Glyph:=nil;
bitbtn8.Glyph:=nil;
bitbtn9.Glyph:=nil;
bitbtn10.Glyph:=nil;
bitbtn11.Glyph:=nil;
bitbtn12.Glyph:=nil;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
radiobutton5.Checked:=false;
radiobutton6.Checked:=false;
radiobutton7.Checked:=false;
radiobutton8.Checked:=false;
radiobutton9.Checked:=false;
radiobutton10.Checked:=false;
radiobutton11.Checked:=false;
radiobutton12.Checked:=false;
radiobutton13.Checked:=false;
radiobutton14.Checked:=false;
radiobutton15.Checked:=false;
radiobutton16.Checked:=false;
radiobutton17.Checked:=false;
radiobutton18.Checked:=false;
radiobutton19.Checked:=false;
radiobutton20.Checked:=false;
radiobutton21.Checked:=false;
radiobutton22.Checked:=false;
radiobutton23.Checked:=false;
radiobutton24.Checked:=false;
radiobutton25.Checked:=false;
radiobutton26.Checked:=false;
radiobutton27.Checked:=false;
radiobutton28.Checked:=false;
radiobutton29.Checked:=false;
radiobutton30.Checked:=false;
radiobutton31.Checked:=false;
radiobutton32.Checked:=false;
radiobutton33.Checked:=false;
radiobutton34.Checked:=false;
radiobutton35.Checked:=false;
radiobutton36.Checked:=false;
radiobutton37.Checked:=false;
radiobutton38.Checked:=false;
radiobutton39.Checked:=false;
radiobutton40.Checked:=false;
bitbtn1.Visible:=false;
label1.Visible:=false;
label2.Visible:=false;
label3.Visible:=true;
panel1.Visible:=true;
bitbtn3.Visible:=true;
bitbtn4.Visible:=true;
bitbtn5.Visible:=true;
bitbtn6.Visible:=true;
bitbtn7.Visible:=true;
bitbtn8.Visible:=true;
bitbtn9.Visible:=true;
bitbtn10.Visible:=true;
bitbtn11.Visible:=true;
bitbtn12.Visible:=true;
for i:=1 to 10 do
begin
m1[i]:=0;
mpr[i]:=0; end;
for kolvo:=1 to 10 do
begin
n:=0;
while n<>10 do
begin
k:=random(47)+1;
for i:=1 to 10 do
begin
if k<>m1[i] then inc(n);
end;
if n<>10 then n:=0;
end;
m1[kolvo]:=k;
end;
//ЗАПОЛНЯЕМ ПЕРВУЮ ПАНЕЛЬ
k:=m1[1];
n:=(k-1)*5;
label3.Caption:=memo1.Lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton1.caption:=s;
mpr[1]:=n;
end else
radiobutton1.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton2.caption:=s;
mpr[1]:=n;
end else
radiobutton2.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton3.caption:=s;
mpr[1]:=n;
end else
radiobutton3.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton4.caption:=s;
mpr[1]:=n;
end else
radiobutton4.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ВТОРУЮ ПАНЕЛЬ
k:=m1[2];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton5.caption:=s;
mpr[2]:=n;
end else
radiobutton5.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton6.caption:=s;
mpr[2]:=n;
end else
radiobutton6.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton7.caption:=s;
mpr[2]:=n;
end else
radiobutton7.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton8.caption:=s;
mpr[2]:=n;
end else
radiobutton8.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ТРЕТЬЮ ПАНЕЛЬ
k:=m1[3];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton9.caption:=s;
mpr[3]:=n;
end else
radiobutton9.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton10.caption:=s;
mpr[3]:=n;
end else
radiobutton10.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton11.caption:=s;
mpr[3]:=n;
end else
radiobutton11.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton12.caption:=s;
mpr[3]:=n;
end else
radiobutton12.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ЧЕТВЕРТУЮ ПАНЕЛЬ
k:=m1[4];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton13.caption:=s;
mpr[4]:=n;
end else
radiobutton13.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton14.caption:=s;
mpr[4]:=n;
end else
radiobutton14.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton15.caption:=s;
mpr[4]:=n;
end else
radiobutton15.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton16.caption:=s;
mpr[4]:=n;
end else
radiobutton16.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ПЯТУЮ ПАНЕЛЬ
k:=m1[5];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton17.caption:=s;
mpr[5]:=n;
end else
radiobutton17.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton18.caption:=s;
mpr[5]:=n;
end else
radiobutton18.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton19.caption:=s;
mpr[5]:=n;
end else
radiobutton19.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton20.caption:=s;
mpr[5]:=n;
end else
radiobutton20.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ШЕСТУЮ ПАНЕЛЬ
k:=m1[6];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton21.caption:=s;
mpr[6]:=n;
end else
radiobutton21.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton22.caption:=s;
mpr[6]:=n;
end else
radiobutton22.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton23.caption:=s;
mpr[6]:=n;
end else
radiobutton23.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton24.caption:=s;
mpr[6]:=n;
end else
radiobutton24.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ СЕДЬМУЮ ПАНЕЛЬ
k:=m1[7];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton25.caption:=s;
mpr[7]:=n;
end else
radiobutton25.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton26.caption:=s;
mpr[7]:=n;
end else
radiobutton26.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton27.caption:=s;
mpr[7]:=n;
end else
radiobutton27.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton28.caption:=s;
mpr[7]:=n;
end else
radiobutton28.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ВОСЬМУЮ ПАНЕЛЬ
k:=m1[8];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton29.caption:=s;
mpr[8]:=n;
end else
radiobutton29.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton30.caption:=s;
mpr[8]:=n;
end else
radiobutton30.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton31.caption:=s;
mpr[8]:=n;
end else
radiobutton31.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton32.caption:=s;
mpr[8]:=n;
end else
radiobutton32.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ДЕВЯТУЮ ПАНЕЛЬ
k:=m1[9];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton33.caption:=s;
mpr[9]:=n;
end else
radiobutton33.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton34.caption:=s;
mpr[9]:=n;
end else
radiobutton34.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton35.caption:=s;
mpr[9]:=n;
end else
radiobutton35.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton36.caption:=s;
mpr[9]:=n;
end else
radiobutton36.caption:=memo1.lines[n];
//ЗАПОЛНЯЕМ ДЕСЯТУЮ ПАНЕЛЬ
k:=m1[10];
n:=(k-1)*5;
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton37.caption:=s;
mpr[10]:=n;
end else
radiobutton37.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton38.caption:=s;
mpr[10]:=n;
end else
radiobutton38.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton39.caption:=s;
mpr[10]:=n;
end else
radiobutton39.caption:=memo1.lines[n];
inc(n);
s:=memo1.Lines[n];
if pos('*',s)=1 then
begin
delete(s,1,1);
radiobutton40.caption:=s;
mpr[10]:=n;
end else
radiobutton40.caption:=memo1.lines[n];
end;
//нажатие кнопочки 1
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
panel1.Visible:=true;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[1]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 2
procedure TForm5.BitBtn4Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=true;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[2]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 3
procedure TForm5.BitBtn5Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=true;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[3]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 4
procedure TForm5.BitBtn6Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=true;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[4]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 5
procedure TForm5.BitBtn7Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=true;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[5]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 6
procedure TForm5.BitBtn8Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=true;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[6]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 7
procedure TForm5.BitBtn9Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=true;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[7]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 8
procedure TForm5.BitBtn10Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=true;
panel9.Visible:=false;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[8]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 9
procedure TForm5.BitBtn11Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=true;
panel10.Visible:=false;
bitbtn13.Visible:=false;
i:=(m1[9]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//Нажатие кнопочки 10
procedure TForm5.BitBtn12Click(Sender: TObject);
begin
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=true;
bitbtn13.Visible:=true;
i:=(m1[10]-1)*5;
label3.Caption:=memo1.Lines[i];
end;
//процедуры, отмечающие галочками те вопросы, на которые дан ответ
procedure TForm5.RadioButton1Enter(Sender: TObject);
begin
bitbtn3.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton2Enter(Sender: TObject);
begin
bitbtn3.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton3Enter(Sender: TObject);
begin
bitbtn3.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton4Enter(Sender: TObject);
begin
bitbtn3.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton5Enter(Sender: TObject);
begin
bitbtn4.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton6Enter(Sender: TObject);
begin
bitbtn4.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton7Enter(Sender: TObject);
begin
bitbtn4.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton8Enter(Sender: TObject);
begin
bitbtn4.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton9Enter(Sender: TObject);
begin
bitbtn5.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton10Enter(Sender: TObject);
begin
bitbtn5.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton11Enter(Sender: TObject);
begin
bitbtn5.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton12Enter(Sender: TObject);
begin
bitbtn5.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton13Enter(Sender: TObject);
begin
bitbtn6.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton14Enter(Sender: TObject);
begin
bitbtn6.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton15Enter(Sender: TObject);
begin
bitbtn6.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton16Enter(Sender: TObject);
begin
bitbtn6.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton17Enter(Sender: TObject);
begin
bitbtn7.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton18Enter(Sender: TObject);
begin
bitbtn7.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton19Enter(Sender: TObject);
begin
bitbtn7.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton20Enter(Sender: TObject);
begin
bitbtn7.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton21Enter(Sender: TObject);
begin
bitbtn8.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton22Enter(Sender: TObject);
begin
bitbtn8.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton23Enter(Sender: TObject);
begin
bitbtn8.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton24Enter(Sender: TObject);
begin
bitbtn8.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton25Enter(Sender: TObject);
begin
bitbtn9.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton26Enter(Sender: TObject);
begin
bitbtn9.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton27Enter(Sender: TObject);
begin
bitbtn9.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton28Enter(Sender: TObject);
begin
bitbtn9.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton29Enter(Sender: TObject);
begin
bitbtn10.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton30Enter(Sender: TObject);
begin
bitbtn10.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton31Enter(Sender: TObject);
begin
bitbtn10.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton32Enter(Sender: TObject);
begin
bitbtn10.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton33Enter(Sender: TObject);
begin
bitbtn11.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton34Enter(Sender: TObject);
begin
bitbtn11.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton35Enter(Sender: TObject);
begin
bitbtn11.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton36Enter(Sender: TObject);
begin
bitbtn11.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton37Enter(Sender: TObject);
begin
bitbtn12.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton38Enter(Sender: TObject);
begin
bitbtn12.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton39Enter(Sender: TObject);
begin
bitbtn12.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
procedure TForm5.RadioButton40Enter(Sender: TObject);
begin
bitbtn12.Glyph.LoadFromFile('teoriya\ok.bmp');
end;
//кнопка ЗЕЛЕНЫЙ ЧЕЛОВЕЧЕК
procedure TForm5.BitBtn13Click(Sender: TObject);
begin
//ПРОВЕРКА 1-ГО ВОПРОСА
i:=mpr[1];
s1:=memo1.Lines[i];
s:='*'+radiobutton1.Caption;
if (radiobutton1.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton2.Caption;
if (radiobutton2.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton3.Caption;
if (radiobutton3.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton4.Caption;
if (radiobutton4.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 2-ГО ВОПРОСА
i:=mpr[2];
s1:=memo1.Lines[i];
s:='*'+radiobutton5.Caption;
if (radiobutton5.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton6.Caption;
if (radiobutton6.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton7.Caption;
if (radiobutton7.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton8.Caption;
if (radiobutton8.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 3-ГО ВОПРОСА
i:=mpr[3];
s1:=memo1.Lines[i];
s:='*'+radiobutton9.Caption;
if (radiobutton9.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton10.Caption;
if (radiobutton10.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton11.Caption;
if (radiobutton11.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton12.Caption;
if (radiobutton12.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 4-ГО ВОПРОСА
i:=mpr[4];
s1:=memo1.Lines[i];
s:='*'+radiobutton13.Caption;
if (radiobutton13.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton14.Caption;
if (radiobutton14.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton15.Caption;
if (radiobutton15.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton16.Caption;
if (radiobutton16.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 5-ГО ВОПРОСА
i:=mpr[5];
s1:=memo1.Lines[i];
s:='*'+radiobutton17.Caption;
if (radiobutton17.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton18.Caption;
if (radiobutton18.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton19.Caption;
if (radiobutton19.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton20.Caption;
if (radiobutton20.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 6-ГО ВОПРОСА
i:=mpr[6];
s1:=memo1.Lines[i];
s:='*'+radiobutton21.Caption;
if (radiobutton21.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton22.Caption;
if (radiobutton22.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton23.Caption;
if (radiobutton23.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton24.Caption;
if (radiobutton24.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 7-ГО ВОПРОСА
i:=mpr[7];
s1:=memo1.Lines[i];
s:='*'+radiobutton25.Caption;
if (radiobutton25.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton26.Caption;
if (radiobutton26.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton27.Caption;
if (radiobutton27.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton28.Caption;
if (radiobutton28.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 8-ГО ВОПРОСА
i:=mpr[8];
s1:=memo1.Lines[i];
s:='*'+radiobutton29.Caption;
if (radiobutton29.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton30.Caption;
if (radiobutton30.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton31.Caption;
if (radiobutton31.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton32.Caption;
if (radiobutton32.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 9-ГО ВОПРОСА
i:=mpr[9];
s1:=memo1.Lines[i];
s:='*'+radiobutton33.Caption;
if (radiobutton33.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton34.Caption;
if (radiobutton34.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton35.Caption;
if (radiobutton35.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton36.Caption;
if (radiobutton36.Checked=true) and (s=s1) then inc(prav);
//ПРОВЕРКА 10-ГО ВОПРОСА
i:=mpr[10];
s1:=memo1.Lines[i];
s:='*'+radiobutton37.Caption;
if (radiobutton37.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton38.Caption;
if (radiobutton38.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton39.Caption;
if (radiobutton39.Checked=true) and (s=s1) then inc(prav);
s:='*'+radiobutton40.Caption;
if (radiobutton40.Checked=true) and (s=s1) then inc(prav);
image1.Visible:=true;
bitbtn3.Visible:=false;
bitbtn4.Visible:=false;
bitbtn5.Visible:=false;
bitbtn6.Visible:=false;
bitbtn7.Visible:=false;
bitbtn8.Visible:=false;
bitbtn9.Visible:=false;
bitbtn10.Visible:=false;
bitbtn11.Visible:=false;
bitbtn12.Visible:=false;
bitbtn13.Visible:=false;
panel1.Visible:=false;
panel2.Visible:=false;
panel3.Visible:=false;
panel4.Visible:=false;
panel5.Visible:=false;
panel6.Visible:=false;
panel7.Visible:=false;
panel8.Visible:=false;
panel9.Visible:=false;
panel10.Visible:=false;
label3.Visible:=false;
label1.Visible:=true;
label2.Visible:=true;
LABEL1.Caption:='ИТАК, ВЫ ПРОШЛИ ТРЕНАЖЕРНЫЙ ТЕСТ. ВАШИ РЕЗУЛЬТАТЫ ТАКОВЫ:';
LABEL2.Caption:='Вы дали '+inttostr(prav)+' правильных ответов, следовательно, ваша оценка: ';
case prav of
10,9: begin label2.Caption:=label2.Caption+'ОТЛИЧНО!';
image1.Picture.LoadFromFile('teoriya\5.jpg'); end;
8,7: begin label2.Caption:=label2.Caption+'ХОРОШО!';
image1.Picture.LoadFromFile('teoriya\4.jpg'); end;
5,6: begin label2.Caption:=label2.Caption+'УДОВЛЕТВОРИТЕЛЬНО.';
image1.Picture.LoadFromFile('teoriya\3.jpg'); end;
0,1,2,3,4: begin label2.Caption:=label2.Caption+'НЕУДОВЛЕТВОРИТЕЛЬНО.';
image1.Picture.LoadFromFile('teoriya\2.jpg'); end;
end;
end;
end.
Приложение 3