Графика на борланде - C++ - Ответ 211409

//---------------------------------------------------------------------------
int x, y;
void __fastcall TForm1::FormCreate(TObject *Sender)
{Randomize();
 
    x = rand()%ClientWidth - 20, y = rand()%ClientHeight - 20;
    Form1->KeyPreview = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
     Canvas->Ellipse(x, y, x + 20, y + 20);//нарисуем шарик со случайными х и у
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    Canvas->Pen->Color = clBtnFace;//старые координаты
    Canvas->Ellipse(x, y, x + 20, y + 20);
 
                                  //-----------
    if(Key == 37 || Key == 39)x = x + Key - 38;
    if(Key == 38 || Key == 40)y = y + Key - 39;
    Key = 0;                      //-----------
 
    Canvas->Pen->Color = clDefault;
    Canvas->Ellipse(x, y, x + 20, y + 20);//новые
}
//---------------------------------------------------------------------------

#include <math.h>

x = rand()%(ClientWidth - 20), y = rand()%(ClientHeight - 20);

/* Need prototype of time() for C++ randomize() */
inline void _RTLENTRY randomize(void) { srand((unsigned) time(NULL)); }

inline int  _RTLENTRY random(int __num)
                       { return __num ? (int)(_lrand()%(__num)) : 0; }