Прямоугольник со скругленными углами procedure TForm1 FormPaint{Sender TObject);
begin



Листинг 13.12.Прямоугольник со скругленными углами procedure TForm1.FormPaint{Sender: TObject);
begin

Canvas.RoundRect(0, 0, ClientWidth div 2, ClientHeight div 2, 10, 10);
end;

Содержание раздела