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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"

#include "ReportForm.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Exit1Click(TObject *Sender)
{
 if(MessageBox(NULL,"Do you really want to exit?","",MB_YESNO|MB_ICONASTERISK)==IDYES)
 {
  Form1->Close();
  MainForm->Close();
 }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ShowToolbar1Click(TObject *Sender)
{
 ActionToolBar1->Visible=!MainForm->ActionToolBar1->Visible;        
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::About1Click(TObject *Sender)
{
 //MainForm->Visible=false;
 Form1->Visible=true;        
}
//---------------------------------------------------------------------------
/*void __fastcall TMainForm::Insert1Click(TObject *Sender)
{
 Form3=new TForm3(this);
 Form3->ShowModal();//Shows a form as a modal dialog.
 Form3->Free();//Destroys an object and frees its associated memory.

}*/
//---------------------------------------------------------------------------
void __fastcall TMainForm::AboutActionExecute(TObject *Sender)
{
 MainForm->Visible=false;
 Form1->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
 StatusBar1->Panels->Items[0]->Text="<no name>";
 modif=false;
 painted=false;
 /*Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);*/
 }
//---------------------------------------------------------------------------
void __fastcall TMainForm::Open1Click(TObject *Sender)
{

  StatusBar1->Panels->Items[0]->Text=MainForm->FileOpen->Dialog->FileName;

  MainForm->Vectors.Read(StatusBar1->Panels->Items[0]->Text.c_str());
  MainForm->StatusBar1->Panels->Items[1]->Text="";
  modif=false;
  painted=false;
  //MainForm->StatusBar1->Panels->Items[0]->Text=StatusBar1->Panels->Items[0]->Text;
  /*
  Vectors.Zanos(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);
  ResultForm4->lres->Caption=FloatToStr(Vectors.Scalar());
  */
  

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



void __fastcall TMainForm::SaveAs1Click(TObject *Sender)
{
if(modif==true)
{
 Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);
 modif=false;
}
StatusBar1->Panels->Items[0]->Text=MainForm->FileSaveAs->Dialog->FileName;
MainForm->Vectors.Write(StatusBar1->Panels->Items[0]->Text.c_str());
//MainForm->StatusBar1->Panels->Items[1]->Text="";
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::Save1Click(TObject *Sender)
{
if (StatusBar1->Panels->Items[0]->Text=="<no name>")
  {MainForm->FileSaveAs->Execute();}
else
  {if(modif==true)
      {
        Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);
        MainForm->Vectors.Write(StatusBar1->Panels->Items[0]->Text.c_str());
        MainForm->StatusBar1->Panels->Items[1]->Text="";
       }
    }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::NewActionExecute(TObject *Sender)
{
  if(modif=true)
  {
  if(MessageBox(NULL,"Do you really want to create new?","",MB_YESNO|MB_ICONASTERISK)==IDYES)
 {
  Vectors.ax=0;Vectors.ay=0;Vectors.az=0;
  Vectors.bx=0;Vectors.by=0;Vectors.bz=0;
  modif=false;
  painted=false;
  ResultForm4->lres->Caption="0";
  MainForm->StatusBar1->Panels->Items[0]->Text="<no name>";
 }
 }
 else
 { if (StatusBar1->Panels->Items[0]->Text=="<no name>")
     MainForm->FileSaveAs->Execute();
  else
  {
  Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);
        MainForm->Vectors.Write(StatusBar1->Panels->Items[0]->Text.c_str());
        }
}
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Report1Click(TObject *Sender)
{
if(modif==true)
  Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);

if(Vectors.Zero())
        ShowMessage(" Данные не введены! ");
else
{
 Report=new TReport(this);
 Report->rvax->Caption=FloatToStr(Vectors.ax);
 Report->rvay->Caption=FloatToStr(Vectors.ay);
 Report->rvaz->Caption=FloatToStr(Vectors.az);
 Report->rvbx->Caption=FloatToStr(Vectors.bx);
 Report->rvby->Caption=FloatToStr(Vectors.by);
 Report->rvbz->Caption=FloatToStr(Vectors.bz);
 if(painted==false) Vectors.Draw(PictureForm->Image1);
 Report->rimage->Picture->Bitmap=PictureForm->Image1->Picture->Bitmap;
 Report->rresult->Caption=FloatToStr(Vectors.Scalar());
 Report->rtime->Caption=Now();
 Report->ShowModal();
 Report->Free();
 }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Input1Click(TObject *Sender)
{

//InputForm3=new TInputForm3(this);
//InputForm3->ShowModal();
painted=false;
if(modif==false)
{
  Vectors.Zanos(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);
modif=true;
}
InputForm3->Visible=true;
//if (InputForm3->ShowModal()!=mrCancel)
  /*if (InputForm3->Caption=="Input")
  {
  Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);
  }    */
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Result1Click(TObject *Sender)
{
if(modif==true)
  Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);

if(Vectors.Zero())
        ShowMessage(" Данные не введены! ");
else
{
ResultForm4->lres->Caption=FloatToStr(Vectors.Scalar());
ResultForm4->Visible=true;
}//ResultForm4->lres->Caption=FloatToStr(Vectors.Scalar());
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::New1Click(TObject *Sender)
{
  //result->lres->MainFormNewActionExecute(Sender);
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::SavePicture1Click(TObject *Sender)
{
if(modif==true)
   Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);

if(Vectors.Zero())
        ShowMessage(" Данные не введены! ");
else
{
if (painted==false)
 Vectors.Draw(PictureForm->Image1);
if (SavePictureDialog1->Execute())
  {
    {
      AnsiString as;
      as = ChangeFileExt(SavePictureDialog1->FileName,".BMP");
      PictureForm->Image1->Picture->SaveToFile(as);
      ShowMessage(SavePictureDialog1->FileName + " Saved to " + as);
    }
  }
 }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::Picture1Click(TObject *Sender)
{
if(modif==true)
  Vectors.Schit(InputForm3->ivax,InputForm3->ivay,InputForm3->ivaz,
                InputForm3->ivbx,InputForm3->ivby,InputForm3->ivbz);

if(Vectors.Zero())
        ShowMessage(" Данные не введены! ");
else
{
PictureForm->Visible=true;
Vectors.Draw(PictureForm->Image1);
painted=true;
}
}
//---------------------------------------------------------------------------
/*void __fastcall TMainForm::ApplicationEvents1Hint(TObject *Sender)
{
  MainForm->StatusBar1->Panels->Items[2]->Text=Application->Hint;
}  */

void __fastcall TMainForm::ApplicationEvents1ActionExecute(
      TBasicAction *Action, bool &Handled)
{
 MainForm->StatusBar1->Panels->Items[2]->Text=Application->Hint;
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::Contents1Click(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.
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::FileExitHint(AnsiString &HintStr, bool &CanShow)
{
if(MessageBox(NULL,"Do you really want to exit?","",MB_YESNO|MB_ICONASTERISK)==IDYES)
 {
  Form1->Close();
  MainForm->Close();
 }
}
//---------------------------------------------------------------------------