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


Листинг 13 12 Прямоугольник со скругленными углами 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;

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