-
Тестирование приложения.
Запуск программы «Электронное пособие по информатике»
(рисунок 9).
Рисунок 9 – Запуск программы «Электронное пособие по информатике»
При нажатии на кнопку редактировать (рисунок 10).
Рисунок 10 –Форма ввода пароля
при правильном вводе пароля появляются еще 3 кнопки (рисунок 11).
Рисунок 11 – Режим редактирования
При нажатии на кнопку « новый раздел» появляется форма для ввода имени создаваемой лекции или лабораторной работы (рисунок 12).
Рисунок 12 – Добавление нового раздела
При нажатии на кнопку печать открывается форма с выбранным текстом для печати (рисунок 13).
Рисунок 13 – Предварительный просмотр фрагмента перед печатью
При нажатии кнопки «печать» в нижней части формы, документ отправляется на печать.
При
нажатии кнопки «удалить» раздел,
выбранный в списке удаляется из пособия
(рисунок 14).
Рисунок 14 – Удаление раздела
При
нажатии кнопки «Лекции» или «Лабораторные
работы»,соответствующий список разделов
загружается в список (рисунок 15).
Рисунок
15 – Переключение между лекциями и
лабораторными работами
В режиме редактирования возможно вырезать/копировать/вставить текст в изменяемом разделе с помошью всплывающего меню (рисунок 16).
Рисунок 16 – Работа функции «Вставить»
При нажатии на кнопку «Информация» и «Об авторе» через контекстное меню появляется еще одно окно (рисунок 17).
Рисунок 17 – Окно «About»
При нажатии правой кнопки мыши на главной форме,появляестя всплывающее меню,которое позволяет показать/скрыть панель инструментов и строку состояния(рисунок 18).
Рисунок 18 – Всплывающее меню
При нажатии кнопки «Запустить WORD» на панели инструментов ,открывается окно программы Microsoft Office Word (рисунок 19).
Рисунок 19 – Открывшееся окно Microsoft Office Word
Заключение
В процессе выполнения курсового проекта было разработано электронное учебное пособие по информатике. Из-за ограниченного времени программа не совершенна, но поставленные задачи были реализованы.
Программа выполняет следующие функции:
- содержать лекции и лабораторные работы по дисциплине;
- предоставлять возможность быстрой и удобной навигации по разделам;
- работа в двух режимах: режим чтения и режим редактирования;
-создание и сохранение новых разделов пособия;
- печать отдельных лекций;
- ввод пароля для входа в режим редактирования;
Разработанное пособие имеет удобный пользовательский интерфейс. Все элементы программы представлены как единый проект, управление которым осуществляется через меню пользователя.
Список использованной литературы
-
Архангельский А.Я., Программирование в C++Builder 6 - Москва, «Бином-Пресс», 2003.
-
Архангельский А.Я., С++ Builder 6. Справочное пособие. Книга 1. Язык С++ - Москва, «Бином», 2002
-
Архангельский А.Я., С++ Builder 6. Справочное пособие. Книга 2. Классы и компоненты – Москва, «Бином», 2002
-
Архангельский А.Я., Тагин М. А.,Программирование в C++ Builder 6 и 2006 – Москва, «Бином-Пресс», 2007
-
Бобровский С., Программирования на языке С++ в системе Borland C++ Builder - Москва, «ДЕСС INFORCOM PRESS»1999.
-
Ермолаев В.,Сорока Т., C++ Builder:Книга рецептов - Москва, «Кудиц-обзац», 2006
-
Культин Н.Б., Самоучитель C++ Builder - СПб, «БХВ-Петербург», 2004
-
Липпман С.Б., Лажойе Ж. Язык программирования С++ - Москва, СПб, «Невский диалект», 2001.
-
Холингвэрт Д., Баттерфилд Д., Сворд Б., Оллсоп Д., С++Builder. Руководство разработчика - Москва, «Вильямс» 2001.
-
http://www.compdoc.ru/prog/builder/builder/7.shtml - Учебник по С++ Builder
-
http://beluch.ru/progr/100comp.htm - Учебник «100 компонентов».
-
http://www.codenet.ru/progr/bcb/borland_builder/ -Учебник по С++ Builder
Приложение 1:
Unit1.cpp :
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString LastOpen;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1DblClick(TObject *Sender)
{ if (RadioGroup1->ItemIndex==0)
{
if (Form1->ListBox1->ItemIndex==-1)
;
else
Form1->RichEdit1->Lines->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lec.txt");
LastOpen=ListBox1->Items->Strings[ListBox1->ItemIndex];
}
else
{
if (Form1->ListBox1->ItemIndex==-1)
;
else
Form1->RichEdit1->Lines->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lab.txt");
LastOpen=ListBox1->Items->Strings[ListBox1->ItemIndex];
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->RadioGroup1->ItemIndex=0;
ListBox1->Items->LoadFromFile("NazvLec.txt") ;
Form1->RadioButton1->Checked=true;
Form1->RadioButton2->Checked=false;
Form1->RichEdit1->ReadOnly=true;
Form1->RichEdit1->ReadOnly=true;
Button3->Visible=false;
Button1->Visible=false;
Button2->Visible=false;
ToolButton1->Visible=false;
ToolButton3->Visible=false;
ToolButton4->Visible=false;
N2->Visible=0;
N3->Visible=0;
N4->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLec.txt");
ListBox1->Items->SaveToFile("NazvLec.txt");
} }
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLab.txt");
ListBox1->Items->SaveToFile("NazvLab.txt");
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lec.txt");
}
}
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lab.txt");
}
} }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
Form1->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
Form1->RadioButton1->Checked=true;
Form1->RadioButton2->Checked=false;
Form1->RichEdit1->ReadOnly=true;
Form1->RichEdit1->ReadOnly=true;
Button3->Visible=false;
Button1->Visible=false;
Button2->Visible=false;
ToolButton1->Visible=false;
ToolButton3->Visible=false;
ToolButton4->Visible=false;
N2->Visible=0;
N3->Visible=0;
N4->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
Form1->Visible=0;
Form3->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{ ListBox1->Items->LoadFromFile("NazvLec.txt") ;
}
else
{
ListBox1->Items->LoadFromFile("NazvLab.txt") ;
} }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form1->RadioButton1->Checked=true;
Form1->RadioButton2->Checked=false;
Form1->RichEdit1->ReadOnly=true;
Form1->RichEdit1->ReadOnly=true;
Button3->Visible=false;
Button1->Visible=false;
Button2->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form1->Visible=0;
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form2->Show();
Form1->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLec.txt");
//DeleteFile(ListBox1->Items[ListBox1->ItemIndex]+"Lec.txt");
ListBox1->Items->SaveToFile("NazvLec.txt");
} }
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLab.txt");
//DeleteFile(ListBox1->Items[ListBox1->ItemIndex]+"Lab.txt");
ListBox1->Items->SaveToFile("NazvLab.txt");
} } }
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lec.txt");
}
}
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lab.txt");
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N9Click(TObject *Sender)
{
RichEdit1->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N10Click(TObject *Sender)
{
RichEdit1->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N11Click(TObject *Sender)
{
RichEdit1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
N12->Checked=!N12->Checked;
ToolBar1->Visible=N12->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N16Click(TObject *Sender)
{
AboutBox->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
StatusBar1->Panels->Items[1]->Text=DateTimeToStr(Date());
StatusBar1->Panels->Items[3]->Text=TimeToStr(Time());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N14Click(TObject *Sender)
{
N14->Checked=!N14->Checked;
StatusBar1->Visible=N14->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton5Click(TObject *Sender)
{
ShellExecute(NULL,NULL,"C:\\Program Files\\Microsoft Office\\Office12\\WINWORD.exe",NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------
Приложение 2
Unit2.cpp:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString LastOpen;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1DblClick(TObject *Sender)
{ if (RadioGroup1->ItemIndex==0)
{
if (Form1->ListBox1->ItemIndex==-1)
;
else
Form1->RichEdit1->Lines->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lec.txt");
LastOpen=ListBox1->Items->Strings[ListBox1->ItemIndex];
}
else
{
if (Form1->ListBox1->ItemIndex==-1)
;
else
Form1->RichEdit1->Lines->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lab.txt");
LastOpen=ListBox1->Items->Strings[ListBox1->ItemIndex];
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Form1->RadioGroup1->ItemIndex=0;
ListBox1->Items->LoadFromFile("NazvLec.txt") ;
Form1->RadioButton1->Checked=true;
Form1->RadioButton2->Checked=false;
Form1->RichEdit1->ReadOnly=true;
Form1->RichEdit1->ReadOnly=true;
Button3->Visible=false;
Button1->Visible=false;
Button2->Visible=false;
ToolButton1->Visible=false;
ToolButton3->Visible=false;
ToolButton4->Visible=false;
N2->Visible=0;
N3->Visible=0;
N4->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLec.txt");
//DeleteFile(ListBox1->Items[ListBox1->ItemIndex]+"Lec.txt");
ListBox1->Items->SaveToFile("NazvLec.txt");
} }
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLab.txt");
//DeleteFile(ListBox1->Items[ListBox1->ItemIndex]+"Lab.txt");
ListBox1->Items->SaveToFile("NazvLab.txt");
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lec.txt");
}
}
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lab.txt");
}
} }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
Form1->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
Form1->RadioButton1->Checked=true;
Form1->RadioButton2->Checked=false;
Form1->RichEdit1->ReadOnly=true;
Form1->RichEdit1->ReadOnly=true;
Button3->Visible=false;
Button1->Visible=false;
Button2->Visible=false;
ToolButton1->Visible=false;
ToolButton3->Visible=false;
ToolButton4->Visible=false;
N2->Visible=0;
N3->Visible=0;
N4->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
Form1->Visible=0;
Form3->Show();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{ ListBox1->Items->LoadFromFile("NazvLec.txt") ;
}
else
{
ListBox1->Items->LoadFromFile("NazvLab.txt") ;
} }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form1->RadioButton1->Checked=true;
Form1->RadioButton2->Checked=false;
Form1->RichEdit1->ReadOnly=true;
Form1->RichEdit1->ReadOnly=true;
Button3->Visible=false;
Button1->Visible=false;
Button2->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form1->Visible=0;
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form2->Show();
Form1->Visible=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLec.txt");
//DeleteFile(ListBox1->Items[ListBox1->ItemIndex]+"Lec.txt");
ListBox1->Items->SaveToFile("NazvLec.txt");
} }
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбраны элементы для удаления!");
else
{
ListBox1->Items->Delete(Form1->ListBox1->ItemIndex);
DeleteFile("NazvLab.txt");
//DeleteFile(ListBox1->Items[ListBox1->ItemIndex]+"Lab.txt");
ListBox1->Items->SaveToFile("NazvLab.txt");
} } }
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
if (RadioGroup1->ItemIndex==0)
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lec.txt");
}
}
else
{
if (ListBox1->ItemIndex==-1)
ShowMessage("не выбран раздел для сохранения!");
else
{
RichEdit1->Lines->SaveToFile(ListBox1->Items->Strings[ListBox1->ItemIndex]+"Lab.txt");
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N9Click(TObject *Sender)
{
RichEdit1->CutToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N10Click(TObject *Sender)
{
RichEdit1->CopyToClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N11Click(TObject *Sender)
{
RichEdit1->PasteFromClipboard();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N12Click(TObject *Sender)
{
N12->Checked=!N12->Checked;
ToolBar1->Visible=N12->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N16Click(TObject *Sender)
{
AboutBox->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
StatusBar1->Panels->Items[1]->Text=DateTimeToStr(Date());
StatusBar1->Panels->Items[3]->Text=TimeToStr(Time());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N14Click(TObject *Sender)
{
N14->Checked=!N14->Checked;
StatusBar1->Visible=N14->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolButton5Click(TObject *Sender)
{
ShellExecute(NULL,NULL,"C:\\Program Files\\Microsoft Office\\Office12\\WINWORD.exe",NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------
Приложение 3
Unit3.cpp:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
if (Form3->Edit1->Text=="123456")
{
Form1->RadioButton1->Checked=false;
Form1->RadioButton2->Checked=true;
Form1->RichEdit1->ReadOnly=false;
Form1->RichEdit1->ReadOnly=false;
Form1->Button3->Visible=true;
Form1->Button1->Visible=true;
Form1->Button2->Visible=true;
Form1->ToolButton1->Visible=1;
Form1->ToolButton3->Visible=1;
Form1-> ToolButton4->Visible=1;
Form1-> N2->Visible=1;
Form1-> N3->Visible=1;
Form1-> N4->Visible=1;
Form1->Show();
Form3->Edit1->Clear();
Form3->Close();
}
else
{
ShowMessage("неверный пароль!");
Form1->RadioButton1->Checked=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
//Form1->RadioButton1->Checked=true;
Form1->Visible=1;
Form3->Edit1->Clear();
}
//---------------------------------------------------------------------------
Приложение 4
Unit4.cpp :
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
Form4->RichEdit1->Print(1);
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormActivate(TObject *Sender)
{
Form4->RichEdit1->Lines=Form1->RichEdit1->Lines ;
}
//---------------------------------------------------------------------------
Приложение 5
Unit5.cpp :
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Unit1.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent* AOwner)
: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::OKButtonClick(TObject *Sender)
{
AboutBox->Close();
}
//---------------------------------------------------------------------------
Приложение 6
Unit1.h :
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <Menus.hpp>
#include <ToolWin.hpp>
#include <ImgList.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TListBox *ListBox1;
TRadioButton *RadioButton1;
TRadioButton *RadioButton2;
TButton *Button1;
TButton *Button2;
TButton *Button3;
TRadioGroup *RadioGroup1;
TButton *Button4;
TRichEdit *RichEdit1;
TToolBar *ToolBar1;
TMainMenu *MainMenu1;
TMenuItem *N1;
TMenuItem *N2;
TMenuItem *N3;
TMenuItem *N4;
TMenuItem *N5;
TMenuItem *N6;
TMenuItem *N7;
TMenuItem *N8;
TLabel *Label1;
TPopupMenu *PopupMenu1;
TMenuItem *N9;
TMenuItem *N10;
TMenuItem *N11;
TToolButton *ToolButton1;
TImageList *ImageList1;
TToolButton *ToolButton2;
TToolButton *ToolButton3;
TToolButton *ToolButton4;
TPopupMenu *PopupMenu2;
TMenuItem *N12;
TMenuItem *N13;
TStatusBar *StatusBar1;
TTimer *Timer1;
TMenuItem *N14;
TToolButton *ToolButton5;
void __fastcall ListBox1DblClick(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall RadioButton1Click(TObject *Sender);
void __fastcall RadioButton2Click(TObject *Sender);
void __fastcall RadioGroup1Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall N7Click(TObject *Sender);
void __fastcall N8Click(TObject *Sender);
void __fastcall N2Click(TObject *Sender);
void __fastcall N3Click(TObject *Sender);
void __fastcall N4Click(TObject *Sender);
void __fastcall N5Click(TObject *Sender);
void __fastcall N9Click(TObject *Sender);
void __fastcall N10Click(TObject *Sender);
void __fastcall N11Click(TObject *Sender);
void __fastcall N12Click(TObject *Sender);
void __fastcall N16Click(TObject *Sender);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall N14Click(TObject *Sender);
void __fastcall ToolButton5Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Приложение 7
Unit2.h :
//---------------------------------------------------------------------------
#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published: // IDE-managed Components
TEdit *Edit1;
TLabel *Label1;
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private: // User declarations
public: // User declarations
__fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif
Приложение 8
Unit3.h :
//---------------------------------------------------------------------------
#ifndef Unit3H
#define Unit3H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm3 : public TForm
{
__published: // IDE-managed Components
TEdit *Edit1;
TButton *Button1;
TLabel *Label1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private: // User declarations
public: // User declarations
__fastcall TForm3(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm3 *Form3;
//---------------------------------------------------------------------------
#endif
Приложение 9
Unit4.h :
//---------------------------------------------------------------------------
#ifndef Unit4H
#define Unit4H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm4 : public TForm
{
__published: // IDE-managed Components
TRichEdit *RichEdit1;
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall FormActivate(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm4(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm4 *Form4;
//---------------------------------------------------------------------------
#endif
Приложение 10
Unit5.h :
//----------------------------------------------------------------------------
#ifndef Unit5H
#define Unit5H
//----------------------------------------------------------------------------
#include <vcl\System.hpp>
#include <vcl\Windows.hpp>
#include <vcl\SysUtils.hpp>
#include <vcl\Classes.hpp>
#include <vcl\Graphics.hpp>
#include <vcl\Forms.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Buttons.hpp>
#include <vcl\ExtCtrls.hpp>
//----------------------------------------------------------------------------
class TAboutBox : public TForm
{
__published:
TPanel *Panel1;
TImage *ProgramIcon;
TLabel *ProductName;
TLabel *Version;
TLabel *Copyright;
TButton *OKButton;
TLabel *Label1;
void __fastcall OKButtonClick(TObject *Sender);
private:
public:
virtual __fastcall TAboutBox(TComponent* AOwner);
};
//----------------------------------------------------------------------------
extern PACKAGE TAboutBox *AboutBox;
//----------------------------------------------------------------------------
#endif