title: TShape Lazarus, nothing display
body: <p>I'm trying to draw on a TShape via the Canvas, but, nothing display.</p>
  
  <pre><code>procedure TController.DrawGrind;
  begin
    ShowMessage('I try do draw something');
  
    with FView.Shape1 do
    begin
      Canvas.MoveTo(Left, Top);
      Canvas.Pen.Width:= 5;
      Canvas.Pen.Style := psSolid;
      Canvas.Pen.Color:= clRed;
      Canvas.Brush.Color:= clRed;
      Canvas.LineTo(Left, Width);
    end;
  
    FView.Shape1.Refresh;
  
  end;        
  </code></pre>
  
  <p>Thanks for reading </p>