draw.cpp

数据采集

    Edit1->Visible=false;
  }else{
    Edit1->Visible=true;
    sprintf(str,"%5.3f",bd.k_j_z);
    Edit1->Text=str;
  }

  // b_qh
  if(bd.hq_mode==HQ_STMBDG||bd.hq_mode==HQ_BDG3){
    b_qh ->Visible=true;
  }else{
    b_qh ->Visible=false;
  }
  if(bd.hq_mode==HQ_STMBDG||bd.hq_mode==HQ_BDG3||bd.hq_mode==HQ_NEWBDG){
    b_tm1->Visible=true;
    b_tm2->Visible=true;
  }else{
    b_tm1->Visible=false;
    b_tm2->Visible=false;
  }

  // bt_b
  if(bd.hq_mode==HQ_DG || bd.hq_mode==HQ_STMDG) bt_b->Visible=false;
  else bt_b->Visible=true;

  if(bd.hq_mode==HQ_NEWCPZ){
    Edit3->Visible=true;
    Edit4->Visible=true;
    Edit5->Visible=true;
    Edit6->Visible=true;
    Edit7->Visible=true;
    Edit8->Visible=true;
    Edit9->Visible=true;
    Edit10->Visible=true;
    Edit11->Visible=true;
    Edit12->Visible=true;
    Edit13->Visible=true;
    Edit14->Visible=true;
    Edit15->Visible=true;
    Edit16->Visible=true;
    Edit17->Visible=true;
    Edit18->Visible=true;
    Edit19->Visible=true;
    Maxmin->Visible=true;
    b_j->Visible=true;
  }

  form_draw->Caption=test_one_filename;
  offset=0;
}
//---------------------------------------------------------------------------



void __fastcall Tform_draw::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  //捕捉UP_KEY,DOWN_KEY,LEFT_KEY,RIGHT_KEY有问提
  switch(Key){
    case Esc_KEY:  ExitClick(NULL);break;
    /*
    case RIGHT_KEY:if(Shift.Contains(ssAlt)) Right_miniClick(NULL);
                   else RightClick(NULL);
                   break;
    case LEFT_KEY: if(Shift.Contains(ssAlt)) Left_miniClick(NULL);
                   else  leftClick(NULL);
                   break;
    case UP_KEY:   LargeClick(NULL);break;
    case DOWN_KEY: SmallClick(NULL);break;
    case Esc_KEY:  ExitClick(NULL);break;
    */
  }

}


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

void __fastcall Tform_draw::FormCreate(TObject *Sender)
{
  if(bd.hq_mode==HQ_DG)          dd=60;
  else if(bd.hq_mode==HQ_BDG)    dd=140;
  else if(bd.hq_mode==HQ_CPZ)    dd=160;
  else if(bd.hq_mode==HQ_STMDG)  dd=110;
  else if(bd.hq_mode==HQ_STMBDG||bd.hq_mode==HQ_BDG3) dd=230;
  else if(bd.hq_mode==HQ_NEWCPZ) dd=160;
}
//---------------------------------------------------------------------------


void __fastcall Tform_draw::show_kgClick(TObject *Sender)
{
  if(flag_txt) flag_txt=0;
  else flag_txt=1;
  repaint();
}
//---------------------------------------------------------------------------


void __fastcall Tform_draw::small_hClick(TObject *Sender)
{
  if(dd<10) dd=10;
  else dd=dd+dd/4;
  repaint();
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::large_hClick(TObject *Sender)
{
  if(dd/10>0){
    dd=dd-dd/4;
    repaint();
  }
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::repaint()
{
  if(offset>=800*step) offset-=800*step;
  else offset=0;
  Repaint();
  draw();
}
void __fastcall Tform_draw::FormHide(TObject *Sender)
{
  bd.k_j_z=kjz_bak; // restore k_j_z
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==Enter_KEY){
    bd.k_j_z=StrToFloat(Edit1->Text);
    donThread->collect_zero();
    repaint();
  }
}
  /*
    if(bd.hq_mode!=HQ_NEWCPZ){
      bd.k_j_z=StrToFloat(Edit1->Text);
      zero_j1=data_j1(0);
      zero_j2=data_j2(0);
      zero_z1=data_z1(0);
      zero_z2=data_z2(0);
      zero1  =data_jz(1,0);  // 对双台面有效
      zero2  =data_jz(2,0);  // 对双台面有效
      zero   =data_jz(0,0);
      repaint();
    }else{
      bd.k_j_z=StrToFloat(Edit1->Text);
      int x=0;
      zero_j1=data_j1(x);
      zero_j2=data_j2(x);
      zero_j3=data_j3(x);
      zero_j4=data_j4(x);
      zero_j5=data_j5(x);
      zero_j6=data_j6(x);
      zero_j7=data_j7(x);
      zero_j8=data_j8(x);
      zero_z1=data_z1(x);
      zero_z2=data_z2(x);
      zero_z3=data_z3(x);
      zero_z4=data_z4(x);
      zero1  =data_jz(1,x);
      zero2  =data_jz(2,x);
      zero3  =data_jz(3,x);
      zero4  =data_jz(4,x);
      zero   =data_jz(0,x);
      repaint();
    }
  }
}*/
//---------------------------------------------------------------------------

void __fastcall Tform_draw::ofstClick(TObject *Sender)
{
  if(flag_ofst) flag_ofst=0;
  else flag_ofst=1;
  repaint();
}
//---------------------------------------------------------------------------



void __fastcall Tform_draw::GridClick(TObject *Sender)
{
  int j;
  for(j=0;j<600;j+=10){
    if(j%50==0) Canvas->Pen->Color=clBlue;
    else        Canvas->Pen->Color=clGray;

    Canvas->MoveTo(0,j);
    Canvas->LineTo(800,j);
  }
  for(j=0;j<800;j+=10){
    if(j%50==0) Canvas->Pen->Color=clBlue;
    else        Canvas->Pen->Color=clGray;
    Canvas->MoveTo(j,0);
    Canvas->LineTo(j,600);
  }
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::PrintClick(TObject *Sender)
{
/*
  int i,j;
  TPrinter *pPrinter = Printer();

  pPrinter->BeginDoc();
  for(j=0;j<2400;j+=40){
    pPrinter->Canvas->MoveTo(0,j);
    pPrinter->Canvas->LineTo(3200,j);
  }
  for(j=0;j<3200;j+=40){
    pPrinter->Canvas->MoveTo(j,0);
    pPrinter->Canvas->LineTo(j,2400);
  }
  if(offset>=800){
    pPrinter->Canvas->MoveTo(0,0);
    for(i=0,p_draw=p_buf-800+offset;i<3200;p_draw++,i+=4)
      pPrinter->Canvas->LineTo(i,2400-((*p_draw)&0x7fff)/15);
  }

  pPrinter->EndDoc();
  */
}
//---------------------------------------------------------------------------






  /*
  SelectObject(hdc,CreatePen(PS_SOLID,0,RGB(0,0,0)));
  if(bd.pb_mode!=PB_WAVE){ // draw kg
    for(int jj=0;jj<KG_SIZE;jj++){
      if(kg[jj].ofst>offset && kg[jj].ofst<offset+800*step){
        MoveToEx(hdc,(kg[jj].ofst-offset)/step,150*(kg[jj].who-1),NULL);
        LineTo(hdc,(kg[jj].ofst-offset)/step,150*kg[jj].who);
      }
    }
  }
  ReleaseDC(form_draw->Handle,hdc);
  */


void __fastcall Tform_draw::b_qhClick(TObject *Sender)
{
  if(flag_qh==true){
    flag_qh=false;
    dd=210;
    stmbdg5=440;
    stmbdg6=540;
  }else{
    flag_qh=true;
    stmbdg5=270;
    stmbdg6=540;
    if(bd.hq_mode==HQ_STMBDG||bd.hq_mode==HQ_BDG3){ dd=120;}
    else if(bd.hq_mode==HQ_CPZ){ dd=60;}
  }
  flag_tm1=false;
  flag_tm2=false;
  repaint();
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::FormMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if(Button== mbLeft){
    if(Shift.Contains(ssCtrl)) SmallClick(NULL);
    else if(Shift.Contains(ssShift)) small_hClick(NULL);
    else if(Shift.Contains(ssAlt)) Left_miniClick(NULL);
    else b_leftClick(NULL);
  }else if(Button==mbRight){
    if(Shift.Contains(ssCtrl))  LargeClick(NULL);
    else if(Shift.Contains(ssShift)) large_hClick(NULL);
    else if(Shift.Contains(ssAlt)) Right_miniClick(NULL);
    else b_rightClick(NULL);
  }


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

void __fastcall Tform_draw::b_tm1Click(TObject *Sender)
{
  if(flag_qh==true){
    flag_qh=false;
    stmbdg5=440;
    stmbdg6=540;
  }
  flag_tm1=true;
  flag_tm2=false;
  repaint();
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::b_tm2Click(TObject *Sender)
{
  if(flag_qh==true){
    flag_qh=false;
    stmbdg5=440;
    stmbdg6=540;
  }
  
  flag_tm2=true;
  flag_tm1=false;
  repaint();
}
//---------------------------------------------------------------------------

void __fastcall Tform_draw::bt_bClick(TObject *Sender)
{
  if(flag_bt) flag_bt=false;
  else flag_bt=true;
  repaint();
}
//---------------------------------------------------------------------------


void __fastcall Tform_draw::Edit2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==Enter_KEY){
    int tmp=StrToInt(Edit2->Text);
    if(tmp>=1&&tmp<=8){
      flag_tm=tmp;
      repaint();
    }else{
      err(" 台面范围1--8 ");
    }
  }
}
//---------------------------------------------------------------------------


void __fastcall Tform_draw::MaxminClick(TObject *Sender)
{
  int zz,xx;
  if(StrToInt(Edit18->Text)==0) zz=zero;
  else if(StrToInt(Edit18->Text)==1) zz=zero1;
  else if(StrToInt(Edit18->Text)==2) zz=zero2;
  else if(StrToInt(Edit18->Text)==3) zz=zero3;
  else if(StrToInt(Edit18->Text)==4) zz=zero4;

  Canvas->Pen->Color=clGray;