Прямоугольник со вписанным эллипсом



Листинг 13.11.Прямоугольник со вписанным эллипсом

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Rectangle(0, 0, ClientWidth div 2, ClientHeight div 2);

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

Для того чтобы нарисовать на канве прямоугольник со скругленными углами, вы можете воспользоваться методом RoundRect.

Первые четыре параметра определяют координаты главной диагонали прямоугольника, остальные два показывают, как скругляются его углы.



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