Иллюстрированный самоучитель по 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.

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



- Начало - - Назад - - Вперед -