Иллюстрированный самоучитель по Kylix


     Картотечный шкаф практик подробно. |     

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



Листинг 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.

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



Содержание Назад Вперед