----------------- ----------------------------------- __fastcall TForm1 :: Edit1Exit (TObject * Sender)
{kol; (StrToInt (Edit1-> Text) Min)
{-> Text = IntToStr (UpDown1-> Min); ("Число вічок не менше" + IntToStr (UpDown1-> Min) + "!");
} (StrToInt (Edit1-> Text)> UpDown1-> Max)
{-> Text = IntToStr (UpDown1-> Max); ("Число осередків не більше" + IntToStr (UpDown1-> Max) + "!");
} = StrToInt (Edit1-> Text); -> Position = kol; (UpDown2-> Position> kol * kol)
{-> Position = kol * kol; -> Text = IntToStr (kol * kol);
} -> Max = kol * kol;
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: Edit2Exit (TObject * Sender)
{(StrToInt (Edit2-> Text) Min)
{-> Text = IntToStr (UpDown2-> Min); ("Число кульок не менш" + IntToStr (UpDown2-> Min) + "!");
} (StrToInt (Edit2-> Text)> UpDown2-> Max)
{-> Text = IntToStr (UpDown2-> Max);
ShowMessage ("При такому колічесвтом осередків число кульок не більше" + IntToStr (UpDown2-> Max) + "!");
} -> Position = StrToInt (Edit2-> Text);
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: FormResize (TObject * Sender)
{(Form1-> Width> 105) StatusBar1-> Panels-> Items [0] -> Width = Form1-> Width-100; StatusBar1-> Panels-> ; Items [0] -> Width = 5; (); (); -> Constraints-> MinHeight = 1.3 * Form1-> Width;
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: Timer2Timer (TObject * Sender)
{-> Panels-> Items [1] -> Text = TimeToStr (Time ());
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: Edit1KeyPress (TObject * Sender, char & Key)
{((Key> = '0 ') && (Key <= '9') | | (Key == VK_BACK)) return; (Key == VK_RETURN) Edit2- > SetFocus (); Key = 0;
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: Edit2KeyPress (TObject * Sender, char & Key)
{((Key> = '0 ') && (Key <= '9') | | (Key == VK_BACK)) return; (Key == VK_RETURN) Edit1- > SetFocus (); Key = 0;
}
// ---------------------------------------- ----------------------------------- __fastcall TForm1 :: N20Click (TObject * Sender)
{-> Visible =! ...