qcadwin/CPanel.cpp

   1 //---------------------------------------------------------------------------\r
   2 // Circuit Panel Form\r
   3 //---------------------------------------------------------------------------\r
   4 #include <vcl.h>\r
   5 #pragma hdrstop\r
   6 \r
   7 #include "CPanel.h"\r
   8 //---------------------------------------------------------------------------\r
   9 #pragma package(smart_init)\r
  10 #pragma resource "*.dfm"\r
  11 TFCPanel *FCPanel;\r
  12 //---------------------------------------------------------------------------\r
  13 __fastcall TFCPanel::TFCPanel(TComponent* Owner)\r
  14     : TForm(Owner) {}\r
  15 //---------------------------------------------------------------------------\r
  16 /**\r
  17  * return selected circuit\r
  18  */\r
  19 int TFCPanel::GetCircuit(void) {\r
  20   if (TBArrow->Down)return CP_ARROW;\r
  21   if (TBErase->Down)return CP_ERASE;\r
  22   if (TBWalsh->Down)return CP_WALSH;\r
  23   if (TBCnot->Down)return CP_CNOT;\r
  24   if (TBCCnot->Down)return CP_CCNOT;\r
  25   if (TBMesure->Down)return CP_MESURE;\r
  26   if (TBPauliX->Down)return CP_PAULI_X;\r
  27   if (TBPauliY->Down)return CP_PAULI_Y;\r
  28   if (TBPauliZ->Down)return CP_PAULI_Z;\r
  29   if (TBSwap->Down) return CP_SWAP;\r
  30   if (TBCRot->Down) return CP_CROT;\r
  31   if (TBNot->Down)  return CP_NOT;\r
  32   if (TBRot->Down)  return CP_ROT;\r
  33 \r
  34   return CP_NONE;\r
  35 }\r
  36 //---------------------------------------------------------------------------\r
  37 \r
  38 \r