unit6.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit6.h"
#include "IsNumber.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSetZuoBiao *SetZuoBiao;
//---------------------------------------------------------------------------
__fastcall TSetZuoBiao::TSetZuoBiao(TComponent* Owner)
        : TForm(Owner)
{
 wnhs=200;
 wnhe=800;
 wnzs=0;
 wnze=4095;
}
//---------------------------------------------------------------------------
void __fastcall TSetZuoBiao::OKClick(TObject *Sender)
{float xl,xh;
 float yl,yh;
 if(EditHL->Text.IsEmpty()) return;
 if(EditHH->Text.IsEmpty()) return;
 if(EditZL->Text.IsEmpty()) return;
 if(EditZH->Text.IsEmpty()) return;

 xl=StrToFloat(EditHL->Text);
 xh=StrToFloat(EditHH->Text);
 yl=StrToFloat(EditZL->Text);
 yh=StrToFloat(EditZH->Text);
 if(Form1->csd[4]==3)
 {
   if(xl<0 || xl>Form1->wne || xh>Form1->wne || xl>=xh)
   { Application->MessageBox("输入时间错误!", "输入错误",MB_OK|MB_ICONWARNING);
     return;
   }
 }
 else
 {
   if(xl<Form1->wns0||xl>Form1->wne0||xh<Form1->wns0||xh>Form1->wne0||xl>=xh)
   { Application->MessageBox("输入波长值错误!", "输入错误",MB_OK|MB_ICONWARNING);
     return;
   }
 }
 if(Form1->csd[1]==1&&(yl<-400||yl>400||yh<-400||yh>400||yl>=yh))
 { Application->MessageBox("输入纵坐标值错误!", "输入错误",MB_OK|MB_ICONWARNING);
   return;
 }
 if(Form1->csd[1]==2&&(yl<-4||yl>4||yh<-4||yh>4||yl>=yh))
 { Application->MessageBox("输入纵坐标值错误!", "输入错误",MB_OK|MB_ICONWARNING);
   return;
 }
 if(Form1->csd[1]==3&&(yl<0||yl>4095||yh<0||yh>4095||yl>=yh))
 { Application->MessageBox("输入纵坐标值错误!", "输入错误",MB_OK|MB_ICONWARNING);
   return;
 }

 ifOK=true;
 wnhs=StrToFloat(EditHL->Text);
 wnhe=StrToFloat(EditHH->Text);
 wnzs=StrToFloat(EditZL->Text);
 wnze=StrToFloat(EditZH->Text);
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TSetZuoBiao::CancelClick(TObject *Sender)
{
 ifOK=false;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TSetZuoBiao::FormShow(TObject *Sender)
{
 ifOK=false;
 EditHL->Text=FloatToStr(wnhs);
 EditHH->Text=FloatToStr(wnhe);
 EditZL->Text=FloatToStr(wnzs);
 EditZH->Text=FloatToStr(wnze);
}
//---------------------------------------------------------------------------

void __fastcall TSetZuoBiao::EditChange(TObject *Sender)
{
 TEdit *tEdit=(TEdit *)Sender;
 tEdit->Text=IsNumber(tEdit->Text);
}
//---------------------------------------------------------------------------