样将PageControl的caption中文字竖立？

Question

将PageControl的TabSheet设置为left，怎样将其caption的中文字竖立起来。或哪里有达到这样效果的第三方控件？
我看到金蝶的K3ERP主界面就是这样的效果。

Answer 1

用rzPageControl
raise系列的控件

Answer 2

或者自己来画
OwnerDraw := True;procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  Control.Canvas.TextOut(rect.Left+10,rect.Top,'中');
  Control.Canvas.TextOut(rect.Left+10,rect.Top+10,'国');
end;