GetTextSize ( TheText, w, h ) if ( w FontColor then IntfImg. Procedure PaintAliased ( Canvas : TCanvas x, y : integer const TheText : string ) var w, h, dx, dy : Integer IntfImg : TLazIntfImage Img : TBitmap col : TFPColor FontColor, c : TColor begin w := 0 h := 0 Canvas. The fill color is determined by the color of the canvas's Brush, and the border color is given by the color of the canvas's Pen: You can pass rectangle's edge coordinates to the method either as four separate x/y values, or as a single TRect record. The TCanvas method for painting a rectangle is named very logically: Rectangle(). Never paint in an OnClick handler, because this painting is not persistent and will be erased whenever the operating system requests a repaint. For this purpose we must add code to the OnPaint event of the form.

Suppose we want to draw a red rectangle with a 5-pixel-thick blue border in the center of the form, and the the rectangle should be half the size of the form. Let's use TForm as an example to demonstrate how to paint on a canvas. Such controls include TForm, TPanel and TPaintBox.

Many controls expose their canvas as a public Canvas property (or via an OnPaint event).

4 Drawing text with sharp edges (non antialiased).

3 Drawing text to an exactly fitting width.

Pen on a string for jump paint