TCanvasArc (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

The following lines of code draw the top quarter of an arc bounded by the current window.

Code

procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;
begin
  R := GetClientRect;   { Gets the boundaries of the current window. }
  Canvas.Arc(R.Left, R.Top, R.Right, R.Bottom, R.Right, R.Top, R.Left, R.Top);
end;

Uses