Drawing a Polygon in a Windows VCL Application

From RAD Studio
Jump to: navigation, search

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

This procedure draws a polygon in a VCL form.

  1. Create a VCL form.
  2. Code the form's OnPaint event handler to draw a polygon.
  3. Build and run the application.

To create a VCL form

  1. Open File > New > Windows VCL Application - Delphi
  2. In the form view, click the form, if necessary, to display Form1 in the Object Inspector.

To write the OnPaint event handler

  1. In the Object Inspector, click the Events tab.
  2. Double-click the OnPaint event.The Code Editor displays with the cursor in the TForm1.FormPaint (Delphi) or TForm1::FormPaint (C++) event handler block.
  3. Enter the following event handling code:
Canvas.Polygon ([Point(0,0), Point(0, ClientHeight),
Point(ClientWidth, ClientHeight)]); TPoint points[] = { Point(0,0),
                    Point(0, ClientHeight),
                    Point(ClientWidth, ClientHeight) };
Canvas->Polygon( points, 3 );

To run the program

  1. Select Run > Run .
  2. The applications executes, displaying a right triangle in the lower left half of the form.

See Also