Drawing a Rounded Rectangle in a Windows VCL Application

Go Up to How To Build a Windows VCL Application with Graphics

This procedure draws a rounded rectangle in a VCL form.

1. Create a VCL form and code the form's OnPaint event handler.
2. Build and run the application.

To create a VCL form

1. Open File > New > Windows VCL Application - Delphi
2. In the Object Inspector, click the Events tab.
3. Double-click the OnPaint event.The Code Editor displays with the cursor in the TForm1.FormPaint (Delphi) or TForm1::FormPaint (C++) event handler block.
4. Enter the following event handling code:

Canvas.RoundRect(0, 0, ClientWidth div 2, ClientHeight div 2, 10, 10);

Canvas->RoundRect(0, 0, ClientWidth/2, ClientHeight/2, 10, 10 );

To run the program

1. Save all files in your project; then choose Run > Run .
2. The application executes, displaying a rounded rectangle in the upper left quadrant of the form.

See Also

• VCL Overview
• Drawing Rectangles and Ellipses in a Windows VCL Application