Canvas, TShape ... Rectangle with pointed corners (no missing pixels)

[RAW]

Obviously I'm missing something ... Can someone explain how to get real pointed corners (Canvas, TShape: Rectangle)?

Code: Pascal  [Select][+][-]

1. unit Unit1;
2. {$mode objfpc}{$H+}
3.  
4. interface
5.  
6. uses
7.   Classes,
8.   SysUtils,
9.   Forms,
10.   Controls,
11.   Graphics,
12.   ExtCtrls;
13.  
14. type
15.   TForm1 = class(TForm)
16.     procedure FormPaint  (Sender: TObject);
17.     procedure FormCreate (Sender: TObject);
18.   end;
19.  
20. var
21.   Form1: TForm1;
22.  
23. implementation
24. {$R *.lfm}
25.  
26. procedure TForm1.FormPaint(Sender: TObject);
27. begin
28.   Canvas.Pen.Width:= 6;
29.   Canvas.Pen.Color:= RGBToColor(0, 80, 255);
30.   Canvas.Rectangle(400, 100, 800, 400);
31.   Canvas.Pen.Color:= clRed;
32.   Canvas.Frame(300, 300, 600, 600);
33. end;
34.  
35. procedure TForm1.FormCreate(Sender: TObject);
36. var
37.  shp: TShape;
38. begin
39.   Color:= clWhite;
40.  
41.   shp:= TShape.Create(Self);
42.   shp.Shape:= stRectangle;
43.   shp.Pen.Color:= RGBToColor(0, 80, 255);
44.   shp.Pen.Width:= 6;
45.   shp.SetBounds(100, 100, 200, 100);
46.   shp.Parent:= Self;
47. end;
48.  
49. end.

[wp]

Set the pen's JoinStyle to pjsMiter

[RAW]

Ah, JoinStyle ... Thank you very much, next time I need to take a closer look!