Добавил:
Kolobok
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:C++ ЕНФ (3семестр) / LABA_2 / 2.1.1 / Unit2
.cpp//---------------------------------------------------------------------------
#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();
}
}
//---------------------------------------------------------------------------
Соседние файлы в папке 2.1.1