workcurvetype.cpp

光学仪器的控制系统 用于教学和科研的仪器

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

#pragma hdrstop
#include <vcl.h>

#include "workcurvetype.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfmworkcurve_drawtype *fmworkcurve_drawtype;
//---------------------------------------------------------------------------
__fastcall Tfmworkcurve_drawtype::Tfmworkcurve_drawtype(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tfmworkcurve_drawtype::FormShow(TObject *Sender)
{
this->ActiveControl=Button1;
btOK=false;
worktype=0;
}
//---------------------------------------------------------------------------
void __fastcall Tfmworkcurve_drawtype::Button1Click(TObject *Sender)
{
btOK=true;
Close();
worktype=RadioGroup1->ItemIndex;
}
//---------------------------------------------------------------------------