C++ ЕНФ (3семестр) / LABA_2 / 2.1.1 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  delay++;
  TimeOut->Caption = TimeToStr(Now());
  if (delay%2)
  {
     Photos->GetBitmap(delay/2,Photo->Picture->Bitmap);
     Photo->Refresh();
  }
  if (delay==10) delay=0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 delay=0;
  TimeOut->Caption = TimeToStr(Now());        
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button3Click(TObject *Sender)
{
 Form1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Form1->Visible=false;
 MainForm->Visible=true;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 ContentsForm=new TContentsForm(this);
 ContentsForm->ShowModal();//Shows a form as a modal dialog.
 ContentsForm->Free();//Destroys an object and frees its associated memory.

}
//---------------------------------------------------------------------------