Текст программы с комментариями. Radar.Cpp

#include <vcl.h>

#pragma hdrstop

USERES("Radar.res");

USEFORM("Unit1.cpp", Form1);

USEUNIT("Unit2.cpp");

//---------------------------------------------------------------------------

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

return 0;

}

Unit1.H

#ifndef Unit1H

#define Unit1H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Menus.hpp>

#include "CSPIN.h"

#include <ExtCtrls.hpp>

//---------------------------------------------------------------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

TMenuItem *File1;

TMenuItem *Fileitem11;

TMenuItem *N1;

TMenuItem *Exit1;

TCSpinButton *CSpinButton1;

TLabel *Label1;

TTimer *Timer1;

TLabel *Label2;

TMenuItem *Aircraft11;

TMenuItem *Aircraft21;

TMenuItem *TakeOff1;

TMenuItem *Landing1;

TMenuItem *TakeOff2;

TMenuItem *Landing2;

TButton *Button2;

TButton *Button3;

TLabel *Label3;

TMenuItem *N2;

TMenuItem *ShowTOPoint1;

TMenuItem *N3;

TMenuItem *ShowTOPoint2;

TMenuItem *HidePoints1;

TMenuItem *HidePoints2;

TLabel *Label4;

TLabel *Label5;

TEdit *Edit1;

TEdit *Edit2;

void __fastcall Exit1Click(TObject *Sender);

void __fastcall Button1Click(TObject *Sender);

void __fastcall Timer1Timer(TObject *Sender);

void __fastcall FormPaint(TObject *Sender);

void __fastcall CSpinButton1DownClick(TObject *Sender);

void __fastcall CSpinButton1UpClick(TObject *Sender);

void __fastcall Fileitem11Click(TObject *Sender);

void __fastcall TakeOff1Click(TObject *Sender);

void __fastcall FormDblClick(TObject *Sender);

void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift,

int X, int Y);

void __fastcall TakeOff2Click(TObject *Sender);

void __fastcall Landing1Click(TObject *Sender);

void __fastcall Landing2Click(TObject *Sender);

void __fastcall ShowTOPoint1Click(TObject *Sender);

void __fastcall HidePoints1Click(TObject *Sender);

void __fastcall ShowTOPoint2Click(TObject *Sender);

void __fastcall HidePoints2Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall Button3Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif