
Файл Unit1.H:
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
#include <Classes.hpp>
#include <Controls.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <StdCtrls.hpp>
//---------------------------------------------------------------------------
#include <C:\Users\Freddy\Desktop\OOP_2014\LAB6_3\LAB6_3\Graph.h>
#include <C:\Users\Freddy\Desktop\OOP_2014\LAB6_3\LAB6_3\GraphDot.h>
#include <C:\Users\Freddy\Desktop\OOP_2014\LAB6_3\LAB6_3\GraphLine.h>
#include <C:\Users\Freddy\Desktop\OOP_2014\LAB6_3\LAB6_3\GraphPoly.h>
#include <Classes.hpp>
#include <Controls.hpp>
#include <ExtCtrls.hpp>
#include <StdCtrls.hpp>
#include <Menus.hpp>
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
class TDotForm : public TForm
{
__published: // IDE-managed Components
TPanel *DotPanel;
TImage *DotImage;
TListBox *DotList;
TButton *DotAdd;
TButton *DotRemove;
TEdit *DotX;
TEdit *DotY;
TLabel *DotXLabel;
TLabel *DotYLabel;
TPanel *LinePanel;
TImage *LineImage;
TLabel *Label1;
TLabel *Label2;
TListBox *LineList;
TButton *LineAdd;
TButton *LineRemove;
TEdit *LineX1;
TEdit *LineY1;
TEdit *LineX2;
TEdit *LineY2;
TLabel *Label3;
TLabel *Label4;
TPanel *PolyPanel;
TImage *PolyImage;
TLabel *Label5;
TLabel *Label6;
TListBox *PolyList;
TButton *PolyAdd;
TButton *PolyRemove;
TEdit *PolyX;
TEdit *PolyY;
TMainMenu *MainMenu;
TMenuItem *File1;
TMenuItem *New1;
TMenuItem *Dot1;
TMenuItem *Line1;
TMenuItem *Poly1;
TMenuItem *Save1;
TMenuItem *Load1;
TMenuItem *Exit1;
TOpenDialog *OpenDialog;
TSaveDialog *SaveDialog;
void __fastcall DotAddClick(TObject *Sender);
void __fastcall DotRemoveClick(TObject *Sender);
void __fastcall LineAddClick(TObject *Sender);
void __fastcall LineRemoveClick(TObject *Sender);
void __fastcall PolyAddClick(TObject *Sender);
void __fastcall PolyRemoveClick(TObject *Sender);
void __fastcall Dot1Click(TObject *Sender);
void __fastcall Line1Click(TObject *Sender);
void __fastcall Poly1Click(TObject *Sender);
void __fastcall Exit1Click(TObject *Sender);
void __fastcall Save1Click(TObject *Sender);
void __fastcall Load1Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TDotForm(TComponent* Owner);
Graph *graph;
AnsiString path;
};
//---------------------------------------------------------------------------
extern PACKAGE TDotForm *DotForm;
//---------------------------------------------------------------------------
#endif
Тестирование задания 3 :
Вывод: Освоил основные классы библиотеки Visual Component Library (VCL),позволяющие строить приложения с графическим интерфейсом пользователя (GUI).