координата Х кульки в минулий момент временіOldY;// координата Y кульки в минулий момент временіnumber;// номер комірки, в яку потрапить кулька
};
...
Додаток 2
Лістинг Unit2. cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit2. h "
# include "Unit1. h "
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm "* FLog;
// ---------------------------------------- -----------------------------------
__fastcall TFLog :: TFLog (TComponent * Owner)
: TForm (Owner)
{
}
// ---------------------------------------- ----------------------------------- __fastcall TFLog :: Button1Click (TObject * Sender)
{-> Visible = true; ();
}
// ---------------------------------------- ----------------------------------- __fastcall TFLog :: FormClose (TObject * Sender, TCloseAction & Action)
{= caFree;
}
Додаток 3
Лістинг Unit3. cpp
# include
# pragma hdrstop
# include "Unit3. h "
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm "* About;
// ---------------------------------------- -----------------------------------
__fastcall TAbout :: TAbout (TComponent * Owner)
: TForm (Owner)
{
}
// ---------------------------------------- ----------------------------------- __fastcall TAbout :: Button1Click (TObject * Sender)
{();
} Додаток 4
Лістинг Unit5. cpp
# include
# pragma hdrstop
# include "Unit5. h "
# include "Unit1. h "
// ---------------------------------------- -----------------------------------
# pragma package (smart_init...