Corner JoinStyle on a chart title frame

[riskassessor]

I am trying to set the corner shape on a frame around the chart title like so:

Code: Select all

procedure TForm3.FormCreate(Sender: TObject);
begin
  with Chart1 do
  begin
    Title.Transparent:=False;
    Title.Frame.Visible:=True;
    Title.RoundSize:=32;
    Title.Frame.JoinStyle:=jsBevel;  // or jsRound or jsMitter
  end;
end;

But the corners always come out round. Where am I going wrong?

[Yeray]

Hello,

This may be what you are looking for:

Code: Select all

  with Chart1 do
  begin
    Title.Transparent:=False;
    Title.Frame.Visible:=True;
    Title.RoundSize:=32;
    //Title.Frame.JoinStyle:=jsBevel;  // or jsRound or jsMitter
    Title.Corners.LeftBottom.Style:=cosBevel;
    Title.Corners.LeftTop.Style:=cosBevel;
    Title.Corners.RightBottom.Style:=cosBevel;
    Title.Corners.RightTop.Style:=cosBevel;
  end;