1 //---------------------------------------------------------------------------
\r
2 // Form for a new circuit
\r
3 //---------------------------------------------------------------------------
\r
8 //---------------------------------------------------------------------------
\r
9 #pragma package(smart_init)
\r
10 #pragma resource "*.dfm"
\r
12 //---------------------------------------------------------------------------
\r
14 TFNew::TFNew(TComponent* Owner) : TForm(Owner) {}
\r
15 //---------------------------------------------------------------------------
\r
17 TFNew::Execute(int line,int column) {
\r
19 EdLineNumber->Text = IntToStr(line);
\r
20 EdColumnNumber->Text = IntToStr(column);
\r
22 int mr = ShowModal();
\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
36 //---------------------------------------------------------------------------
\r