/*
Arc example
The following lines of code draw the top quarter of an arc bounded by the current window:
*/ 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
  TRect R = GetClientRect();  // Gets the rectangular 
                              // coordinates of 
                              // the current window.
  Canvas->Arc(R.Left, R.Top, R.Right, R.Bottom, R.Right, R.Top, R.Left, R.Top);
} 
