s-> LineTo (Image1-> Width/2 + q, ya) ; = h; = b;
} = Image1-> Height-l-(k-1) * h-ramka + c; = 3 * b/2; = Image1-> Width/2-q; -> ; Canvas-> MoveTo (x, y); -> Canvas-> LineTo (x + b, y-2 * c); -> Canvas-> LineTo (x + b, y-2 * ca ); -> Canvas-> MoveTo (x +2 * q, y); -> Canvas-> LineTo (x +2 * qb, y-2 * c); -> Canvas-> LineTo (x +2 * qb, y-2 * ca); -> Canvas-> LineTo (x +2 * q-3 * b/2, y-3 * ca);
Image1-> Canvas-> LineTo (x +2 * q-2 * b, y-2 * ca); ();
}
// малювання окремої панеліTForm1 :: DrawPanel (int x, int y)
Image1-> Canvas-> MoveTo (x, y); -> Canvas-> LineTo (x + b/2, yc); -> Canvas-> LineTo ( x + b/2, yca); -> Canvas-> LineTo (x, y-2 * ca); -> Canvas-> LineTo (xb/2, yca); -> Canvas-> LineTo (xb/2, yc); -> Canvas-> LineTo (x, y);
Color, fsSurface);
}
// малювання окремого шарікаTForm1 :: DrawBall (int x, int y)
{-> Canvas-> Brush-> Color = clBlue;// тінь від кульки-> Canvas-> Pen-> Color = clBlue;
Image1-> Canvas-> Pen-> Width = 1; -> Canvas-> Ellipse (Rect (x-r +1, y-r +1, x + r +1, y + r +1));
Image1-> Canvas-> Pen-> Width = 1; -> Canvas-> Ellipse (Rect (xr, yr, x + r, y + r));
Image1-> Canvas-> Brush-> Color = clWhite;// (TColor) RGB (192,218,245); -> Canvas-> Pen-> Color = clWhite;//(TColor) RGB (192,218,245);
Image1-> Canvas-> Ellipse (Rect (x, y, xr * 2/3, yr * 2/3));
Image1-> Canvas-> Ellipse (Rect (x + r/2, y + r/2, x + r/4, y + r/4));
}
// замальовка окремого шарікаTForm1 :: DeleteBall (int x, int y)
Image1-> Canvas-> Ellipse (Rect (x-r +1, y-r +1, x + r +1, y + r +1));
}
// малювання кульок внізуTForm1 :: LowBalls ()
{i, j; xc; p, level; (i = 0; i
{= Image1-> Width/2- (k-1) * b + i * 2 * b; = -1; = 0; (j = 0; j
{(p == -1) level + +; (xc + p * ((b-4 * r)/6 + r), Image1-> Height-ramka-level * (b- 4 * r)/3 - (2 * level-1) * r);
p =-p;
}
}
}
// ініціалізація глобальних переменнихTForm1 :: Init ()
{i, j; (M_Init)
{M; delete Mas; (int i = 0; i
delete Ball [i]. turn; Ball;
} = 20; = StrToInt (Edit1-> Text); = StrToInt (Edit2-> Text); (N> k * k) {N = k * k; Edit2-> Text = IntToStr (N);} -> Max = k * k; -> Position = k; = new int [k]; Mas = new...
