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

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



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


Книжный магазин