Нарисовать группу точек на форме - C++ Builder - Ответ 8766918

#ifndef     Unit1H
#define     Unit1H
 
//------------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//------------------------------------------------------------------------------
 
 
//##### ..... #####
// размерность массива (всего 20 двухмерных точек).
const int   N = 2, M = 20;
 
 
//##### ..... #####
// .........
class   TForm1  : public    TForm
{
 
__published:    // IDE-managed Components
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormPaint(TObject *Sender);
 
private:    // User declarations
    // Вот он массив.
    int     A[N][M];
 
public:     // User declarations
    // конструктор.
    __fastcall  TForm1(TComponent* Owner);
 
};
//------------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//------------------------------------------------------------------------------
 
#endif  //(Unit1H)

//##### ..... #####
#include    <vcl.h>
#pragma hdrstop //--------------------------------------------------------------
#include    "Unit1.h"   // .........
 
//------------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//------------------------------------------------------------------------------
 
 
//##### ..... #####
// Радиус точек.
const   r = 4;  //(2)
 
 
//##### ..... #####
// конструктор.
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    // Заполняем массив точек.
    for ( int  i=0; i<M; i++ )
    {
        A[0][i] = random( ClientWidth );    // x-координаты.
        A[1][i] = random( ClientHeight );   // y-координаты.
    }
 
    // Устанавливаем цвет линий красный.
    Form1->Canvas->Pen->Color = clRed;
}
 
// .........
void __fastcall     TForm1::FormPaint(TObject *Sender)
{
    // Выводим точки на канву формы.
    for ( int  i=0; i<M; i++ )
    {
        // получаем ...
        int     x = A[0][i],    // x-координату.
                y = A[1][i];    // y-координату.
        // рисуем.
        Form1->Canvas->Ellipse( x-r, y-r, x+r, y+r );
    }
}