qcadwin/Input.cpp

   1 //---------------------------------------------------------------------------\r
   2 #include <vcl.h>\r
   3 #pragma hdrstop\r
   4 \r
   5 #include "Input.h"\r
   6 //---------------------------------------------------------------------------\r
   7 #pragma package(smart_init)\r
   8 #pragma resource "*.dfm"\r
   9 TFInput *FInput;\r
  10 //---------------------------------------------------------------------------\r
  11 __fastcall TFInput::TFInput(TComponent* Owner)\r
  12     : TForm(Owner) {}\r
  13 //---------------------------------------------------------------------------\r
  14 bool TFInput::Execute(QManager *qManager) {\r
  15   CBTarget1->Items->Clear();\r
  16   for (int i=0;i<qManager->GetLineNumber();i++) {\r
  17     CBTarget1->Items->Add("q"+IntToStr(i));\r
  18   }\r
  19   CBTarget1->ItemIndex = 0;\r
  20 \r
  21   CBTarget2->Items->Clear();\r
  22   for (int i=0;i<qManager->GetLineNumber();i++) {\r
  23     CBTarget2->Items->Add("q"+IntToStr(i));\r
  24   }\r
  25   CBTarget2->ItemIndex = 0;\r
  26 \r
  27 \r
  28   if (ShowModal()==mrOk)return true;\r
  29   else return false;\r
  30 }\r
  31 //---------------------------------------------------------------------------\r
  32 int TFInput::GetNumber1(void) {\r
  33   return CBTarget1->ItemIndex;\r
  34 }\r
  35 //---------------------------------------------------------------------------\r
  36 int TFInput::GetNumber2(void) {\r
  37   return CBTarget2->ItemIndex;\r
  38 }\r
  39 //---------------------------------------------------------------------------\r
  40 \r