unit23.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Unit23.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgNDPrnSet *DlgNDPrnSet;
//---------------------------------------------------------------------------
__fastcall TDlgNDPrnSet::TDlgNDPrnSet(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TDlgNDPrnSet::FormShow(TObject *Sender)
{
    bOK = false;        
}
//---------------------------------------------------------------------------

void __fastcall TDlgNDPrnSet::Button1Click(TObject *Sender)
{
    if(!cbStd->Checked && !cbData->Checked) return;
    bOK = true;
    Close();        
}
//---------------------------------------------------------------------------

void __fastcall TDlgNDPrnSet::Button2Click(TObject *Sender)
{
    bOK = false;
    Close();
}
//---------------------------------------------------------------------------