PageControl 中TabPosition 的值设为：tpLeft，标签都放到左边了，可是字体却仍是垂直显示（在线等）

Question

把字体改成了@开头的，这些字体都变成朝上的了，也就是说他们得转180度才能变成正得，不知道如何实现,请各位大侠指教！

Answer 1

//设置PageControl1.OwnerDraw := Trueprocedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  //用TabIndex参数来区分每一页
  with PageControl1.canvas do
  begin
    TextOut(Rect.Left+5,Rect.Top+1,'a');
    TextOut(Rect.Left+5,Rect.Top+TextHeight('a'),'b');
    TextOut(Rect.Left+5,Rect.Top+TextHeight('a')*2,'c');
    //...
  end;
end;//楼主完全可以将我上面的代码写成一个函数，就可以处理任意字符串了

Answer 2

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  //用TabIndex参数来区分每一页
  case tabindex of
  0:
  with PageControl1.canvas do
  begin
    TextOut(Rect.Left+5,Rect.Top+1,'盖');
    TextOut(Rect.Left+5,Rect.Top+TextHeight('盖'),'立');
    TextOut(Rect.Left+5,Rect.Top+TextHeight('盖')*2,'波');
    //...
  end;
  1:
  with PageControl1.canvas do
  begin
    TextOut(Rect.Left+5,Rect.Top+1,'王');
    TextOut(Rect.Left+5,Rect.Top+TextHeight('王'),'立');
    TextOut(Rect.Left+5,Rect.Top+TextHeight('王')*2,'军');
    //...
  end;
  end;
end;