qcadwin/New.cpp

   1 //---------------------------------------------------------------------------\r
   2 // Form for a new circuit\r
   3 //---------------------------------------------------------------------------\r
   4 #include <vcl.h>\r
   5 #pragma hdrstop\r
   6 \r
   7 #include "New.h"\r
   8 //---------------------------------------------------------------------------\r
   9 #pragma package(smart_init)\r
  10 #pragma resource "*.dfm"\r
  11 TFNew *FNew;\r
  12 //---------------------------------------------------------------------------\r
  13 __fastcall\r
  14 TFNew::TFNew(TComponent* Owner) : TForm(Owner) {}\r
  15 //---------------------------------------------------------------------------\r
  16 bool\r
  17 TFNew::Execute(int line,int column) {\r
  18 \r
  19   EdLineNumber->Text = IntToStr(line);\r
  20   EdColumnNumber->Text = IntToStr(column);\r
  21 \r
  22   int mr = ShowModal();\r
  23 \r
  24   if (mr != mrOk) {\r
  25     return false;\r
  26   }\r
  27 \r
  28   LineNumber = EdLineNumber->Text.ToIntDef(0);\r
  29   ColumnNumber = EdColumnNumber->Text.ToIntDef(0);\r
  30   if (LineNumber ==0 || ColumnNumber==0) {\r
  31     ShowMessage("Invarid Number");\r
  32     return false;\r
  33   }\r
  34   return true;\r
  35 }\r
  36 //---------------------------------------------------------------------------\r
  37 \r